import Data.Bits

main :: IO ()
main = interact $ show . (\[x, y] -> y .|. x) . map (read :: String -> Int) . words