program p918;
Var i, j : Char;
Begin
For i := 'A' To 'Z' Do
Begin
For j := 'A' To chr(ord(i)-1) Do
Write('Z');
For j := i To 'Z' Do
Write(j);
End;
End.