47b2d9e7bfc614319e352b9fcc650a785d91266d
[ghc-hetmet.git] / ghc / tests / codeGen / cg003.hs
1 main = print (id2 (id2 id2) (42::Int))
2 --      where
3 --      id2 = s k k
4
5 -- id2 x = s k k x
6
7 id2 = s k k
8
9 s x y z = x z (y z)
10
11 k x y = x