fib = 1 : 1 : zipWith (+) fib (tail fib)

fibIndexed = zip fib [1..]

e025 = filter (\(d, _) -> (length . show $ d) >= 1000) fibIndexed