cat(d<-paste(a<-"LOLLIPOP",a,b<-"OH",c<-"LOLLI",c,c),d,d,a,b,a)