: b / 1- 10 mod 3 mod 2 = if ." Clap"0 * then ; : a 1001 1 do 1 i 100 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