[project @ 2001-08-22 11:45:06 by sewardj]
[ghc-hetmet.git] / ghc / tests / numeric / should_run / arith009.hs
1 -- a prefix minus precedence test
2
3 f :: Int -> Int -> Int -> Int
4 f x y z = - x * y ^ z
5
6 main = putStr (shows (f 5 2 3) "\n")