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