43fe1b2923c84f73412a2c029d61fa27f600201b
[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")