cat(a<-rep("99999999",1e3),"
",a,sep="")