program test02
 implicit none
!character a, b
 integer a, b
 integer i, ii, j, jj

 read(5,*) a, b

 if ( a < b ) then
  do i=1,b
  write (*,fmt='(i0)',advance='no') a
  end do
 else
  do j=1,a
  write (*,fmt='(i0)',advance='no') b
  end do
 end if

endprogram test02
