END{for(r="[^369]*";1e3>=$0=++i;)print$!gsub(r"[369]"r,"Clap")}