[ghc-hetmet.git] / ghc / compiler / tests / stranal / fact.lhs

> module Test where
> fact :: Int -> Int
> fact n = if n==0 then 2 else (fact n) * n