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 - 2)
            For j As Integer = i - 1 To i - K Step -1
                If A(j - 1) = 0 Then zenhyo = 0
            Next
            If zenhyo <> 0 Then
                For j As Integer = i - 2 To i - K Step -1
                    zenhyo *= A(j - 1)
                Next
            End If

            Dim hyoka As Long = A(i - 1)
            For j As Integer = i To i - K + 1 Step -1
                If A(j - 1) = 0 Then hyoka = 0
            Next
            If hyoka <> 0 Then
                For j As Integer = i - 1 To i - K + 1 Step -1
                    hyoka *= A(j - 1)
                Next
            End If

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

    End Sub
End Module
