(defvar S)
(setq S (read-line))

(defvar temp)
(setq temp (make-array (length S)))
;(loop for i from 0 to (- (length S) 1) do
(loop for i from (- (length S) 1) downto 0 do

        (format t "~c" (if (eql (aref S i) #\>) #\< #\>))
        (values)
)
(format t "~%")