: l dup base ! 1- 1 over 0 do 2dup swap 0 do dup 3 .r over + loop drop cr 1+ loop ; key 10 * 474 - l
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page