fork download
  1. fact :: Integer -> Integer
  2. fact n = product [1 .. n]
  3.  
  4. main :: IO ()
  5. main = putStrLn $ show (fact 9)
Success #stdin #stdout 0s 4652KB
stdin
Standard input is empty
stdout
362880