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)