for(j in 2:8)write(rep(1:9,1:9*0+j),T,j,,"")