main = interact $ (++ "\n") . map f . reverse

f :: Char -> Char
f '>' = '<'
f '<' = '>'
f  _  = '?'