#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ printf(char *, long long);
int /*<<< orphan*/ puts(char *);
int /*<<< orphan*/ scanf(char *, ...);
int main() {
  long long n, k, si, m, l, r, i, result;
  int t;
  scanf("%d\n", &t);
  while (t--) {
    scanf("%lld %lld\n", &n, &k);
    si = (k - 1) * k / 2;
    m = (n - si) / k;
    if (m < 1) {
      puts("-1");
      continue;
    } else if (m == 1) {
      puts("0");
      continue;
    }
    r = n - si - m * k;
    l = k - r;
    result = 1;
    for (i = 0; l--; i++) {
      result = result * (m + i) % 1000000007;
      result = result * (m + i - 1) % 1000000007;
    }
    for (; r--; i++) {
      result = result * (m + i) % 1000000007;
      result = result * (m + i + 1) % 1000000007;
    }
    printf("%lld\n", result);
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xeba(%rip),%rdi
lea    -0x4c(%rbp),%rsi
mov    $0x0,%al
call   1050 <scanf@plt>
mov    -0x4c(%rbp),%eax
mov    %eax,%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0x4c(%rbp)
cmp    $0x0,%eax
je     1307 <main+0x1d7>
lea    0xe98(%rip),%rdi
lea    -0x10(%rbp),%rsi
lea    -0x18(%rbp),%rdx
mov    $0x0,%al
call   1050 <scanf@plt>
mov    -0x18(%rbp),%rax
sub    $0x1,%rax
imul   -0x18(%rbp),%rax
mov    $0x2,%ecx
cqto
idiv   %rcx
mov    %rax,-0x20(%rbp)
mov    -0x10(%rbp),%rax
sub    -0x20(%rbp),%rax
cqto
idivq  -0x18(%rbp)
mov    %rax,-0x28(%rbp)
cmpq   $0x1,-0x28(%rbp)
jge    11c4 <main+0x94>
lea    0xe55(%rip),%rdi
call   1030 <puts@plt>
jmp    1151 <main+0x21>
cmpq   $0x1,-0x28(%rbp)
jne    11e0 <main+0xb0>
lea    0xe3c(%rip),%rdi
call   1030 <puts@plt>
jmp    1151 <main+0x21>
jmp    11e5 <main+0xb5>
mov    -0x10(%rbp),%rax
sub    -0x20(%rbp),%rax
mov    -0x28(%rbp),%rcx
imul   -0x18(%rbp),%rcx
sub    %rcx,%rax
mov    %rax,-0x38(%rbp)
mov    -0x18(%rbp),%rax
sub    -0x38(%rbp),%rax
mov    %rax,-0x30(%rbp)
movq   $0x1,-0x48(%rbp)
movq   $0x0,-0x40(%rbp)
mov    -0x30(%rbp),%rax
mov    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x30(%rbp)
cmp    $0x0,%rax
je     1283 <main+0x153>
mov    -0x48(%rbp),%rax
mov    -0x28(%rbp),%rcx
add    -0x40(%rbp),%rcx
imul   %rcx,%rax
mov    $0x3b9aca07,%ecx
cqto
idiv   %rcx
mov    %rdx,-0x48(%rbp)
mov    -0x48(%rbp),%rax
mov    -0x28(%rbp),%rcx
add    -0x40(%rbp),%rcx
sub    $0x1,%rcx
imul   %rcx,%rax
mov    $0x3b9aca07,%ecx
cqto
idiv   %rcx
mov    %rdx,-0x48(%rbp)
mov    -0x40(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x40(%rbp)
jmp    1219 <main+0xe9>
jmp    1288 <main+0x158>
mov    -0x38(%rbp),%rax
mov    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x38(%rbp)
cmp    $0x0,%rax
je     12f2 <main+0x1c2>
mov    -0x48(%rbp),%rax
mov    -0x28(%rbp),%rcx
add    -0x40(%rbp),%rcx
imul   %rcx,%rax
mov    $0x3b9aca07,%ecx
cqto
idiv   %rcx
mov    %rdx,-0x48(%rbp)
mov    -0x48(%rbp),%rax
mov    -0x28(%rbp),%rcx
add    -0x40(%rbp),%rcx
add    $0x1,%rcx
imul   %rcx,%rax
mov    $0x3b9aca07,%ecx
cqto
idiv   %rcx
mov    %rdx,-0x48(%rbp)
mov    -0x40(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x40(%rbp)
jmp    1288 <main+0x158>
mov    -0x48(%rbp),%rsi
lea    0xd0c(%rip),%rdi
call   1040 <printf@plt>
jmp    1151 <main+0x21>
xor    %eax,%eax
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
lea    0xebb(%rip),%rdi
lea    0x4(%rsp),%rsi
xor    %eax,%eax
call   1050 <scanf@plt>
subl   $0x1,0x4(%rsp)
jb     132b <main+0x1fb>
lea    0xea1(%rip),%r14
lea    0x10(%rsp),%r15
lea    0x8(%rsp),%r12
movabs $0x89705f3112a28fe5,%r13
5f 70 89
jmp    1197 <main+0x67>
nopl   0x0(%rax)
lea    0xe88(%rip),%rdi
call   1030 <puts@plt>
subl   $0x1,0x4(%rsp)
jb     132b <main+0x1fb>
mov    %r14,%rdi
mov    %r15,%rsi
mov    %r12,%rdx
xor    %eax,%eax
call   1050 <scanf@plt>
mov    0x8(%rsp),%rbx
lea    -0x1(%rbx),%rax
imul   %rbx,%rax
mov    %rax,%rcx
shr    $0x3f,%rcx
add    %rax,%rcx
sar    %rcx
mov    0x10(%rsp),%rax
sub    %rcx,%rax
mov    %rax,%rcx
or     %rbx,%rcx
shr    $0x20,%rcx
je     11f0 <main+0xc0>
cqto
idiv   %rbx
mov    %rdx,%r9
mov    %rax,%r8
test   %r8,%r8
jg     11ff <main+0xcf>
jmp    1180 <main+0x50>
nopw   0x0(%rax,%rax,1)
xor    %edx,%edx
div    %ebx
mov    %edx,%r9d
mov    %eax,%r8d
test   %r8,%r8
jle    1180 <main+0x50>
cmp    $0x1,%r8
jne    1220 <main+0xf0>
lea    0xe06(%rip),%rdi
jmp    1187 <main+0x57>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
cmp    %r9,%rbx
je     12a1 <main+0x171>
mov    %r9,%rcx
sub    %rbx,%rcx
mov    $0x1,%ebp
mov    %r8,%rdi
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
imul   %rdi,%rbp
mov    %rbp,%rax
imul   %r13
add    %rbp,%rdx
mov    %rdx,%rax
shr    $0x3f,%rax
sar    $0x1d,%rdx
add    %rax,%rdx
imul   $0x3b9aca07,%rdx,%rax
sub    %rax,%rbp
lea    -0x1(%rdi),%rsi
imul   %rbp,%rsi
mov    %rsi,%rax
imul   %r13
add    %rsi,%rdx
mov    %rdx,%rax
shr    $0x3f,%rax
sar    $0x1d,%rdx
add    %rax,%rdx
imul   $0x3b9aca07,%rdx,%rax
sub    %rax,%rsi
add    $0x1,%rdi
mov    %rsi,%rbp
inc    %rcx
jne    1240 <main+0x110>
test   %r9,%r9
jne    12ab <main+0x17b>
jmp    1314 <main+0x1e4>
mov    $0x1,%esi
test   %r9,%r9
je     1314 <main+0x1e4>
add    %r8,%rbx
sub    %r9,%rbx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
imul   %rbx,%rsi
mov    %rsi,%rax
imul   %r13
add    %rsi,%rdx
mov    %rdx,%rax
shr    $0x3f,%rax
sar    $0x1d,%rdx
add    %rax,%rdx
imul   $0x3b9aca07,%rdx,%rax
sub    %rax,%rsi
add    $0x1,%rbx
imul   %rbx,%rsi
mov    %rsi,%rax
imul   %r13
add    %rsi,%rdx
mov    %rdx,%rax
shr    $0x3f,%rax
sar    $0x1d,%rdx
add    %rax,%rdx
imul   $0x3b9aca07,%rdx,%rax
sub    %rax,%rsi
add    $0xffffffffffffffff,%r9
jne    12c0 <main+0x190>
lea    0xcee(%rip),%rdi
call   1040 <printf@plt>
subl   $0x1,0x4(%rsp)
jae    1197 <main+0x67>
xor    %eax,%eax
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [4 x i8] c"%d\0A\00"
@.str.1 = [11 x i8] c"%lld %lld\0A\00"
@.str.2 = [3 x i8] c"-1\00"
@.str.3 = [2 x i8] c"0\00"
@.str.4 = [6 x i8] c"%lld\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i64
%3 = alloca i64
%4 = alloca i64
%5 = alloca i64
%6 = alloca i64
%7 = alloca i64
%8 = alloca i64
%9 = alloca i64
%10 = alloca i32
store i32 0, i32* %1
%11 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i32* %10)
br label %12
12: ; preds = %92, %35, %30, %0
%13 = load i32, i32* %10
%14 = add nsw i32 %13, -1
store i32 %14, i32* %10
%15 = icmp ne i32 %13, 0
br i1 %15, label %16, label %95
16: ; preds = %12
%17 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.1, i64 0, i64 0), i64* %2, i64* %3)
%18 = load i64, i64* %3
%19 = sub nsw i64 %18, 1
%20 = load i64, i64* %3
%21 = mul nsw i64 %19, %20
%22 = sdiv i64 %21, 2
store i64 %22, i64* %4
%23 = load i64, i64* %2
%24 = load i64, i64* %4
%25 = sub nsw i64 %23, %24
%26 = load i64, i64* %3
%27 = sdiv i64 %25, %26
store i64 %27, i64* %5
%28 = load i64, i64* %5
%29 = icmp slt i64 %28, 1
br i1 %29, label %30, label %32
30: ; preds = %16
%31 = call i32 @puts(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.2, i64 0, i64 0))
br label %12
32: ; preds = %16
%33 = load i64, i64* %5
%34 = icmp eq i64 %33, 1
br i1 %34, label %35, label %37
35: ; preds = %32
%36 = call i32 @puts(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.3, i64 0, i64 0))
br label %12
37: ; preds = %32
br label %38
38: ; preds = %37
%39 = load i64, i64* %2
%40 = load i64, i64* %4
%41 = sub nsw i64 %39, %40
%42 = load i64, i64* %5
%43 = load i64, i64* %3
%44 = mul nsw i64 %42, %43
%45 = sub nsw i64 %41, %44
store i64 %45, i64* %7
%46 = load i64, i64* %3
%47 = load i64, i64* %7
%48 = sub nsw i64 %46, %47
store i64 %48, i64* %6
store i64 1, i64* %9
store i64 0, i64* %8
br label %49
49: ; preds = %67, %38
%50 = load i64, i64* %6
%51 = add nsw i64 %50, -1
store i64 %51, i64* %6
%52 = icmp ne i64 %50, 0
br i1 %52, label %53, label %70
53: ; preds = %49
%54 = load i64, i64* %9
%55 = load i64, i64* %5
%56 = load i64, i64* %8
%57 = add nsw i64 %55, %56
%58 = mul nsw i64 %54, %57
%59 = srem i64 %58, 1000000007
store i64 %59, i64* %9
%60 = load i64, i64* %9
%61 = load i64, i64* %5
%62 = load i64, i64* %8
%63 = add nsw i64 %61, %62
%64 = sub nsw i64 %63, 1
%65 = mul nsw i64 %60, %64
%66 = srem i64 %65, 1000000007
store i64 %66, i64* %9
br label %67
67: ; preds = %53
%68 = load i64, i64* %8
%69 = add nsw i64 %68, 1
store i64 %69, i64* %8
br label %49
70: ; preds = %49
br label %71
71: ; preds = %89, %70
%72 = load i64, i64* %7
%73 = add nsw i64 %72, -1
store i64 %73, i64* %7
%74 = icmp ne i64 %72, 0
br i1 %74, label %75, label %92
75: ; preds = %71
%76 = load i64, i64* %9
%77 = load i64, i64* %5
%78 = load i64, i64* %8
%79 = add nsw i64 %77, %78
%80 = mul nsw i64 %76, %79
%81 = srem i64 %80, 1000000007
store i64 %81, i64* %9
%82 = load i64, i64* %9
%83 = load i64, i64* %5
%84 = load i64, i64* %8
%85 = add nsw i64 %83, %84
%86 = add nsw i64 %85, 1
%87 = mul nsw i64 %82, %86
%88 = srem i64 %87, 1000000007
store i64 %88, i64* %9
br label %89
89: ; preds = %75
%90 = load i64, i64* %8
%91 = add nsw i64 %90, 1
store i64 %91, i64* %8
br label %71
92: ; preds = %71
%93 = load i64, i64* %9
%94 = call i32 @printf(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.4, i64 0, i64 0), i64 %93)
br label %12
95: ; preds = %12
ret i32 0
}

LLVM IR (-O2):
@.str = [4 x i8] c"%d\0A\00"
@.str.1 = [11 x i8] c"%lld %lld\0A\00"
@.str.2 = [3 x i8] c"-1\00"
@.str.3 = [2 x i8] c"0\00"
@.str.4 = [6 x i8] c"%lld\0A\00"
define i32 @main() {
%1 = alloca i64
%2 = alloca i64
%3 = alloca i32
%4 = bitcast i64* %1 to i8*
%5 = bitcast i64* %2 to i8*
%6 = bitcast i32* %3 to i8*
%7 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i32* %3)
%8 = load i32, i32* %3
%9 = add nsw i32 %8, -1
store i32 %9, i32* %3
%10 = icmp eq i32 %8, 0
br i1 %10, label %68, label %11
11: ; preds = %0, %24
%12 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.1, i64 0, i64 0), i64* %1, i64* %2)
%13 = load i64, i64* %2
%14 = add nsw i64 %13, -1
%15 = mul nsw i64 %14, %13
%16 = sdiv i64 %15, -2
%17 = load i64, i64* %1
%18 = add i64 %16, %17
%19 = sdiv i64 %18, %13
%20 = srem i64 %18, %13
%21 = icmp slt i64 %19, 1
br i1 %21, label %22, label %28
22: ; preds = %11
%23 = call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([3 x i8], [3 x i8]* @.str.2, i64 0, i64 0))
br label %24
24: ; preds = %22, %30, %65
%25 = load i32, i32* %3
%26 = add nsw i32 %25, -1
store i32 %26, i32* %3
%27 = icmp eq i32 %25, 0
br i1 %27, label %68, label %11
28: ; preds = %11
%29 = icmp eq i64 %19, 1
br i1 %29, label %30, label %32
30: ; preds = %28
%31 = call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([2 x i8], [2 x i8]* @.str.3, i64 0, i64 0))
br label %24
32: ; preds = %28
%33 = mul nsw i64 %19, %13
%34 = sub i64 %13, %20
%35 = icmp eq i64 %34, 0
br i1 %35, label %36, label %39
36: ; preds = %39, %32
%37 = phi i64 [ 1, %32 ], [ %49, %39 ]
%38 = icmp eq i64 %20, 0
br i1 %38, label %65, label %52
39: ; preds = %32, %39
%40 = phi i64 [ %49, %39 ], [ 1, %32 ]
%41 = phi i64 [ %50, %39 ], [ 0, %32 ]
%42 = phi i64 [ %43, %39 ], [ %34, %32 ]
%43 = add nsw i64 %42, -1
%44 = add nsw i64 %41, %19
%45 = mul nsw i64 %40, %44
%46 = srem i64 %45, 1000000007
%47 = add nsw i64 %44, -1
%48 = mul nsw i64 %46, %47
%49 = srem i64 %48, 1000000007
%50 = add nuw nsw i64 %41, 1
%51 = icmp eq i64 %43, 0
br i1 %51, label %36, label %39
52: ; preds = %36, %52
%53 = phi i64 [ %62, %52 ], [ %37, %36 ]
%54 = phi i64 [ %63, %52 ], [ %34, %36 ]
%55 = phi i64 [ %56, %52 ], [ %20, %36 ]
%56 = add nsw i64 %55, -1
%57 = add nsw i64 %54, %19
%58 = mul nsw i64 %53, %57
%59 = srem i64 %58, 1000000007
%60 = add nsw i64 %57, 1
%61 = mul nsw i64 %59, %60
%62 = srem i64 %61, 1000000007
%63 = add nuw nsw i64 %54, 1
%64 = icmp eq i64 %56, 0
br i1 %64, label %65, label %52
65: ; preds = %52, %36
%66 = phi i64 [ %37, %36 ], [ %62, %52 ]
%67 = call i32 @printf(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.4, i64 0, i64 0), i64 %66)
br label %24
68: ; preds = %24, %0
ret i32 0
}