Problem: Japate, while traveling through the forest of Mala, saw N bags of gold lying in a row. Each bag has some distinct weight of gold between 1 to N. Japate can carry only one bag of gold with him, so he uses the following strategy to choose a bag.

Initially, he starts with an empty bag (zero weight). He considers the bags in some order. If the current bag has a higher weight than the bag in his hand, he picks the current bag.

Japate put the bags in some order. Japate realizes that he will pick A bags, if he starts picking bags from the front, and will pick B bags, if he starts picking bags from the back. By picking we mean replacing the bag in his hand with the current one.

Now he wonders how many permutations of bags are possible, in which he picks A bags from the front and B bags from back using the above strategy.

Since the answer can be very large, output it modulo 998244353.

Input

The only line of input contains three space separated integers N (1 ≤ N ≤ 105), A and B (0 ≤ A, B ≤ N).

Output

Output a single integer — the number of valid permutations modulo 998244353.

Examples

Input

1 1 1


Output

1

Input

2 1 1


Output

0

Input

2 2 1


Output

1

Input

5 2 2


Output

22

Note

In sample case 1, the only possible permutation is [1]

In sample cases 2 and 3, only two permutations of size 2 are possible:{[1, 2], [2, 1]}. The values of a and b for first permutation is 2 and 1, and for the second permutation these values are 1 and 2. 

In sample case 4, out of 120 permutations of [1, 2, 3, 4, 5] possible, only 22 satisfy the given constraints of a and b.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
long long get() {
  long long x = 0, f = 1;
  char c = getchar();
  while (!isdigit(c)) {
    if (c == '-') f = -1;
    c = getchar();
  }
  while (isdigit(c)) {
    x = x * 10 + c - '0';
    c = getchar();
  }
  return x * f;
}
const long long N = 1e6 + 5, P = 998244353, G = 3, iG = 332748118;
long long qpow(long long x, long long y) {
  long long res(1);
  while (y) res = res * ((y & 1) ? x : 1) % P, x = x * x % P, y >>= 1;
  return res;
}
namespace Stirling {
long long n, k, a[N], b[N];
long long r[N];
void NTT(long long *A, long long type, long long lim) {
  for (long long i = 0; i < lim; i++)
    if (i < r[i]) swap(A[i], A[r[i]]);
  for (long long mid = 1; mid < lim; mid <<= 1) {
    long long Wn = qpow(type == 1 ? G : iG, (P - 1) / (mid << 1));
    for (long long i = 0; i < lim; i += mid << 1) {
      long long w = 1;
      for (long long j = 0; j < mid; j++, w = w * Wn % P) {
        long long x = A[i + j], y = w * A[i + mid + j] % P;
        A[i + j] = (x + y) % P;
        A[i + mid + j] = (x - y + P) % P;
      }
    }
  }
  if (type == -1) {
    long long inv = qpow(lim, P - 2);
    for (long long i = 0; i < lim; i++) A[i] = A[i] * inv % P;
  }
}
long long tmp[N];
void GetInv(long long deg, long long *F, long long *G) {
  if (deg == 1) {
    G[0] = qpow(F[0], P - 2);
    return;
  }
  GetInv((deg + 1) >> 1, F, G);
  long long l = 0, lim = 1;
  while (lim < deg + deg) lim <<= 1, l++;
  for (long long i = 0; i < lim; i++)
    r[i] = (r[i >> 1] >> 1) | ((i & 1) << (l - 1));
  for (long long i = 0; i < deg; i++) tmp[i] = F[i];
  for (long long i = deg; i < lim; i++) tmp[i] = 0;
  NTT(tmp, 1, lim), NTT(G, 1, lim);
  for (long long i = 0; i < lim; i++)
    G[i] = (G[i] * 2 % P - G[i] * G[i] % P * tmp[i] % P + P) % P;
  NTT(G, -1, lim);
  for (long long i = deg; i < lim; i++) G[i] = 0;
}
void GetD(long long deg, long long *F, long long *G) {
  for (long long i = 1; i < deg; i++) G[i - 1] = F[i] * i % P;
  G[deg] = 0;
}
void GetI(long long deg, long long *F, long long *G) {
  for (long long i = 1; i < deg; i++) G[i] = F[i - 1] * qpow(i, P - 2) % P;
  G[0] = 0;
}
long long f[N];
void Getln(long long deg, long long *A, long long *G) {
  for (long long i = 0; i < deg * 3; i++) G[i] = 0;
  GetInv(deg, A, f), GetD(deg, A, G);
  long long lim = 1, l = 0;
  while (lim <= deg * 2) lim <<= 1, l++;
  for (long long i = 0; i < lim; i++)
    r[i] = (r[i >> 1] >> 1) | ((i & 1) << (l - 1));
  NTT(f, 1, lim), NTT(G, 1, lim);
  for (long long i = 0; i < lim; i++) f[i] = f[i] * G[i] % P;
  NTT(f, -1, lim);
  GetI(lim, f, G);
  for (long long i = deg; i < lim; i++) G[i] = 0;
  for (long long i = 0; i < lim; i++) f[i] = 0;
}
long long g[N];
void GetExp(long long deg, long long *A, long long *B) {
  if (deg == 1) return void(B[0] = 1);
  GetExp((deg + 1) >> 1, A, B), Getln(deg, B, g);
  for (long long i = 0; i < deg; i++) g[i] = (P - g[i] + A[i]) % P;
  g[0]++;
  long long lim = 1, l = 0;
  while (lim <= deg * 2) lim <<= 1, l++;
  for (long long i = 0; i < lim; i++)
    r[i] = (r[i >> 1] >> 1) | ((i & 1) << (l - 1));
  NTT(B, 1, lim), NTT(g, 1, lim);
  for (long long i = 0; i < lim; i++) B[i] = B[i] * g[i] % P;
  NTT(B, -1, lim);
  for (long long i = deg; i < lim; i++) B[i] = 0;
  for (long long i = 0; i < lim; i++) g[i] = 0;
}
long long fac[N];
void initRol(long long x, long long y) {
  n = x + 1, k = y;
  for (long long i = 0; i < n; i++) a[i] = qpow(i + 1, P - 2);
  Getln(n, a, b);
  for (long long i = 0; i < n; i++) b[i] = b[i] * k % P;
  for (long long i = 0; i < N; i++) a[i] = 0;
  GetExp(n, b, a);
  for (long long i = n; i >= k; i--) a[i] = a[i - k];
  for (long long i = 0; i < k; i++) a[i] = 0;
  fac[0] = 1;
  for (long long i = 1; i <= max(n, k); i++) fac[i] = fac[i - 1] * i % P;
}
long long GetCur(long long x) {
  long long inv = qpow(fac[k], P - 2);
  return a[x] * fac[x] % P * inv % P;
}
}  // namespace Stirling
long long n, A, B;
signed main() {
  n = get(), A = get(), B = get();
  if (!A || !B) return 0 * printf("0\n");
  Stirling::initRol(n + 10, A + B - 2);
  long long c = Stirling::GetCur(n - 1);
  for (long long i = A + B - 2, j = 1; j <= A - 1; i--, j++) c = c * i % P;
  for (long long i = 1; i <= A - 1; i++) c = c * qpow(i, P - 2) % P;
  printf("%lld\n", c);
}