main :: IO ()
main = do
    [a,b] <- map read . words <$> getLine :: IO [Int]
    putStrLn $
        if a < b then concatMap show . take b $ repeat a
                 else concatMap show . take a $ repeat b