var i,d,n:byte;
    f1,f2:text;
begin
    assign(input,'TGKYTU.INP');reset(input);
    assign(output,'TGKYTU.OUT');rewrite(output);
    readln(input,n);
    d:=0;
    while d<n do
      begin
          inc(d);
          for i:=1 to (d div 2) do write(output,'ABB');
          if d mod 2<>0 then write(output,'AB');
          writeln(output);
      end;
    close(input);close(output);
end.

uses crt;
var f:text; i,n:longint; s:string;
begin
clrscr;
   assign(f,'TGKYTU.INP');reset(f);
      readln(f,n);
   close(f);
   assign(f,'TGKYTU.OUT');rewrite(f);
      for i:=1 to n do 
         begin 
            if i mod 2=1 then s:=s+'AB' else s:=s+'B';
            writeln(f,s);
         end;
   close(f); 
end.