module Main where

import Prelude
import Control.Monad.Eff.Console (log)

data Foo a = Foo

foo = \f -> case f of Foo -> "foo"

main = log "Done"