[project @ 1996-01-08 20:28:12 by partain]
[ghc-hetmet.git] / ghc / compiler / tests / stranal / fact.lhs
1 > fact :: Int -> Int
2 > fact n = if n==0 then 2 else (fact n) * n