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 () =
    for i = k to n - 1 do
        let x = alist.(i - k) in
        let y = alist.(i) in
        print_endline (if x < y then "Yes" else "No")
    done

let () = run ()
