program main implicit none character*13::S integer::len read *,S len = LEN_TRIM(S) if(S(len-1:len).eq."ai") then S(len-1:len) = "AI" else S(len+1:len+3) = "-AI" end if print '(a)',TRIM(S) end program main