fib = 0 : scanl (+) 1 fib