fib = 0 : 1 : (zipWith (+) <*> tail) fib