#!perl -lp
@m=@c=();for$i(split//){@c=($#c<0||$c[$#c]<$i)?($i):(@c,$i);@m=$#c>$#m?@c:@m}$_=join"",@m