N, K, *P = $<.read.split.map(&:to_i)

pm, n = 0, 2-K
i, Q, min_h, min_t, max_h, max_t = 0, [0]*N, 0, 0, N-1, N-1
until (i+=1) == N
	p = P[i]

#	assert(0 <= min_h <= min_t <= max_t <= max_h < N)
	min_gone = Q[min_h] == i-K
	if p < P[Q[min_h]]
		min_h  = min_t
		min_t -= 1
	else
		min_t -= 1 while p < P[Q[min_t]]
		min_h += 1 if Q[min_h] == i-K
	end
	if P[Q[max_h]] < p
		max_h  = max_t
		max_t += 1
	else
		max_t += 1 while P[Q[max_t]] < p
		max_h -= 1 if Q[max_h] == i-K
	end
	Q[min_t+=1] = Q[max_t-=1] = i
	max_entered = Q[max_h] == i
#	assert(0 <= min_h <= min_t <= max_t <= max_h < N)

	if min_t-min_h+1 == K
		pm = 1
	elsif ! min_gone or ! max_entered
		n += 1
	end
end

p n+pm
