main = readLn >>= print . dps

dps :: Integer -> Integer
dps n = head $ foldl (\(x2:x1:xs) _ -> (x2+x1:x2:x1:xs)) [1,1] [2..n]