let p=Printf.printf;;for n=1to 1000do
let(@)k?(i=n/k mod 10)x=x>(i/3*3=i&i>0&()=p"Clap")in
1@10@100@true&()=p"%d"n;p"
"done