import Control.Applicative ((<$>))

main :: IO ()
main = solve <$> map read <$> words <$> getLine >>= print

solve :: [Int] -> Int
solve [a, b] = g * (gcd g (a' + b'))
  where g = gcd a b
        a' = a `div` g
        b' = b `div` g