: a 2000. do i 9. do 0 4. do swap 10 /mod -rot dup * + loop + loop 1 = if i 0 .r cr then loop ; a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page