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

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top