var
   a: array [1..26] of longint;
   i, c: longint;

begin
     randomize;
     fillchar(a, sizeof(a), 0);
     for i := 1 to 1000000 do begin
         repeat c := random(26); until a[c] < 40000;
         write(chr(c + 97));
         inc(a[c]);
     end;
end.