var n:longint;
    val:longint;
    dif:longint;
    maxDif:longint;
    i:longint;
function abs(i:longint):longint;
begin
   if i < 0 then 
      abs:=-i
   else
      abs:=i;
end;
begin
   readln(n);
   while (n<>0) do begin
      dif:=0;maxDif:=0;
      for i:=1 to N do begin
         read(val);
	 write(val,'-');
	 if (abs(dif-val) <= MaxDif) then begin
	    write('B ');
	    dif:=dif-val;
	 end else begin
	    write('A ');
	    dif:=dif+val;
	 end;
	 if abs(dif)>MaxDif then MaxDif:=dif;
      end;
      writeln;
      readln(n);
   end;
end.