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