Imports System

Module Program
    Sub Main(args As String())

        Dim NK() As Integer = Console.ReadLine().Split(" ").Select(Function(x) Integer.Parse(x)).ToArray()
        Dim N As Integer = NK(0)
        Dim K As Integer = NK(1)
        Dim A() As Integer = Console.ReadLine().Split(" ").Select(Function(x) Integer.Parse(x)).ToArray()

        For i As Integer = K + 1 To N

            Dim zenhyo As Long = A(i - K - 1)

            Dim hyoka As Long = A(i - 1)

            If zenhyo < hyoka Then
                Console.WriteLine("Yes")
            Else
                Console.WriteLine("No")
            End If

        Next

    End Sub

End Module
