#include<iostream>
#include<vector>
using namespace std;
int main()
{
long long t,k,ans,n,inc=0,dec=0;
cin>>t;
while(t--)
{
inc=0;dec=0;
cin>>n>>k;
vector<long long > a(n) ,b(n,1),c(n,1);
for(int i=0;i<n;i++)
cin>>a[i];
//STEP1
for(int i=1;i<n;i++)
{
if(a[i-1]<a[i])
{
b[i]=b[i-1]+1;
c[i]=1;
}
else if(a[i-1]>a[i])
{
c[i]=c[i-1]+1;
b[i]=1;
}
else
{
b[i]=b[i-1]+1;
c[i]=c[i-1]+1;
}
}
//STEP 2 and STEP 3
vector<long long> l,p;
bool flag1=true,flag2=false;
inc=b[0];
dec=c[0];
for(int i=1;i<n;i++)
{
if(i<k)
{
inc=inc+b[i];
dec=dec+c[i];
}
if(b[i]==1)
{
l.push_back(b[i-1]);
}
if(c[i]==1)
{
p.push_back(c[i-1]);
}
if(i==n-1)
{
l.push_back(b[i]);
p.push_back(c[i]);
}
}
//STEP 4
ans=inc-dec;
int j=0,o=0,inc2,dec2;
for(int i=k;i<n;i++)
{
inc+=b[i]-b[i-k];
dec+=c[i]-c[i-k];
inc2=inc;
if(b[i-k+1]==1)
j++;
if(b[i-k+1]!=1)
{
if(b[i]-b[i-k+1]+1==k)
{
inc2-=b[i-k]*k;
}
else
{
inc2-=(b[i-k])*(l[j]-b[i-k+1]+1);
}
}
dec2=dec;
if(c[i-k+1]==1)
o++;
if(c[i-k+1]!=1)
{
if(c[i]-c[i-k+1]+1==k )
{
dec2-=(c[i-k])*(k);
}
else
{
dec2-=(c[i-k])*(p[o]-c[i-k+1]+1);
}
}
ans+=(inc2-dec2);
}
cout<<ans<<endl;
}
return 0;
}
I2luY2x1ZGU8aW9zdHJlYW0+CiNpbmNsdWRlPHZlY3Rvcj4KCnVzaW5nIG5hbWVzcGFjZSBzdGQ7CgppbnQgbWFpbigpCnsKICAgICBsb25nIGxvbmcgdCxrLGFucyxuLGluYz0wLGRlYz0wOwogICAgY2luPj50OwogICAgd2hpbGUodC0tKQogICAgewogICAgICAgIGluYz0wO2RlYz0wOwogICAgICAgICBjaW4+Pm4+Pms7CgogICAgICAgIHZlY3Rvcjxsb25nIGxvbmcgPiBhKG4pICxiKG4sMSksYyhuLDEpOwoKICAgICAgICBmb3IoaW50IGk9MDtpPG47aSsrKQogICAgICAgICAgICBjaW4+PmFbaV07CgoJCi8vU1RFUDEKICAgICAgICBmb3IoaW50IGk9MTtpPG47aSsrKQogICAgICAgIHsKICAgICAgICAgICAgaWYoYVtpLTFdPGFbaV0pCiAgICAgICAgICAgICAgICB7CiAgICAgICAgICAgICAgICAgICAgYltpXT1iW2ktMV0rMTsKICAgICAgICAgICAgICAgICAgICBjW2ldPTE7CiAgICAgICAgICAgICAgICB9CiAgICAgICAgICAgIGVsc2UgaWYoYVtpLTFdPmFbaV0pCiAgICAgICAgICAgICAgICB7CiAgICAgICAgICAgICAgICAgICAgY1tpXT1jW2ktMV0rMTsKICAgICAgICAgICAgICAgICAgICBiW2ldPTE7CiAgICAgICAgICAgICAgICB9CiAgICAgICAgICAgIGVsc2UKICAgICAgICAgICAgICAgIHsKICAgICAgICAgICAgICAgICAgICBiW2ldPWJbaS0xXSsxOwogICAgICAgICAgICAgICAgICAgIGNbaV09Y1tpLTFdKzE7CiAgICAgICAgICAgICAgICB9CiAgICAgICAgfQoKLy9TVEVQIDIgYW5kIFNURVAgMwogICAgdmVjdG9yPGxvbmcgbG9uZz4gbCxwOwogICAgYm9vbCBmbGFnMT10cnVlLGZsYWcyPWZhbHNlOwogICAgaW5jPWJbMF07CiAgICBkZWM9Y1swXTsKICAgIGZvcihpbnQgaT0xO2k8bjtpKyspCiAgICB7CiAgICAgICAgaWYoaTxrKQogICAgICAgIHsKICAgICAgICAgICAgaW5jPWluYytiW2ldOwogICAgICAgICAgICBkZWM9ZGVjK2NbaV07CiAgICAgICAgfQogICAgICAgIGlmKGJbaV09PTEpCiAgICAgICAgICAgIHsKICAgICAgICAgICAgICAgIGwucHVzaF9iYWNrKGJbaS0xXSk7CgogICAgICAgICAgICB9CiAgICAgICAgaWYoY1tpXT09MSkKICAgICAgICAgICAgewogICAgICAgICAgICAgICAgcC5wdXNoX2JhY2soY1tpLTFdKTsKICAgICAgICAgICAgfQogICAgICAgIGlmKGk9PW4tMSkKICAgICAgICB7CiAgICAgICAgICAgIGwucHVzaF9iYWNrKGJbaV0pOwogICAgICAgICAgICBwLnB1c2hfYmFjayhjW2ldKTsKICAgICAgICB9CgogICAgfQogICAKLy9TVEVQIDQKICAgIGFucz1pbmMtZGVjOwogICAgIGludCBqPTAsbz0wLGluYzIsZGVjMjsKCiAgICBmb3IoaW50IGk9aztpPG47aSsrKQogICAgewogICAgICAgIGluYys9YltpXS1iW2kta107CiAgICAgICAgZGVjKz1jW2ldLWNbaS1rXTsKCiAgICAgICAgaW5jMj1pbmM7CiAgICAgICAgICAgICAgICBpZihiW2ktaysxXT09MSkKICAgICAgICAgICAgaisrOwogICAgICAgIGlmKGJbaS1rKzFdIT0xKQogICAgICAgIHsKICAgICAgICAgICAgaWYoYltpXS1iW2ktaysxXSsxPT1rKQogICAgICAgICAgICB7CiAgICAgICAgICAgICAgICAgICAgaW5jMi09YltpLWtdKms7CiAgICAgICAgICAgIH0KICAgICAgICAgICAgZWxzZQogICAgICAgICAgICB7CiAgICAgICAgICAgICAgICAgICAgaW5jMi09KGJbaS1rXSkqKGxbal0tYltpLWsrMV0rMSk7CiAgICAgICAgICAgIH0KICAgICAgICB9CgogICAgICAgIGRlYzI9ZGVjOwoKICAgICAgICBpZihjW2ktaysxXT09MSkKICAgICAgICAgICAgbysrOwogICAgICAgIGlmKGNbaS1rKzFdIT0xKQogICAgICAgIHsKICAgICAgICAgICAgaWYoY1tpXS1jW2ktaysxXSsxPT1rICkKICAgICAgICAgICAgewogICAgICAgICAgICAgICAgICAgIGRlYzItPShjW2kta10pKihrKTsKICAgICAgICAgICAgfQogICAgICAgICAgICAgICAgZWxzZQogICAgICAgICAgICAgICAgewogICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgIGRlYzItPShjW2kta10pKihwW29dLWNbaS1rKzFdKzEpOwogICAgICAgICAgICAgICAgfQoKICAgICAgICB9CiAgICAgICAgYW5zKz0oaW5jMi1kZWMyKTsKICAgIH0KICAgIGNvdXQ8PGFuczw8ZW5kbDsKICAgIH0KICAgIHJldHVybiAwOwp9CgoK