2507c6b41a4b5f699b210cf8529648f9cf4dec47
[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