main :: IO ()
main = do
  [a, b] <- fmap (map read . words) getLine
  putStrLn . show $ gcd (a + b) (a * b)