returnst ::Int -> Int -> String
returnst x y
  | y==0 = show x
  | y>=0 = show x ++ returnst x (y-1)
main = do
 [a,b] <- map read . words <$> getLine
 if returnst a b > returnst b a then print $ (read $ returnst b a ::Int) else print $ (read $ returnst a b ::Int)