> main :: IO ()
> main = do putStr "Enter a number: "
>           l <- readLine
>           putStr "n!= "
>           print (fact (read l))
> fact :: Integer -> Integer
> fact 0 = 1
> fact n = n * fact (n-1)