// May this submission get accepted!

#pragma GCC optimize ("O3")
#pragma GCC target ("tune=native")
#pragma GCC target ("avx")

#include <bits/stdc++.h>

// 汎用マクロ
#define ALL_OF(x) (x).begin(), (x).end()
#define REP(i,n) for (long long i=0, i##_len=(n); i<i##_len; i++)
#define RANGE(i,is,ie) for (long long i=(is), i##_end=(ie); i<=i##_end; i++)
#define DSRNG(i,is,ie) for (long long i=(is), i##_end=(ie); i>=i##_end; i--)
#define UNIQUE(v) do { sort((v).begin(), (v).end()); (v).erase(unique((v).begin(), (v).end()), (v).end()); } while (false)
template<class T> bool chmax(T &a, const T &b) {if (a < b) {a = b; return true;} return false; }
template<class T> bool chmin(T &a, const T &b) {if (a > b) {a = b; return true;} return false; }
#define INF 0x7FFFFFFF
#define LINF 0x7FFFFFFFFFFFFFFFLL
#define Yes(q) ((q) ? "Yes" : "No")
#define YES(q) ((q) ? "YES" : "NO")
#define Possible(q) ((q) ? "Possible" : "Impossible")
#define POSSIBLE(q) ((q) ? "POSSIBLE" : "IMPOSSIBLE")
#define DUMP(q) cerr << "[DEBUG] " #q ": " << (q) << " at " __FILE__ ":" << __LINE__ << endl
#define DUMPALL(q) do { cerr << "[DEBUG] " #q ": ["; REP(i, (q).size()) { cerr << (q)[i] << (i == i_len-1 ? "" : ", "); } cerr << "] at " __FILE__ ":" << __LINE__ << endl; } while (false)
template<class T> T gcd(const T &a, const T &b) { return a < b ? gcd(b, a) : b ? gcd(b, a % b) : a; }
template<class T> T lcm(const T &a, const T &b) { return a / gcd(a, b) * b; }

// gcc拡張マクロ
#define popcount __builtin_popcount
#define popcountll __builtin_popcountll

// エイリアス
#define DANCE_ long
#define ROBOT_ unsigned
#define HUMAN_ signed
#define CHOKUDAI_ const
using  ll = DANCE_ HUMAN_ DANCE_;
using ull = DANCE_ ROBOT_ DANCE_;
using cll = DANCE_ DANCE_ CHOKUDAI_;
using  ld = long double;
using namespace std;

// モジュール
// 遅延評価セグ木 (RminQ(値: 最小値, 操作: 置換)になっているので適宜書き換えのこと)
class segtree_rminq {
    
    // ---------- 書き換え部分 はじめ ----------
    
    using T = ll; // 値の型
    using U = ll; // 値を書き換える操作の型
    
    const T IT = 0x7FFFFFFFFFFFFFFFLL; // T の単位元
    const U IU = 0x7FFFFFFFFFFFFFFFLL; // U の単位元
    
    // 値同士のjoin
    T join_t    (T x, T y) const { return x < y ? x : y; }
    // 操作を値に適用する
    T apply_u   (T x, U y) const { return y; }
    // 操作をjoinする
    U join_u    (U x, U y) const { return x < y ? x : y; }
    // 操作をn回やる操作を作る（nは2冪で呼ばれる）
    U multiply_u(U x, ll n) const { return x; }
    // 半分の操作を作る（Uはmultiply_uで2冪倍されているはず）
    U half_u    (U x) const { return x; }
    
    // ---------- 書き換え部分 おわり ----------
    
    ll n;
    vector<T>    node;
    vector<U>    lazy;
    vector<bool> fall;
    
    // [l, r) を見ており, k を遅延評価
    inline void eval(ll k, ll l, ll r) {
        if (!fall[k]) return;
        node[k] = apply_u(node[k], lazy[k]);
        if (r-l > 1) { // 子があるなら伝播
            lazy[k*2+1] = join_u(lazy[k*2+1], half_u(lazy[k]));
            lazy[k*2+2] = join_u(lazy[k*2+2], half_u(lazy[k]));
            fall[k*2+1] = fall[k*2+2] = true;
        }
        lazy[k] = IU;
        fall[k] = false;
    }
    
public:
    
    // コンストラクタ
    segtree_rminq(const vector<T> &v) {
        ll sz = (ll)v.size();
        n = 1; while (n < sz) n *= 2;
        this->node = vector<T>(n * 2 - 1, IT);
        this->lazy = vector<T>(n * 2 - 1, IU);
        this->fall = vector<bool>(n * 2 - 1, false);
        for (ll i = 0; i < sz; i++) node[n-1 + i] = v[i];
        for (ll i = n-2; i--; )  node[i] = join_t(node[i*2+1], node[i*2+2]);
    }
    
    // 区間 [a, b) に x を適用（但し, [l, r)を見て今kをいじっている）
    void apply(ll a, ll b, U x, ll k = 0, ll l = 0, ll r = -1) {
        if (r < 0) r = n; // デフォルト値には定数しか入れられない
        eval(k, l, r);
        if (b <= l || r <= a) return; // セグフォ防止
        if (a <= l && r <= b) {
            lazy[k] = join_u(lazy[k], multiply_u(x, r - l));
            fall[k] = true;
            eval(k, l, r);
        } else {
            apply(a, b, x, k*2+1, l, (l+r)/2);
            apply(a, b, x, k*2+2, (l+r)/2, r);
            node[k] = join_t(node[k*2+1], node[k*2+2]);
        }
    }
    
    // 区間 [a, b) の操作後の値を求める
    T fetch(ll a, ll b, ll k = 0, ll l = 0, ll r = -1) {
        if (r < 0) r = n; // デフォルト値には定数しか入れられない
        if (b <= l || r <= a) return IT; // セグフォ防止
        eval(k, l, r);
        if (a <= l && r <= b) return node[k];
        T vl = fetch(a, b, k*2+1, l, (l+r)/2);
        T vr = fetch(a, b, k*2+2, (l+r)/2, r);
        return join_t(vl, vr);
    }
    
};
// 遅延評価セグ木 (RminQ(値: 最小値, 操作: 置換)になっているので適宜書き換えのこと)
class segtree_rmaxq {
    
    // ---------- 書き換え部分 はじめ ----------
    
    using T = ll; // 値の型
    using U = ll; // 値を書き換える操作の型
    
    const T IT = -0x7FFFFFFFFFFFFFFFLL; // T の単位元
    const U IU = -0x7FFFFFFFFFFFFFFFLL; // U の単位元
    
    // 値同士のjoin
    T join_t    (T x, T y) const { return x > y ? x : y; }
    // 操作を値に適用する
    T apply_u   (T x, U y) const { return y; }
    // 操作をjoinする
    U join_u    (U x, U y) const { return x > y ? x : y; }
    // 操作をn回やる操作を作る（nは2冪で呼ばれる）
    U multiply_u(U x, ll n) const { return x; }
    // 半分の操作を作る（Uはmultiply_uで2冪倍されているはず）
    U half_u    (U x) const { return x; }
    
    // ---------- 書き換え部分 おわり ----------
    
    ll n;
    vector<T>    node;
    vector<U>    lazy;
    vector<bool> fall;
    
    // [l, r) を見ており, k を遅延評価
    inline void eval(ll k, ll l, ll r) {
        if (!fall[k]) return;
        node[k] = apply_u(node[k], lazy[k]);
        if (r-l > 1) { // 子があるなら伝播
            lazy[k*2+1] = join_u(lazy[k*2+1], half_u(lazy[k]));
            lazy[k*2+2] = join_u(lazy[k*2+2], half_u(lazy[k]));
            fall[k*2+1] = fall[k*2+2] = true;
        }
        lazy[k] = IU;
        fall[k] = false;
    }
    
public:
    
    // コンストラクタ
    segtree_rmaxq(const vector<T> &v) {
        ll sz = (ll)v.size();
        n = 1; while (n < sz) n *= 2;
        this->node = vector<T>(n * 2 - 1, IT);
        this->lazy = vector<T>(n * 2 - 1, IU);
        this->fall = vector<bool>(n * 2 - 1, false);
        for (ll i = 0; i < sz; i++) node[n-1 + i] = v[i];
        for (ll i = n-2; i--; )  node[i] = join_t(node[i*2+1], node[i*2+2]);
    }
    
    // 区間 [a, b) に x を適用（但し, [l, r)を見て今kをいじっている）
    void apply(ll a, ll b, U x, ll k = 0, ll l = 0, ll r = -1) {
        if (r < 0) r = n; // デフォルト値には定数しか入れられない
        eval(k, l, r);
        if (b <= l || r <= a) return; // セグフォ防止
        if (a <= l && r <= b) {
            lazy[k] = join_u(lazy[k], multiply_u(x, r - l));
            fall[k] = true;
            eval(k, l, r);
        } else {
            apply(a, b, x, k*2+1, l, (l+r)/2);
            apply(a, b, x, k*2+2, (l+r)/2, r);
            node[k] = join_t(node[k*2+1], node[k*2+2]);
        }
    }
    
    // 区間 [a, b) の操作後の値を求める
    T fetch(ll a, ll b, ll k = 0, ll l = 0, ll r = -1) {
        if (r < 0) r = n; // デフォルト値には定数しか入れられない
        if (b <= l || r <= a) return IT; // セグフォ防止
        eval(k, l, r);
        if (a <= l && r <= b) return node[k];
        T vl = fetch(a, b, k*2+1, l, (l+r)/2);
        T vr = fetch(a, b, k*2+2, (l+r)/2, r);
        return join_t(vl, vr);
    }
    
};

// 処理内容
int main() {
    
    ll n, k; cin >> n >> k;
    vector<ll> p(n);
    REP(i, n) cin >> p[i];

    vector<bool> alr(n, false);
    {
        vector<ll> alri(n, 0);
        REP(i, n-1) alri[i] = p[i] < p[i+1] ? 1 : 0;
        segtree_rminq sgtalri(alri);
        REP(i, n-k+1) {
            alr[i] = sgtalri.fetch(i, i+k-1) == 1;
        }
    }

    ll ans = 0;
    segtree_rminq sgtm(p);
    segtree_rmaxq sgtM(p);
    ll raws = 0;
    REP(i, n-k+1) {
        if (!i) {
            ans++;
            if (alr[i]) raws++;
        } else {
            bool min_out = p[i-1]   < sgtm.fetch(i, i+k-1);
            bool max_in  = p[i+k-1] > sgtM.fetch(i, i+k-1);
            if (!min_out || !max_in) {
                ans++;
                if (alr[i]) raws++;
            }
        }
    }
    if (raws >= 2) ans -= raws - 1;
    cout << ans << endl;
    
}

Measured memory_bytes: 18396