正文：fibs = 0 : 1 : zipWith (+) fibs (tail fibs)
测试：quickCheck (fibs :: Int -> Int)

写完。