program main
    implicit none

!    character,allocatable :: str(:)
     character(:),allocatable :: ca, cb!, cca, ccb
    integer :: nb , ia, ib, i, ma, mb, tena, tenb
    character(100) :: cca, ccb
    character(1) :: a,b 
    

    read(*,*) a, b
    
    read(a,*) ia     ! 内部read文で文字列を整数に変換
    read(b,*) ib     ! 内部read文で文字列を整数に変換


    tena=0
    tenb=0
    
    do i=1,ib
       tena=tena+10**(i-1)
       ma=tena*ia
    enddo
    do i=1,ia
       tenb=tenb+10**(i-1)
       mb=tenb*ib
    enddo

!    print *, ma, mb
    
    write(cca,*) ma    ! 内部write文で整数を文字列に変換
    ca =trim(adjustl(cca)) 
    write(ccb,*) mb    ! 内部write文で整数を文字列に変換
    cb =trim(adjustl(ccb)) 
    
    if(LGE(ca,cb).eqv. .true. ) then
       print *,cb
    else
       print *, ca
    end if


  end program main
