var w=3
for(l<-"";d<-1 to l)printf(" "*(1/d*w%7*3)+"%3d"+"\n"*Seq(w%7/6,2)(d/l),d,w+=1)