Project Euler Problem 025

fib :: [Integer]
fib=1:1:zipWith (+) fib (tail fib)
ans1 :: Integer
ans1 = snd $ head $ dropWhile((<10^(999::Integer)).fst) $ zip fib [1..] 
--4782
main :: IO ()
main = print ans1