for(i in 1:9)cat(paste(c(rep(" ",9-i),if(i==1)1 else c(1:i,(i-1):1),"\n")),sep="")