main :: IO ()
main = getLine >>= print . (\[a,b] -> gcd a b) . map read . words

依旧函数大手子