open Printf
open Scanf

let n, k = scanf "%d %d\n" (fun n k -> n, k)
let alist = Array.init n (fun _ -> scanf " %d" (fun x -> x))

let run () =
    let prev = ref (float alist.(0)) in
    for i = 1 to k - 1 do
        prev := !prev *. float alist.(i)
    done;
    for i = k to n - 1 do
        let cur = ref 1.0 in
        for j = i - k + 1 to i do
            cur := !cur *. float alist.(j)
        done;
        print_endline (if !prev < !cur then "Yes" else "No");
        prev := !cur
    done

let () = run ()
