-- yukicoder My Practice -- author: Leonardone @ NEETSDKASU main = print . head . flip drop f =<< readLn where f = [1, 1] ++ [x + y | n <- [0..], let (x:y:_) = drop n f]