import Data.Bits main :: IO () main = interact $ show . (\[x, y] -> x `xor` y) . map (read :: String -> Int) . words