program abc;
var i:char;
begin
     for i:='A' to 'Z' do write(i:3);
     readln
end.