main=do n<-readLn;putStr$do y<-[2..n]++[2];(" Z"!!div 2y<$[y..n])++"Z\n"