fibonacci series in haskell code example

Example: haskell fibonacci

fibonacci :: (Integral a) => [a]
fibonacci = 0 : 1 : zipWith (+) fibonacci (tail fibonacci)