main = do s <- map f . reverse <$> getLine putStrLn s f :: Char -> Char f '>' = '<' f '<' = '>' f _ = error ""