import Control.Applicative ((<$>))
import Data.List

main :: IO ()
main = do
  solve <$> getLine >>= putStrLn

solve :: String -> String
solve = reverse . map f
  where
    f '<' = '>'
    f '>' = '<'