Module Module1

    Sub Main()

        Dim tmp As String() = Split(Console.ReadLine(), " ")
        Dim a As Integer = CInt(tmp(0))
        Dim b As Integer = CInt(tmp(1))
        Dim strA As String = ""
        Dim strB As String = ""

        For i As Integer = 1 To b
            strA += tmp(0)
        Next
        For i As Integer = 1 To a
            strB += tmp(1)
        Next

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

    End Sub

End Module
