[project @ 1999-01-23 18:10:00 by sof]
[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