fact :: [Int]
fact = scanl (*) 1 [2..]
fibs :: [Int]
-- to understand recursion one must first understand recursion...
-- F_n+2 = 1 + sum(F_1 .. F_n)
fibs = 1 : scanl (+) 1 fibs