Problem: Snuke found a random number generator. It generates an integer between 0 and N-1 (inclusive). An integer sequence A_0, A_1, \cdots, A_{N-1} represents the probability that each of these integers is generated. The integer i (0 \leq i \leq N-1) is generated with probability A_i / S, where S = \sum_{i=0}^{N-1} A_i. The process of generating an integer is done independently each time the generator is executed.

Now, Snuke will repeatedly generate an integer with this generator until the following condition is satisfied:

* For every i (0 \leq i \leq N-1), the integer i has been generated at least B_i times so far.



Find the expected number of times Snuke will generate an integer, and print it modulo 998244353. More formally, represent the expected number of generations as an irreducible fraction P/Q. Then, there exists a unique integer R such that R \times Q \equiv P \pmod{998244353},\ 0 \leq R < 998244353, so print this R.

From the constraints of this problem, we can prove that the expected number of generations is a finite rational number, and its integer representation modulo 998244353 can be defined.

Constraints

* 1 \leq N \leq 400
* 1 \leq A_i
* \sum_{i=0}^{N-1} A_i \leq 400
* 1 \leq B_i
* \sum_{i=0}^{N-1} B_i \leq 400
* All values in input are integers.

Input

Input is given from Standard Input in the following format:


N
A_0 B_0
A_1 B_1
\vdots
A_{N-1} B_{N-1}


Output

Print the expected number of times Snuke will generate an integer, modulo 998244353.

Examples

Input

2
1 1
1 1


Output

3


Input

3
1 3
2 2
3 1


Output

971485877


Input

15
29 3
78 69
19 15
82 14
9 120
14 51
3 7
6 14
28 4
13 12
1 5
32 30
49 24
35 23
2 9


Output

371626143

Solution (in CPP):

Solution:
#include<cstdio>
#include<cstdlib>
#include<iostream>
#include<cassert>
#define llong long long
using namespace std;

const int N = 400;
const int P = 998244353;
llong dp[N+3][N+3][N+3];
llong pw1[N+3],pw2[N+3];
llong fact[N+3],finv[N+3];
llong inv[N+3];
int a[N+3],b[N+3];
int n;

llong quickpow(llong x,llong y)
{
	llong cur = x,ret = 1ll;
	for(int i=0; y; i++)
	{
		if(y&(1ll<<i)) {y-=(1ll<<i); ret = ret*cur%P;}
		cur = cur*cur%P;
	}
	return ret;
}
llong comb(llong x,llong y) {return x<0||y<0||x<y ? 0ll : fact[x]*finv[y]%P*finv[x-y]%P;}

int main()
{
	inv[1] = 1; for(int i=2; i<=N; i++) inv[i] = (P-P/i)*inv[P%i]%P;
	fact[0] = 1ll; for(int i=1; i<=N; i++) fact[i] = fact[i-1]*i%P;
	finv[N] = quickpow(fact[N],P-2); for(int i=N-1; i>=0; i--) finv[i] = finv[i+1]*(i+1)%P;
	scanf("%d",&n); int sa = 0,sb = 0,ssa = 0;
	for(int i=1; i<=n; i++) scanf("%d%d",&a[i],&b[i]),ssa+=a[i];
	dp[0][0][0] = P-1ll;
	for(int i=1; i<=n; i++)
	{
		sa += a[i],sb += b[i];
		for(int j=0; j<=sa; j++)
		{
			for(int k=0; k<=sb-i; k++) {dp[i][j][k] = dp[i-1][j][k];}
			if(j>=a[i])
			{
				llong x = (j-a[i])*inv[j]%P;
				pw1[0] = 1ll; for(int k=1; k<=sb-i; k++) pw1[k] = pw1[k-1]*x%P;
				x = a[i]*inv[j]%P;
				pw2[0] = 1ll; for(int k=1; k<=sb-i; k++) pw2[k] = pw2[k-1]*x%P;
				for(int k=0; k<=sb-i; k++)
				{
					for(int kk=0; kk<=k && kk<b[i]; kk++)
					{
						llong tmp = dp[i-1][j-a[i]][k-kk]*comb(k,kk)%P*pw1[k-kk]%P*pw2[kk]%P;
						dp[i][j][k] = (dp[i][j][k]-tmp+P)%P;
					}
				}
			}
//			for(int k=0; k<=sb-i; k++) printf("dp[%d][%d][%d]=%lld\n",i,j,k,dp[i][j][k]);
		}
	}
	llong ans = 0ll;
	for(int i=1; i<=sa; i++) for(int j=0; j<=sb; j++)
	{
//		printf("dp[%d][%d][%d]=%lld\n",n,i,j,dp[n][i][j]);
		ans = (ans+dp[n][i][j]*sa%P*inv[i])%P;
	}
	printf("%lld\n",ans);
	return 0;
}