program marks
  implicit none
  integer :: n, k, a(200000) = 0, i
  read(*,*) n, k
  read(*,*) a(1:n)
  do i = k + 1, n
    write(*,'(a)') trim(merge('Yes', 'No ', a(i) > a(i - k)))
  end do
end program marks