program bing;
var
 f1,f2:text;
 k:integer;
 n,i:longint;
begin
 assign(f1,'coins.in');reset(F1);
 assign(f2,'coins.out');rewrite(f2);
 readln(f1,k);
 for i:=1 to k do
 begin
 readln(f1,n);
 if n mod 2=0 then
 begin
 if (n div 2)mod 2=1 then writeln(f2,'Bob') else writeln(f2,'Alice');
 end
 else
 begin
 if (n div 2)mod 2=1 then writeln(f2,'Alice')else writeln(f2,'Bob');
 end;
 end;
 close(f1);close(f2);
end.