#include <bits/stdc++.h>
#define ll long long
using namespace std;
const int L=2e5+10;
const int mod=1e9+7;
inline constexpr int qpow(ll x,ll y=mod-2){
	ll r=1;
	for(x%=mod;y;y>>=1,x=x*x%mod) if(y&1) r=r*x%mod;
	return r;
}
int fac[L],ifac[L];
int p[L];
void init_fac(){
	fac[0]=ifac[0]=1;
	for(int i=1;i<L;i++) fac[i]=(ll)fac[i-1]*i%mod;
	ifac[L-1]=qpow(fac[L-1]);
	for(int i=L-2;i>=1;i--) ifac[i]=(ll)ifac[i+1]*(i+1)%mod;
	p[0]=1; p[1]=mod-qpow(2);
	for(int i=2;i<L;i++) p[i]=(ll)p[i-1]*p[1]%mod;
}
int binom(int u,int d){
	if(d<0||d>u) return 0;
	return (ll)fac[u]*ifac[d]%mod*ifac[u-d]%mod;
}
void solve(){
	int n,m;
	scanf("%d%d",&n,&m);
	if(m>n) puts("0");
	else if(m==n) printf("%lld\n",(ll)fac[n-1]*qpow(2)%mod);
	else {
		int ans=0;
		int c=n-m;
		for(int i=0;i<=c;i++) {
			ans=(ans+(ll)p[i]*binom(c,i)%mod*binom(c-1+n-c-i,c-1))%mod;
			// printf("%d: %d\n",i,(ll)qpow(mod-qpow(2),i)*binom(c,i)%mod*binom(c-1+n-c-i,c-1)%mod);
		}
		ans=(ll)ans*fac[n]%mod*ifac[c]%mod;
		printf("%d\n",ans);
	}
}
signed main(){
	init_fac();
	signed tc;
	scanf("%d",&tc);
	while(tc--){
		solve();
	}
}