: a 770 3 do 0 i 2 do j i i * mod 0= 9 * - j i mod 0= - loop 6 = 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