main = putStrLn . map f . reverse =<< getLine f :: Char -> Char f '>' = '<' f '<' = '>' f _ = '@'