program coins;
const
fin='coins.in';
fou='coins.out';
var
f:array[1..1000000]of boolean;
a:array[1..1000000]of longint;
m,n,i,j:longint;
f1,f2:text;

procedure init;
begin
assign(f1,fin);
assign(f2,fou);
reset(f1); rewrite(f2);
read(f1,n);
for i:=1 to n do
begin
read(f1,a[i]);
if a[i]>m then m:=a[i];
end;
f[1]:=true; f[2]:=true; f[3]:=false;
end;

procedure main;
begin
for i:=4 to m do
if (f[i-1]=false)or(f[i-2]=false) then f[i]:=true;
end;

procedure print;
begin
for i:=1 to n do
begin
if f[a[i]]=true then writeln(f2,'Alice')
                else writeln(f2,'Bob');
end;
close(f1); close(f2);
end;

begin
init;
main;
print;
end.