: a for 30. do c" *apple"1+ j i + 30 mod 1+ dup 6 < * - 1 type loop cr next ; stdin slurp-fid evaluate a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page