main=putStr$do c<-"O1\nT2\nY3\n4N5N6";[c|c<'A']++(' '<$['A'..c])