main=putStr$do c<-['Y','X'..'@'];i<-[1,33];['A'..c]++[c..]!!i:"\n"