program main
  implicit none
  integer :: a, b, i, ndig, face, ar(10)
  read (*, *) a, b
  if (a <= b) then
    face = a
    ndig = b
  else
    face = b
    ndig = a
  end if
  ar(:) = face
  write (*, "(10(i0))") ar(1:ndig)
end program main
