module Main where
import System.Environment
import Data.List

fib n = snd . foldl fib' (1, 0) . map (toEnum . fromIntegral) $ unfoldl divs n
	where
		unfoldl f x = case f x of
				Nothing -> []
				Just (u, v) -> unfoldl f v ++ [u]
		divs 0 = Nothing
		divs k = Just (uncurry (flip (,)) (k `divMod` 2))
		fib' (f, g) p	| p = (f*(f+2*g), f^2 + g^2)
				| otherwise = (f^2+g^2, g*(2*f-g))

main = getArgs >>= mapM_ (print . fib . read)