program main
    implicit none
    integer(8) n,k
    integer(8), allocatable, dimension(:) :: a
    integer(8) i
    read(*,*) n,k
    allocate(a(n))
    read(*,*) a

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

end program
