path: root/testsuite/tests/ghc-regress/stranal/should_compile/fact.hs

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