[project @ 1999-02-23 17:20:34 by sof]
[ghc-hetmet.git] / ghc / tests / codeGen / should_run / 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