Name: Anonymous 2008-12-20 15:04
fibs = 1 : zipWith (+) fibs (tail fibs)
fibs = 1 : zipWith (+) fibs (tail fibs)
loeb f = fmap ($ loeb f) f
fibs = loeb $ map const [0,1]++[\x -> x!!a + tail x!!a | a <- [0..]]