Imports System

Module Program
    Sub Main(args As String())
        Dim Str As String = Console.ReadLine()

        Dim intA As Integer = Integer.Parse(Str.Substring(0, Str.IndexOf(" ")))
        Dim intB As Integer = Integer.Parse(Str.Substring(Str.IndexOf(" ") + 1, Str.Length - Str.IndexOf(" ") - 1))

        Dim strA As String = ""
        For i = 1 To intB
            strA = strA & intA
        Next

        Dim strB As String = ""
        For i = 1 To intA
            strB = strB & intB
        Next

        If strA < strB Then
            Console.WriteLine(strA)
        Else
            Console.WriteLine(strB)

        End If

    End Sub
End Module
