import std.bigint,std.stdio,std.string;int M=10^^9+7,S=5050506,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|`!    CXR0YAK<#D@%FK0/K6--XFZK0)!)5&U@/36IFRN#V(FAXQ\<Z:6".^%)?S]2&J*635C8$B)IZCXT@M[''S; U@MRR3X&.G%?%W)<]6K& A0?,NS<'I([Q"JMY9O^!DPE!"1X84F-7$J>$/\$L[QFRS'I!]N9+H9I;**-X29S]O'Y[!1$IKWJXT@8J2\G-15_*F")1SGA\'& ;1<Y>IK!5/".1F*R52?Q(\3,YJ8Q8M8_\>BZ9%NLWZ4R%T#\>,+,=:-?W8XX7:;:"M^ >F,AE7B0<'1\FN%V5X&:.E4&YHJ)8&=E@XF["%70]M6E"RHJ9C25BW^T@TI+B=*3]JLB"3Z\9(\RC $^4K&7\ZNS;WRPKGVG2'H8,G,(-^23\'U0%D>&CV60F3E6!-:JAGJ+K9"N[;Q,A7X]X04W26&'[/#0>HJW0;V3JM %VS669[!V%TQQSF(SU8/I[;9S.L? G7JU;'@C(88"2GU9??OV: =<A1$`[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));}}