Move To Front Encode by jpl

a="0123456789";$<.chars{|c|print a=~/#{c}/;a=c+$`+$'}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top