#include<bits/stdc++.h>

#define maxn 100005
#define int long long
#define mod 1000000007

using namespace std;

inline int read(){
	int lre=0,f=1;
	char c=getchar();
	while(!isdigit(c)){
		if(c=='-'){
			f=-1;
		}
		c=getchar();
	}
	while(isdigit(c)){
		lre=(lre<<3)+(lre<<1)+(c-'0');
		c=getchar();
	}
	return lre*f;
}

inline int slowpow(int a,int b){
	__int128 x=a,y=b;
	return (x*y)%mod;
}

inline int quickpow(int a,int b){
	int lre=1;
	while(b){
		if(b&1)lre=slowpow(lre,a);
		b>>=1;
		a=slowpow(a,a); 
	}
	return lre;
}

int n,m,res;
int fact[maxn],inv[maxn];
//n个点全部在链上,i条链,方案数:C(n,2i)*i^(n-2i)/2^i

int pw[maxn],pv[maxn];//2^i和2^-i 

int C(int a,int b){
	if(b==0)return 1;
	if(b>a)return 0;
	int lre=slowpow(slowpow(fact[a],inv[b]),inv[a-b]);
//	cout<<"C("<<a<<","<<b<<")="<<lre<<endl;
	return lre;
} 

void solve(){
	n=read();m=read();
	if(m>n){cout<<0<<endl;return;}
	if(m==n){
		//(n-1)!/2
		printf("%lld\n",slowpow(fact[n-1],inv[2]));
		return;
	}
	int k=n-m;
	res=pv[k];int lre=0;
//	cout<<"k="<<k<<endl;
	for(int i=0;i<=n-k;i++){
		//((k&1)?-1:1)*C(a,k)*pw[a-k]*C(n-k-1,n-a-k)
		int tmp=slowpow(C(k,i),slowpow(pw[k-i],C(n-i-1,k-1)));
		if(i&1){
			lre=(lre-tmp+mod)%mod;
		}else{
			lre=(lre+tmp)%mod;
		}
	}
	res=slowpow(res,lre);
	res=slowpow(slowpow(res,fact[n]),inv[k]);
	printf("%lld\n",res);
}

signed main(){
	
	fact[0]=inv[0]=1;
	pw[0]=pv[0]=1;
	for(int i=1;i<=100000;i++){
		fact[i]=slowpow(fact[i-1],i);
		pw[i]=slowpow(pw[i-1],2);
	}
	inv[100000]=quickpow(fact[100000],mod-2);
	pv[100000]=quickpow(pw[100000],mod-2);
	for(int i=100000;i>=1;--i){
		inv[i-1]=slowpow(inv[i],i);
		pv[i-1]=slowpow(pv[i],2);
	}
	
	for(int i=1;i<=10;i++){
	//	cout<<pw[i]<<" "<<fact[i]<<endl;
		assert(slowpow(pw[i],pv[i])==1);
		assert(slowpow(fact[i],inv[i])==1); 
	}
	
	int t=read();
	while(t--){
		solve(); 
	}
	
	return 0;
}