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("
")}