cat(sprintf(x<-"cat(sprintf(x<-%s%s%s,q<-rawToChar(as.raw(34)),x,q))",q<-rawToChar(as.raw(34)),x,q))