T:=P:=''.stdin contents do:[:c|(P=''or:[c=P last])and:[P:=P,{c}];or:[P>{c}and:[c display];or:[T:=T,{c}]]].(P,T)display!
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page