struct SF{
	unordered_map<int,ll>m;
	void add(ll i,ll v){
		while(i<=1d9){
			m[i]+=v;
			i+=i&-i;
		}
	}
	ll get(ll i){
		ll r=0;
		if(i>=0){
			do{
				if(m.count(i)){
					r+=m.at(i);
				}
				i-=i&-i;
			}while(i);
		}
		return r;
	}
};

{
	SF f,g;
	ll@n,@k,@d++,@h[n],z=ll_inf;
	rep(i,n){
		f.add(h[i],1);
		g.add(h[i],h[i]);
		if(i>=k-1){
			ll a=0,b=1d9+1-d;
			while(a+1<b){
				ll c=a+b>>1;
				(f.get(c-1)<=k-f.get(c+d-2)?a:b)=c;
			}
			z<?=(f.get(a-1)*a-g.get(a-1))+(g.get(1d9)-g.get(a+d-1)-(k-f.get(a+d-1))*(a+d-1));
			f.add(h[i-(k-1)],-1);
			g.add(h[i-(k-1)],-h[i-(k-1)]);
		}
	}
	wt(z);
}