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

sum = Array.new(n+1, 1)
sum[1] = a[0]
1.upto(n) do |i|
  sum[i] = a[i-1] * sum[i-1]
end

(n-k).times do |i|
  now = sum[k + i + 1] / sum[i + 1]
  pre = sum[k + i] / sum[i]
  if now > pre
    puts 'Yes'
  else
    puts 'No'
  end
end
