program main
    implicit none
    integer n,k
    integer, allocatable, dimension(:) :: a, e
    integer i
    read(*,*) n,k
    allocate(a(n))
    allocate(e(n))
    read(*,*) a
    e = 0
    e(k) = 1

    do i = 1, k
        e(k) = e(k)*a(i)
    end do

    do i = k+1,n,1
        e(i) = e(i-1)*a(i)/a(i-k)
        if(e(i) > e(i-1)) then
            write(*,*) "Yes"
        else
            write(*,*) "No"
        end if
    end do

end program
