character*20::str
  character*20::mirror
  integer::len
  data str/""/, mirror/""/
  read *,str
  len = len_trim(str)
  do i=len, 1, -1
     if (str(i:i).eq.'<') then
        mirror(len-i+1:len-i+1) = '>'
     else
        mirror(len-i+1:len-i+1) = '<'
     end if
  end do
  print '(a)', mirror
  end program