compiler/ilxGen/tests/test9.hs

   1 data Tree a = Node (Tree a) (Tree a)
   2
   3 left (Node x y) = x
   4 right (Node x y) = y
   5
   6 choose (Node (Node _ _) (Node _ _)) = "hello world!\n"
   7
   8 mk f = f (mk f) (mk f)
   9 main = putStr (choose (mk Node))
  10