fib = 1 : 1 : zipWith (+) fib (tail fib)
fibIndexed = zip fib [1..]
e025 = filter (\(d, _) -> (length . show $ d) >= 1000) fibIndexed