program sample
    implicit none
  
    integer(8) :: i,j,m,n,k
    integer(8),allocatable :: x(:),y(:)
  
    read(*,*) n,k
    allocate(x(n))
    read(*,*)x
    do i=1,n-k
        if(x(i)<x(k+i))then
            write(*,*)'Yes'
        else
            write(*,*)'No'
        end if
    end do
    
    stop
end program sample
  

