fork download
  1. fact :: Int -> Int
  2. fact 0 = 1
  3. fact n = n * fact (n - 1)
  4.  
  5. main = do
  6. print(fact 5)
Success #stdin #stdout 0s 0KB
stdin
Standard input is empty
stdout
120