BEGIN{for(;($0=++a)<1001;){gsub(/[369]/,"Clap")&&gsub(/[0-9]/,p);print}}