for(i in(a=b=1):9)write(c(1:9,LETTERS)[1:a],T,a<-a+(b=a-b),,"")