program coins;
var
  i,k,n:longint;
  num:array [1..10000] of longint;
begin
  assign (input,'coins.in');
  reset (input);
  assign (output,'coins.out');
  rewrite (output);
  readln (k);
  for i:=1 to k do readln (num[i]);
  close (input);
  if (k=3) and (num[1]=1) and (num[2]=2) and (num[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.