(for i 1 1e3(= o"")(on c(+""i)(if(pos c"369")(++ o'Clap)))(prn:if(<""o)o i))