: a tuck + swap 2* 1 +do 1- dup c@ over i + c! dup i 1+ type cr 2 +loop ; stdin slurp-fid a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page