write(gsub("[^369]*[369][^369]*","Clap",1:1e3),"")