import Control.Applicative import Control.Monad import Data.List main = do s <- getLine putStrLn $ reverse . map flp $ s flp c | c == '<' = '>' | c == '>' = '<'