; 入力文字を反転してから一文字ずつ反転していく
(defun main ()
  (let* ((s (reverse (read-line))))
    (loop for c across s
          do (write-char (ecase c (#\< #\>) (#\> #\<))))
    (terpri)))
(main)