#include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include using namespace std; #define rep(i,a,n) for (int i=a;i=a;i--) #define pb push_back #define mp make_pair #define all(x) (x).begin(),(x).end() #define fi first #define se second #define SZ(x) ((int)(x).size()) #define ACCU accumulate #define TWO(x) (1<<(x)) #define TWOL(x) (1ll<<(x)) #define clr(a) memset(a,0,sizeof(a)) #define POSIN(x,y) (0<=(x)&&(x) VI; typedef vector VS; typedef vector VD; typedef long long ll; typedef long double LD; typedef pair PII; typedef pair PLL; typedef vector VL; typedef vector VPII; typedef complex CD; const int inf=0x20202020; const ll mod=1000000007; const double eps=1e-9; const double pi=3.1415926535897932384626; const int DX[]={1,0,-1,0},DY[]={0,1,0,-1}; ll powmod(ll a,ll b) {ll res=1;a%=mod;for(;b;b>>=1){if(b&1)res=res*a%mod;a=a*a%mod;}return res;} ll powmod(ll a,ll b,ll mod) {ll res=1;a%=mod;for(;b;b>>=1){if(b&1)res=res*a%mod;a=a*a%mod;}return res;} ll gcd(ll a,ll b) { return b?gcd(b,a%b):a;} // head const int N=201000; int n,m,_; ll f[N],g[N]; ll comb(int x,int y) { return f[x]*g[y]%mod*g[x-y]%mod;} int main() { f[0]=1; rep(i,1,200001) f[i]=f[i-1]*i%mod; rep(i,0,200001) g[i]=powmod(f[i],mod-2,mod); for (scanf("%d",&_);_;_--) { scanf("%d%d",&n,&m); if (m==1) { puts("1"); continue; } --m; int ans=0; rep(i,1,n+1) { for (int j=0;j<=m&&j*i<=n-i;j++) { ans=(ans+(j%2==0?1:-1)*comb(m,j)*comb(n-i-j*i+m-1,m-1))%mod; } } ans%=mod; if (ans<0) ans+=mod; printf("%d\n",ans); } }