let game () = let n = read_int () + 1 in let a = Array.make n true in let limit = int_of_float (sqrt (float n)) in for i = 2 to limit do if a.(i) then begin for j = 2 to (n - 1) / i do a.(j * i) <- false done end done; a.(0) <- false; a.(1) <- false; let n = Array.fold_left (fun acc -> function true -> acc + 1 | false -> acc) 0 a in print_endline (if n mod 2 = 1 then "Alice" else "Bob") let () = let n = read_int () in for i = 1 to n do game () done