fact :: Integer -> Integer
fact 0 = 1
fact n = n * fact (n - 1)

factList :: Integer -> [Integer]
factList n = map fact [1..n]