n,k = gets.split.map &:to_i
p = gets.split.map &:to_i

max = n - k + 1

p_count = 0
del = 0

count = 1
t_p = p[0]
start_i = 0
a = []

(0...p.size).each{ |i|
	if p[i] > t_p then
		count += 1
	else
		a << [start_i, i - 1]
		if count >= k then
			p_count += 1
			del += count - k
		end
		count = 1
		start_i = i
	end

	t_p = p[i]
}

a << [start_i, p.size - 1]
if count >= k then
	p_count += 1
	del += count - k
end

a.each_cons(2){ |x|
	if x[1][0] - x[0][0] >= k && x[1][1] - x[0][1] >= k then
		del += 1
	end
}

puts max - p_count - del