m@main=getLine>>=putStrLn.foldr(!)"".words>>m
">"!a=a
x!a='<':x++'>':a++"</"++x++">"