: 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