main=putStr$[j|i<-[1..18],j<-[1..i],j<19-i]>>=show