fib :: Int -> Int
fib 1 = 1
fib x = x * fib (x - 1)
main = putStr $ show $ fib 3