a:"0123456789";for i in charlist(?read\-line())do(?princ(ssearch(i,a)-1),a:concat(i,sremove(i,a)));
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page