remove empty dir
[ghc-hetmet.git] / compiler / ilxGen / tests / test7.hs
1 data List a = Cons a (List a)
2
3 hdL (Cons x y) = x
4 tlL (Cons x y) = y
5
6 mk f x = f x (mk f x)
7 main = putStr (hdL (tlL (mk Cons "hello world!\n")))
8