#include <fstream>

using namespace std;
ifstream fin("deque.in");
ofstream fout("deque.out");

int t[5000000],dq[5000000],i,j,m,n,p,u,k;

void adauga(int poz)
{
    if (i>=k && dq[p]==i-k) ++p;
    while (u>=p && t[dq[u]]>t[poz]) --u;
    ++u;
    dq[u]=poz;

}

int main()
{
    long long sum=0;
    fin>>n>>k;
     for (i=1; i<=n; ++i);
      fin>>t[k];
      p=1;
      u=0;
       for (i=1; i<=n; ++i)
        adauga(i);
        sum+=dq[p];
       for (i=k+1; i<=n; i++)
       {
           adauga(i);
           sum+=dq[p];
       }

       fout<<sum;
    return 0;
}