let read_n_int () = let temp = read_line () in let digits = String.split_on_char ' ' temp in List.map int_of_string digits let input_data () = let read_test_case () = let _d, a = Scanf.sscanf (read_line ()) "%d %d" (fun a b -> (a, b)) in let x_s = read_n_int () in (a, x_s) in let t = read_int () in let testcases = List.init t (fun _ -> read_test_case ()) in testcases let rec print_int_list l = match l with | [] -> ignore () | h :: tl -> print_int h; if tl = [] then ignore () else ( print_char ' '; print_int_list tl ) let () = let testcases = input_data () in let ans = List.map (fun (a, x_s) -> List.map (fun x -> (2 * x + a) / (2 * a)) x_s) testcases in List.iter (fun testcase_result -> print_int_list testcase_result; print_newline ()) ans