-- factorial function
fact x = 
  if x < 2 then 1
  else x * fact (x - 1)


main = do putStr (show (fact 10))