bool:array[0..50]of boolean；

a,n,i,x:longint；

begin

readln(n)；

for i:=1 to n do

begin

readln(a)；

fillchar(bool,sizeof(bool),false)；

if a<=0 then writeln(None)else

begin

x:=0；

repeat

if a mod 2=1 then

begin

a:=a-1；

bool[x]:=true；

end

else

begin

inc(x)；

a:=a div 2；

end；

until a=0；

if x>25 then writeln(None)else

begin

while not(bool[x])do dec(x)；

for j:=0 to x-1 do if bool[j] then write(chr(65+j), )；

writeln(chr(x+65))；

end；

end；

end；

end.