a=3 for(x in 31-c(0,2,b<-0:4%%2,b)){write(c(rep(" ",a%%7),format(1:x,w=3)),1,7,,"") a=a+x cat(" ")}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page