: 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