let () =
  Scanf.scanf "%d %d\n" @@ fun n k ->
  let arr = Array.init n @@ fun _ -> Scanf.scanf "%d " @@ fun d -> d in
  let rec makeHyoka i k ans =
    if k = 0 then ans else makeHyoka (i-1) (k-1) (arr.(i)*ans) in
  let brr = Array.make (n-k+1) 0 in
  for i = k to n do
    brr.(i-k) <- makeHyoka (i-1) k 1
  done;
  let h::t = Array.to_list brr in
  let bfr = ref h in
  List.iter (fun x -> if !bfr < x then (bfr := x; print_endline "Yes")
              else (bfr := x; print_endline "No")) t