fact n
  | n <= 1 = 1
  | otherwise = n * (fact (n-1))

main = (putStrLn . show . fact) 5