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 n f0 f1 = case n `mod` 3 of 0 -> f0 1 -> f1 2 -> f0 `xor` f1 readInt :: String -> Int readInt = read