program coins;
type
fxz1=array[1..1000000] of integer;
var
f1,f2:text;
i,k,max:longint;
ans,a:fxz1;

begin
assign(f1,'coins.in');
assign(f2,'coins.out');
reset(f1);rewrite(f2);
readln(f1,k);

{.................................}
max:=0;
for i:=1 to k do
begin
readln(f1,a[i]);
if a[i]>=max then max:=a[i];
end;
{.................................}
ans[1]:=1;ans[2]:=1;
if max>=3 then for i:=3 to max do
               if (ans[i-1]=1)and(ans[i-2]=1) then ans[i]:=2
                                              else ans[i]:=1;
for i:=1 to k do
if ans[a[i]]=1 then writeln(f2,'Alice')
               else writeln(f2,'Bob');
close(f1);close(f2);
end.