import Control.Applicative reverseDir :: Char -> Char reverseDir '<' = '>' reverseDir '>' = '<' main = do putStrLn =<< map reverseDir . reverse <$> getLine