fun readStr () = let fun scan reader stream = SOME (StringCvt.splitl (not o Char.isSpace) reader (StringCvt.skipWS reader stream)) in valOf (TextIO.scanStream scan TextIO.stdIn) end val () = let val s = readStr () val ans = String.implode (List.map (fn ch => if ch = #"<" then #">" else #"<") (List.rev (String.explode s))) in print (ans ^ "\n") end