module kkk
  sub main()
    
    dim ab() as integer = Array.ConvertAll(Of String, Integer)(Console.ReadLine.Split(" "), AddressOf Integer.Parse) 
    dim a as long = ab(0)
    dim b as long = ab(1)
    
    dim ia as long
    dim ib as long
    
    dim i as long
    
    for i = 1 to b
    ia = ia * 10 + a
  next
  
  for i = 1 to a
  ib = ib * 10 + b
next

if a >= b then
  console.writeline(ib)
else
  console.writeline(ia)
end if

end sub
end module
    