solve :: String -> String solve s = map (\c -> if c == '<' then '>' else '<') $ reverse s main = do s <- getLine putStrLn $ solve s