module Main where

import Control.Applicative

mygcd x 0 = x
mygcd 0 y = y
mygcd x y
    | x >= y    = gcd y $ mod x y
    | otherwise = gcd x $ mod y x

main = do
    (x:y:[]) <- (map read . words) <$> getLine
    print $ mygcd x y

