#include<cstdio>
#include<cstring>
#include<algorithm>
#include<cctype>
#include<ctime>
#include<cstdlib>
#include<string>
#include<queue>
#include<cmath>
#include<set>
#include<map>
#include<bitset>
#include<vector>
#define Rep(x,a,b) for (int x=a;x<=(int)b;x++)
#define Drp(x,a,b) for (int x=a;x>=(int)b;x--)
#define Cross(x,a) for (int x=Hd[a];~x;x=Nx[x])
#define ll long long
#define INF (1<<29)
#define PII pair<int,int>
#define PDD pair<double,double>
#define mk(a,b) make_pair(a,b)
#define fr first
#define sc second
using namespace std;
inline ll Rd(){
    ll x=0;int ch=getchar(),f=1;
    while (!isdigit(ch)&&(ch!='-')&&(ch!=EOF)) ch=getchar();
    if (ch=='-'){f=-1;ch=getchar();}
    while (isdigit(ch)){x=(x<<1)+(x<<3)+ch-'0';ch=getchar();}
    return x*f;
}
inline void Rt(ll x){
    if (x<0) putchar('-'),x=-x;
    if (x>=10) Rt(x/10),putchar(x%10+'0');
        else putchar(x+'0');
}
const int N=100005;
int n,k,a[N];
int main(){
    int T=Rd();
    while (T--){
        n=Rd(),k=Rd();
        Rep(i,1,n-1) a[i]=Rd();
        sort(a+1,a+n);
        ll Ans=n;
        Rep(i,1,n-k) Ans+=a[i];
        Rt(Ans),putchar('\n'); 
    }
}