s%c=s++[c|all(<=c)s]
main=interact$foldl(%)""