import std.bigint,std.stdio,std.string;int M=10^^9+7,S=5263158,j;long y,z,e;void i(long x){y=1;for(e=M-2;e;e/=2,x=x*x%M)if(e&1)y=y*x%M;}void f(int n){if(n>M/2){f(M-1-n);z.i;z=n%2?y:M-y;}else{j=n%S;if(j>S-j){for(z=1,j=S-j;j--;)z=z*++n%M;z.i;}else{for(y=1;j--;)y=y*n--%M;}for(z=0,j=5;j--;)z=z<<6|`!    OIOP6EI.DT(Z=N5B[?U ??-*LQ11=8#5,W<%TQ5OH(MZQ#GVL3[P49"6(").4"%[:BR94NX "IJA;7ADZG-1RL#$+BISNP66_E\AY3_4$CUGK8ZN<JZ3/D&B,U=W8:YZPSN[99#KL? ,ROD1G )7OO;E.++$Q-\0P&YB.[\P)<7X>-S?[>M&)JC]I1PG_V+X()HVS55;C4\1!H;/)YL;<$E0C62S)1]=GR!J$ZB]:9J>?X.T!.(CWPRH#@8=6Z!]=NZ=ENI -7H5YQGE$R3<-O)[L9<XNK2FZ,5T$64*M"4SK\]G!HZ<.&M_IY2*^$]M1;@S3K3!A,MDD>H._RPF76PH92S,I-=;U,JJ8>Y<S_?-Z7)6>-!GH'DX0/DPVYO+<I=.J>&TKFXI+UY")>=:EP*HJ/X<O6>_P8 ;K[<=*LVVC#GL8\O];Q,>+\:"?>DW4Q;_TON7FL*U<]<=/QC+LP:6/YP`[n/S*5+j]-32;z=z*y%M;}}void main(){for(auto t=readln.chomp.BigInt;t--;){auto s=readln.split;BigInt C=s[0],P=s[1],r=C+1-P,l=r-P;writeln(l<0||l/M<r/M?0:(f(r%M),r=z,f(l%M),z.i,r*y%M));}}