! 2020.1.19
!
      program answer
      implicit none
      integer :: a,b,i
      integer :: ans
      read(*,*) a,b
      ans = 0
      if(a > b) then
        do i=1,a
          ans = ans + b*10**(i-1)
        end do
      else
        do i=1,b
          ans = ans+a*10**(i-1)
        end do 
      end if
      write(*,*) ans
      end program answer