for(i in a<-1:9)cat(rep(" ",9-i),a[i>a],i:1,"
",sep="")