program answer
  implicit none
  integer(8) :: N, K, i
  integer(8), allocatable :: A(:)
  read(*,*) N, K
  allocate(A(N))
  read(*,*) A

  do i = K+1, N
     if(A(i-K)<A(i)) then
        write(*,*) 'Yes'
     else
        write(*,*) 'No'
     end if
  end do

  stop
 end program answer
