import Control.Applicative import Data.Bits main = do [f0, f1, n] <- map readInt <$> words <$> getLine print $ fibxor n f0 f1 fibxor :: Int -> Int -> Int -> Int fibxor 0 f0 f1 = f0 fibxor 1 f0 f1 = f1 fibxor n f0 f1 = (fibxor (n - 1) f0 f1) `xor` (fibxor (n - 2) f0 f1) readInt :: String -> Int readInt = read