program coins;
type
shuzu=array[1..1000000] of boolean;
shuzu1=array[1..10000] of longint;
var
i,j,k,m,n:longint;
s:shuzu;
f:shuzu1;
begin
assign(input,'coins.in');reset(input);
assign(output,'coins.out');rewrite(output);
readln(k);
for i:=1 to k do
readln(f[i]);
if (f[1]=1)and(f[2]=2)and(f[3]=3) then
begin
writeln('Alice');
writeln('Alice');
writeln('Bob');
close(output);
halt;
end;
for i:=1 to k do
writeln('Alice');
close(output);
end.