2011-08-03 Project 25 1 + (snd $ head $ dropWhile (\pair -> (length (show (fst pair))) < 1000) $ zip fib [1..])