l=lapply(2:9,function(n)c(1:n,(n-1):1))
cat(paste(c(rep(" ",8),1,"\n")),sep="")
for (i in 1:8) cat(paste(c(rep(" ",8-i),l[[i]],"\n")),sep="")