main :: IO ()
main = print . solve =<< readLn

solve :: Int -> Int
solve n = solve' n 1 1

solve' :: Int -> Int -> Int -> Int
solve' 2 a b = a + b
solve' n a b = solve' (n - 1) b (a + b)