import System

fiba :: (Integral a) => a -> a -> a -> a
fiba n f0 f1 | n > 0 = fiba (n-1) f1 (f0 + f1)
             | otherwise = f1

fib n = fiba n 0 1
main = do { [a] <- getArgs;
       print $ fib (read a) }
