let words str =
  let len = String.length str in
  let buf = Buffer.create 10 in
  let rec loop cont = function
      i when i = len -> cont [Buffer.contents buf |> int_of_string]
    | i ->
      loop
        (match str.[i] with
         | ' ' ->
           let v = Buffer.contents buf |> int_of_string in
           Buffer.clear buf; (fun x -> cont (v::x))
         | c ->
           Buffer.add_char buf c; cont)
        (i+1)
  in loop (fun x -> x) 0

let setTable table seq =
  let rec loop acc = function
      [] -> ()
    | h::t -> let v = h+acc in
              table.(v) <- true;
              loop acc t;
              loop v t
  in loop 0 seq
       
let () =
  let _ = read_int () in
  let an = read_line () |> words in
  let _ = read_int () in
  let mi = read_line () |> words in
  let table = Array.make 20001 false in
  setTable table an;
  List.iter (fun x -> Printf.printf "%s\n" (if table.(x) then "yes" else "no"))
            mi