cat(a<-rep(9,8e3),"
",a,sep="")