ibase:8;s:ssubst;while(a:?read\-line(?-,?-,~))#~do dispterms(eval_string(s("7","8",s("6","7",s("5","6",s("4","5",a))))));
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page