$<.chars{|c|A=c<$/?putc(A>c ?c:$/):$/
$/=c}