
Imports System.Console
Module Module1
    Dim ans As Integer
    Sub Main()
        Dim s1() As String = ReadLine().Split
        Dim n, k As Integer
        n = s1(0)
        k = s1(1)
        Dim s2() As String = ReadLine().Split
        Dim A(n) As Integer
        For i = 0 To n - 1
            A(i + 1) = s2(i)
        Next
        For i = 1 To n - k
            If A(k + i) / A(i) > 1 Then
                WriteLine("Yes")
            Else
                WriteLine("No")
            End If
        Next
    End Sub
End Module
