int n, q; int a[kMaxN], b[kMaxN], op[kMaxN * 2], pre[kMaxN * 2], suf[kMaxN * 2]; int f[kMaxN * 2][kMaxN], g[kMaxN * 2][kMaxN], res[kMaxN];
intqpow(int bs, int64_t idx = kMod - 2){ int ret = 1; for (; idx; idx >>= 1, bs = (int64_t)bs * bs % kMod) if (idx & 1) ret = (int64_t)ret * bs % kMod; return ret; }
inlineintadd(int x, int y){ return (x + y >= kMod ? x + y - kMod : x + y); } inlineintsub(int x, int y){ return (x >= y ? x - y : x - y + kMod); } inlinevoidinc(int &x, int y){ (x += y) >= kMod ? x -= kMod : x; } inlinevoiddec(int &x, int y){ (x -= y) < 0 ? x += kMod : x; }
voiddickdreamer(){ std::cin >> n; for (int i = 1; i <= n; ++i) std::cin >> a[i], op[a[i]] = 0; for (int i = 1; i <= n; ++i) std::cin >> b[i], op[b[i]] = 1; for (int i = 1; i <= 2 * n; ++i) pre[i] = pre[i - 1] + !op[i]; for (int i = 2 * n; i >= 1; --i) suf[i] = suf[i + 1] + !op[i]; f[0][0] = g[2 * n + 1][0] = 1; for (int i = 1; i <= 2 * n; ++i) { for (int j = 0; j <= std::min(n, i - 1); ++j) { if (op[i] == 1) { inc(f[i][j], f[i - 1][j]); } else { inc(f[i][j], f[i - 1][j]); if (j + 1 <= i - pre[i]) inc(f[i][j + 1], f[i - 1][j]); } } } for (int i = 2 * n; i; --i) { for (int j = 0; j <= std::min(n, 2 * n - i); ++j) { if (op[i] == 1) { inc(g[i][j], g[i + 1][j]); } else { inc(g[i][j], g[i + 1][j]); if (j + 1 <= 2 * n - i + 1 - suf[i]) inc(g[i][j + 1], g[i + 1][j]); } } } for (int i = 0; i <= 2 * n; ++i) { if (!i || op[i] == 1) { int k = i - pre[i]; for (int j = 0; j <= std::min(k, suf[i + 1]); ++j) inc(res[k], 1ll * f[i][k - j] * g[i + 1][suf[i + 1] - j] % kMod); } } std::cin >> q; for (int i = 1; i <= q; ++i) { int l, r; std::cin >> l >> r; int ans = 0; for (int j = l; j <= r; ++j) inc(ans, res[j]); std::cout << ans << '\n'; } }