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.