program pr3
  implicit none
  integer :: n, k, i
  integer(8),allocatable :: a(:)
  integer(8) :: r
  
  read(*,*) n, k
  allocate(a(n))
  read(*,*) a
  
  do i = k+1, n
     r = a(i) - a(i-k)
     if ( r >= 1 ) then
        write(*,'(a)') 'Yes'
     else
        write(*,'(a)') 'No'
     end if
  end do
  
  stop
end program pr3
