Scanf.scanf "%d %d" (fun n k ->
    let a = Array.init n (fun _ -> Scanf.scanf " %d" (fun a -> a)) in

    for i = k to n - 1 do
        print_endline @@ if a.(i) > a.(i - k) then "Yes" else "No"
    done
)