cat(a<-rep(9,8000),"\n",a,sep="")