1data Foo = A Int | B Bool | C
2
3foo :: Foo -> ()
4foo x = case x of
5
6