[project @ 1997-12-19 15:07:35 by simonm]
[ghc-hetmet.git] / ghc / tests / codeGen / should_run / cg005.hs
1 --!! answer: 65532
2
3 main = print foo
4
5 foo :: Int
6 foo = ((1 + 2 + 32767 - 4) * 6) --later? `div` 3