import Control.Applicative ((<$>)) sumProdGCD :: Integral a => a -> a -> a sumProdGCD a b = gcd (a + b) (a * b) main :: IO () main = do [a, b] <- fmap read . words <$> getLine :: IO [Integer] print $ sumProdGCD a b