#include <bits/stdc++.h>
using namespace std;
long long m, n;
const int MOD = 1e9 + 7;
long long mgml(long long a, long long b) {
  long long res = 1;
  while (b) {
    if (b & 1) res = res * a % MOD;
    a = a * a % MOD;
    b >>= 1;
  }
  return res;
}
long long fact[1000009], rfact[1000009], inv[1000009];
inline long long C(int n, int m) {
  if (n < 0 || m > n) return 0;
  return fact[n] * rfact[m] % MOD * rfact[n - m] % MOD;
}
inline void add(long long &x, long long y) {
  x += y;
  if (x >= MOD) x -= MOD;
  if (x < 0) x += MOD;
}
int main() {
  cin >> m >> n;
  fact[0] = 1;
  for (int i = 1; i < 1000009; i++) fact[i] = fact[i - 1] * i % MOD;
  inv[1] = 1;
  for (int i = 2; i < 1000009; i++)
    inv[i] = inv[MOD % i] * inv[MOD % i] % MOD * (MOD / i) % MOD * (MOD / i) %
             MOD * i % MOD;
  rfact[0] = 1;
  for (int i = 1; i < 1000009; i++) rfact[i] = rfact[i - 1] * inv[i] % MOD;
  long long ans = 0;
  for (int i = n + 1; i <= n + m; i++) {
    long long sum = 0;
    if (i < 2 * n) {
      add(sum, C(m - 1, i - n - 1) * fact[i - n] % MOD * C(m, i - n) % MOD *
                   fact[i - n] % MOD);
      add(sum, C(m - 1, i - n - 1) * fact[i - n] % MOD * C(m - 1, i - n) % MOD *
                   fact[i - n] % MOD);
      add(ans, sum * mgml(m, 2 * n - i) % MOD);
    } else {
      add(sum, C(m, i - n) * fact[i - n] % MOD * C(m - i + 2 * n - 1, n - 1) %
                   MOD * fact[n] % MOD);
      add(sum, C(m, i - n) * fact[i - n] % MOD * (n - 1) % MOD * (m - i + n) %
                   MOD * C(m - i + 2 * n - 2, n - 2) % MOD * fact[n - 2] % MOD);
      add(ans, sum);
    }
  }
  cout << ans << endl;
  return 0;
}
