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