m@main=getLine>>=putStrLn.foldr(\c s->c:filter(c<)s)[]>>m