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

max = n - k + 1

p_count = 0

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

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

	t_p = p[i]
}

if count >= k then
	p_count += 1
end

min_q = []
max_q = []
del = 0

w = k - 1

(0...p.size).each{ |i|
#	print i, min_q, max_q, "\n"

	if i >= k && p[i] > max_q[0] && p[i - k] < min_q[0] then
		del += 1
	end

	if i >= w then
		if min_q[0] == p[i - w] then
			min_q.shift
		end
		if max_q[0] == p[i - w] then
			max_q.shift
		end
	end
	
	min_i = min_q.bsearch_index{ |x| x > p[i] }
	if min_i != nil then
		min_q.pop(min_q.size - min_i)
	end
	max_i = max_q.bsearch_index{ |x| x < p[i] }
	if max_i != nil then
		max_q.pop(max_q.size - max_i)
	end

	min_q.push(p[i])
	max_q.push(p[i])
}

#print del, p_count, "\n"
puts max - [p_count - 1, 0].max - del