main = interact $ map f . reverse

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