: b / 1- 10 mod 3 mod 2/ if ." Clap"2/ then ; : a 1001 1 do 1 i 'd b i 10 b i 1 b if i 0 .r then cr loop ; a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page