main = print $ fst . head $ dropWhile (\(c, n) -> digitCount n < 1000) $
       zip [1..] fib
main = print $ fst . head $ dropWhile (\(c, n) -> digitCount n < 1000) $
       zip [1..] fib
main = print $ fst . head $ dropWhile (\(c, n) -> digitCount n < 1000) $
       zip [1..] fib