import Data.Bits (xor, Bits) xorFibonacci :: (Bits a, Integral a) => a -> a -> a -> a xorFibonacci f0 f1 n | mod n 3 == 0 = f0 | mod n 3 == 1 = f1 | otherwise = xor f0 f1 main :: IO () main = print . (\(f0 : f1 : n : _) -> xorFibonacci f0 f1 n) . map (read :: String -> Integer) . words =<< getLine