p:= > " "split do(File standardInput foreach(c,p or p=c at(if(c<p,0,if(p<c,2,1)))append(c)))join print
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page