n, k = gets.split.map(&:to_i)
scores = gets.split.map(&:to_i)

prev_grade = (0...k).inject(1) { |result, i| result *= scores[i] }

(k + 1..n).each do |period|
  now_grade = (period - k...period).inject(1) { |result, i| result *= scores[i] }

  if prev_grade < now_grade
    puts 'Yes'
  else
    puts 'No'
  end

  prev_grade = now_grade
end
