program marks
  implicit none

  integer(8) :: n, k
  integer(8) :: a(0:200000)
  integer(8) :: i
  integer(8) :: eval0, eval

  read(*, *) n, k
  read(*, *) (a(i), i=0, n-1)

  eval = 1
  eval0 = 1

  do i = 0, n
    eval0 = eval
    eval = eval*a(i)
    if (i >= k) then
      eval = eval/a(i-k)
      if (eval > eval0) then
        write(*, *) 'Yes'
      else
        write(*, *) 'No'
      end if
    end if
  end do




end program marks