import Control.Arrow ((>>>)) main :: IO () main = interact $ words >>> map read >>> solve solve :: [Integer] -> String solve xs = show (gcd (a+b) (a*b)) ++ "\n" where a = xs !! 0 b = xs !! 1