open System
let R T = stdin.ReadLine()|> T
let RS T = stdin.ReadLine().Split()|>Array.map T
let Mod = (1e9|>int64)+7L
[<EntryPoint>]
let main argv =
    let a,b = RS int |>fun c -> (min c.[0] c.[1]),(max c.[0] c.[1])
    for i in [0..b-1] do
        stdout.Write a
    stdout.WriteLine ""
    0
