for i=1to 1e3k=0:for j=0to 2if!mod(mod(i/10^j,10)-1,3)<2k=1:?"Clap";
next:if!k?i;
?next