module Main where

main :: IO ()
main = getIntList >>= print . solve

solve :: [Integer] -> Integer
solve [a, b] = gcd (a + b) $ a * b

getIntList :: IO [Integer]
getIntList = map read . words <$> getLine