      PROGRAM Marks
      IMPLICIT NONE
      INTEGER,PARAMETER :: p = 16
      integer(p) :: n,k, i
      integer(p),allocatable :: a(:),score(:)
      
      read*,n,k
      allocate( a(n),score(n) )
      read*,a
      
      score = 0
      score(k) = 1
      do i = 1,k
        score(k) = score(k)*a(i)
      end do
      
      do i = k+1,n
        score(i) = score(i-1)/a(i-k)*a(i)
      end do
      
      do i = k+1,n
        if( score(i)>score(i-1) )then
          print*,'Yes'
        else
          print*,'No'
        end if
      end do
      
      
      stop
      !debugg
      
      do i = k,n
        print*,score(i)
      end do
      
      END PROGRAM