module Main where

import System (getArgs)

fibsFn :: () -> [Integer]
fibsFn () = 1 : 1 : zipWith (+) (fibsFn ()) 
                                (tail (fibsFn ()))    

main = do
  x <- getArgs >>= return . read . head
  putStrLn (show (fibsFn () !! x))