CHARACTER(100) S,T
CHARACTER AKI
READ*,S,T
!バブルソート
do i=1,LEN_TRIM(S)-1
  do j=i+1,LEN_TRIM(S)
    if(ICHAR(S(I:I)) .gt. ICHAR(S(J:J)) )then
      AKI=S(I:I)
      S(I:I)=S(J:J)
      S(J:J)=AKI
    end if
  end do
end do
!もう一回バブルソート
do i=1,LEN_TRIM(T)-1
  do j=i+1,LEN_TRIM(T)
    if(ICHAR(T(I:I)) .LE. ICHAR(T(J:J)) )then
      AKI=T(I:I)
      T(I:I)=T(J:J)
      T(J:J)=AKI
    end if
  end do
end do
PRINT"(A)",MERGE("Yes"," No",LLT(S,T))
END