#include<bits/stdc++.h>
using namespace std;
template <typename T> bool maximize(T &res, const T &val){if(res < val) return res = val, true; return false;}
template <typename T> bool minimize(T &res, const T &val){if(res > val) return res = val, true; return false;}
#define ll long long
#define fi first
#define se second
#define pb push_back
#define FOR(i, a, b) for(int i = (a), _b = (b); i <= _b; i++)
#define FORD(i, b, a) for(int i = (b), _a = (a); i >= _a; i--)
#define REP(i, n) for(int i = 0, _n = (n); i < _n; i++)
#define C make_pair
#define MASK(i) (1LL << (i))
#define TURN_ON(i, x) ((x) | MASK(i))
#define TURN_OFF(i, x) ((x) & ~MASK(i))
#define RE(i, x) ((x) ^ MASK(i))
const ll mod = 918052004;
const ll INF = 1e15;
typedef pair<int, int> pi;
typedef pair<int, pair<int,int>> pii;
typedef pair<ll, ll> pl;
typedef pair<ll, pair<ll,ll>>pll;
struct edge{
int u,v,w;
edge(int u = 0, int v = 0, int w = 0)
{
this->u = u;
this->v = v;
this->w = w;
}
};
struct matrix{
ll val[3][3];
matrix(){
memset(val, 0, sizeof(val));
}
};
const int maxn = 181000;
ll t, n, m, L, R, a[maxn];
void add(ll &a, ll b){
a += b;
if(a >= mod) a -= mod;
}
namespace sub1{
bool check(){
return n <= 185;
}
const int limit = (int)185;
ll dp[limit + 10][limit + 10], ans;
bool mark[limit + 10];
void solve(){
dp[0][L] = 1;
FOR(i, 1, n){
memset(mark, 0, sizeof(mark));
int cnt = 0;
FORD(j, i, 1){
if(!mark[a[j]]){
mark[a[j]] = 1;
cnt++;
}
if(cnt > R) break;
if(cnt < L) continue;
FOR(g, L, R) add(dp[i][cnt], dp[j - 1][g]);
}
}
FOR(i, L, R) add(ans, dp[n][i]);
cout << ans << '\n';
memset(dp, 0, sizeof(dp));
ans = 0;
}
}
namespace sub2{
bool check(){
return n <= (int)1805;
}
const int limit = (int)1805;
ll dp[limit + 10][limit + 10], sum[limit + 10], ans;
bool mark[limit + 10];
void solve(){
sum[0] = 1;
FOR(i, 1, n){
memset(mark, 0, sizeof(mark));
int cnt = 0;
FORD(j, i, 1){
if(!mark[a[j]]){
cnt++;
mark[a[j]] = 1;
}
if(cnt > R) break;
if(cnt < L) continue;
add(dp[i][cnt], sum[j - 1]);
}
FOR(j, L, R) add(sum[i], dp[i][j]);
}
FOR(i, L, R) add(ans, dp[n][i]);
cout << ans << '\n';
memset(dp, 0, sizeof(dp));
memset(sum, 0, sizeof(sum));
ans = 0;
}
}
namespace sub3{
const int limit = (int)180504;
ll dp[limit + 10], sum[limit + 10], BIT[limit + 10], last_pos[limit + 10];
void update(int x, int val){
for(; x <= limit; x += x & -x) BIT[x] += val;
}
ll get(int x){
ll s = 0;
for(; x > 0; x -= x & -x) s += BIT[x];
return s;
}
int get_R(int i){
int l = 1, r = i, ans = -1;
while(l <= r){
int mid = (l + r) >> 1;
int val = get(i) - get(mid - 1);
if(val >= L) l = mid + 1;
else{
ans = mid;
r = mid - 1;
}
}
return ans;
}
int get_L(int i){
int l = 1, r = i, ans = -1;
while(l <= r){
int mid = (l + r) >> 1;
int val = get(i) - get(mid - 1);
if(val > R){
ans = mid;
l = mid + 1;
}
else r = mid - 1;
}
return ans;
}
void solve(){
FOR(i, 0, n + 3){
dp[i] = 0;
sum[i] = 0;
last_pos[i] = 0;
BIT[i] = 0;
}
sum[1] = 1;
int tmp1 = 1, tmp2 = 1;
FOR(i, 1, n){
update(i, 1);
if(last_pos[a[i]]){
update(last_pos[a[i]], -1);
}
last_pos[a[i]] = i;
sum[i + 1] += sum[i];
int val = get(i) - get(tmp1 - 1);
if(val < L) continue;
while(val > R){
tmp1++;
val = get(i) - get(tmp1 - 1);
}
val = get(i) - get(tmp2 - 1);
while(val >= L){
tmp2++;
val = get(i) - get(tmp2 - 1);
}
tmp2--;
add(dp[i], (sum[tmp2] - sum[tmp1 - 1] + mod) % mod);
add(sum[i + 1], dp[i]);
}
cout << dp[n] << '\n';
}
}
int main(){
//freopen("team.inp", "r", stdin);
//freopen("team.out", "w", stdout);
ios_base::sync_with_stdio(0);
cin.tie(0); cout.tie(0);
cin >> t;
while(t--){
cin >> n >> m >> L >> R;
FOR(i, 1, n) cin >> a[i];
//if(sub1::check()) sub1::solve();
//else if(sub2::check()) sub2::solve();
//else sub3::solve();
sub1::solve();
sub3::solve();
}
}
I2luY2x1ZGU8Yml0cy9zdGRjKysuaD4KCnVzaW5nIG5hbWVzcGFjZSBzdGQ7Cgp0ZW1wbGF0ZSA8dHlwZW5hbWUgVD4gYm9vbCBtYXhpbWl6ZShUICZyZXMsIGNvbnN0IFQgJnZhbCl7aWYocmVzIDwgdmFsKSByZXR1cm4gcmVzID0gdmFsLCB0cnVlOyByZXR1cm4gZmFsc2U7fQp0ZW1wbGF0ZSA8dHlwZW5hbWUgVD4gYm9vbCBtaW5pbWl6ZShUICZyZXMsIGNvbnN0IFQgJnZhbCl7aWYocmVzID4gdmFsKSByZXR1cm4gcmVzID0gdmFsLCB0cnVlOyByZXR1cm4gZmFsc2U7fQoKI2RlZmluZSBsbCBsb25nIGxvbmcKI2RlZmluZSBmaSBmaXJzdAojZGVmaW5lIHNlIHNlY29uZAojZGVmaW5lIHBiIHB1c2hfYmFjawojZGVmaW5lIEZPUihpLCBhLCBiKSBmb3IoaW50IGkgPSAoYSksIF9iID0gKGIpOyBpIDw9IF9iOyBpKyspCiNkZWZpbmUgRk9SRChpLCBiLCBhKSBmb3IoaW50IGkgPSAoYiksIF9hID0gKGEpOyBpID49IF9hOyBpLS0pCiNkZWZpbmUgUkVQKGksIG4pIGZvcihpbnQgaSA9IDAsIF9uID0gKG4pOyBpIDwgX247IGkrKykKI2RlZmluZSBDIG1ha2VfcGFpcgojZGVmaW5lIE1BU0soaSkgKDFMTCA8PCAoaSkpCiNkZWZpbmUgVFVSTl9PTihpLCB4KSAoKHgpIHwgTUFTSyhpKSkKI2RlZmluZSBUVVJOX09GRihpLCB4KSAoKHgpICYgfk1BU0soaSkpCiNkZWZpbmUgUkUoaSwgeCkgKCh4KSBeIE1BU0soaSkpCgpjb25zdCBsbCBtb2QgPSA5MTgwNTIwMDQ7CmNvbnN0IGxsIElORiA9IDFlMTU7CnR5cGVkZWYgcGFpcjxpbnQsIGludD4gcGk7CnR5cGVkZWYgcGFpcjxpbnQsIHBhaXI8aW50LGludD4+IHBpaTsKdHlwZWRlZiBwYWlyPGxsLCBsbD4gcGw7CnR5cGVkZWYgcGFpcjxsbCwgcGFpcjxsbCxsbD4+cGxsOwoKc3RydWN0IGVkZ2V7CiAgICBpbnQgdSx2LHc7CiAgICBlZGdlKGludCB1ID0gMCwgaW50IHYgPSAwLCBpbnQgdyA9IDApCiAgICB7CiAgICAgICAgdGhpcy0+dSA9IHU7CiAgICAgICAgdGhpcy0+diA9IHY7CiAgICAgICAgdGhpcy0+dyA9IHc7CiAgICB9Cn07CnN0cnVjdCBtYXRyaXh7CiAgICBsbCB2YWxbM11bM107CiAgICBtYXRyaXgoKXsKICAgICAgICBtZW1zZXQodmFsLCAwLCBzaXplb2YodmFsKSk7CiAgICB9Cn07Cgpjb25zdCBpbnQgbWF4biA9IDE4MTAwMDsKCmxsIHQsIG4sIG0sIEwsIFIsIGFbbWF4bl07Cgp2b2lkIGFkZChsbCAmYSwgbGwgYil7CglhICs9IGI7CglpZihhID49IG1vZCkgYSAtPSBtb2Q7Cn0KbmFtZXNwYWNlIHN1YjF7Cglib29sIGNoZWNrKCl7CgkJcmV0dXJuIG4gPD0gMTg1OwoJfQoJY29uc3QgaW50IGxpbWl0ID0gKGludCkxODU7CglsbCBkcFtsaW1pdCArIDEwXVtsaW1pdCArIDEwXSwgYW5zOwoJYm9vbCBtYXJrW2xpbWl0ICsgMTBdOwoJCgl2b2lkIHNvbHZlKCl7CgkJZHBbMF1bTF0gPSAxOwoJCUZPUihpLCAxLCBuKXsKCQkJbWVtc2V0KG1hcmssIDAsIHNpemVvZihtYXJrKSk7CgkJCWludCBjbnQgPSAwOwoJCQlGT1JEKGosIGksIDEpewoJCQkJaWYoIW1hcmtbYVtqXV0pewoJCQkJCW1hcmtbYVtqXV0gPSAxOwoJCQkJCWNudCsrOwoJCQkJfQoJCQkJaWYoY250ID4gUikgYnJlYWs7CgkJCQlpZihjbnQgPCBMKSBjb250aW51ZTsKCQkJCUZPUihnLCBMLCBSKSBhZGQoZHBbaV1bY250XSwgZHBbaiAtIDFdW2ddKTsKCQkJfQoJCX0KCQlGT1IoaSwgTCwgUikgYWRkKGFucywgZHBbbl1baV0pOwoJCWNvdXQgPDwgYW5zIDw8ICdcbic7CgkJbWVtc2V0KGRwLCAwLCBzaXplb2YoZHApKTsKCQlhbnMgPSAwOwoJfQp9Cm5hbWVzcGFjZSBzdWIyewoJYm9vbCBjaGVjaygpewoJCXJldHVybiBuIDw9IChpbnQpMTgwNTsKCX0KCWNvbnN0IGludCBsaW1pdCA9IChpbnQpMTgwNTsKCWxsIGRwW2xpbWl0ICsgMTBdW2xpbWl0ICsgMTBdLCBzdW1bbGltaXQgKyAxMF0sIGFuczsKCWJvb2wgbWFya1tsaW1pdCArIDEwXTsKCXZvaWQgc29sdmUoKXsKCQlzdW1bMF0gPSAxOwoJCUZPUihpLCAxLCBuKXsKCQkJbWVtc2V0KG1hcmssIDAsIHNpemVvZihtYXJrKSk7CgkJCWludCBjbnQgPSAwOwoJCQlGT1JEKGosIGksIDEpewoJCQkJaWYoIW1hcmtbYVtqXV0pewoJCQkJCWNudCsrOwoJCQkJCW1hcmtbYVtqXV0gPSAxOwoJCQkJfQoJCQkJaWYoY250ID4gUikgYnJlYWs7CgkJCQlpZihjbnQgPCBMKSBjb250aW51ZTsKCQkJCWFkZChkcFtpXVtjbnRdLCBzdW1baiAtIDFdKTsKCQkJfQoJCQlGT1IoaiwgTCwgUikgYWRkKHN1bVtpXSwgZHBbaV1bal0pOwoJCX0KCQlGT1IoaSwgTCwgUikgYWRkKGFucywgZHBbbl1baV0pOwoJCWNvdXQgPDwgYW5zIDw8ICdcbic7CgkJbWVtc2V0KGRwLCAwLCBzaXplb2YoZHApKTsKCQltZW1zZXQoc3VtLCAwLCBzaXplb2Yoc3VtKSk7CgkJYW5zID0gMDsKCX0KfQpuYW1lc3BhY2Ugc3ViM3sKCWNvbnN0IGludCBsaW1pdCA9IChpbnQpMTgwNTA0OwoJbGwgZHBbbGltaXQgKyAxMF0sIHN1bVtsaW1pdCArIDEwXSwgQklUW2xpbWl0ICsgMTBdLCBsYXN0X3Bvc1tsaW1pdCArIDEwXTsKCQoJdm9pZCB1cGRhdGUoaW50IHgsIGludCB2YWwpewoJCWZvcig7IHggPD0gbGltaXQ7IHggKz0geCAmIC14KSBCSVRbeF0gKz0gdmFsOwoJfQoJbGwgZ2V0KGludCB4KXsKCQlsbCBzID0gMDsKCQlmb3IoOyB4ID4gMDsgeCAtPSB4ICYgLXgpIHMgKz0gQklUW3hdOwoJCXJldHVybiBzOwoJfQoJaW50IGdldF9SKGludCBpKXsKCQlpbnQgbCA9IDEsIHIgPSBpLCBhbnMgPSAtMTsKCQl3aGlsZShsIDw9IHIpewoJCQlpbnQgbWlkID0gKGwgKyByKSA+PiAxOwoJCQlpbnQgdmFsID0gZ2V0KGkpIC0gZ2V0KG1pZCAtIDEpOwoJCQlpZih2YWwgPj0gTCkgbCA9IG1pZCArIDE7CgkJCWVsc2V7CgkJCQlhbnMgPSBtaWQ7CgkJCQlyID0gbWlkIC0gMTsKCQkJfQoJCX0KCQlyZXR1cm4gYW5zOwoJfQoJaW50IGdldF9MKGludCBpKXsKCQlpbnQgbCA9IDEsIHIgPSBpLCBhbnMgPSAtMTsKCQl3aGlsZShsIDw9IHIpewoJCQlpbnQgbWlkID0gKGwgKyByKSA+PiAxOwoJCQlpbnQgdmFsID0gZ2V0KGkpIC0gZ2V0KG1pZCAtIDEpOwoJCQlpZih2YWwgPiBSKXsKCQkJCWFucyA9IG1pZDsKCQkJCWwgPSBtaWQgKyAxOwoJCQl9CgkJCWVsc2UgciA9IG1pZCAtIDE7CgkJfQoJCXJldHVybiBhbnM7Cgl9Cgl2b2lkIHNvbHZlKCl7CgkJRk9SKGksIDAsIG4gKyAzKXsKCQkJZHBbaV0gPSAwOwoJCQlzdW1baV0gPSAwOwoJCQlsYXN0X3Bvc1tpXSA9IDA7CgkJCUJJVFtpXSA9IDA7CgkJfQoJCXN1bVsxXSA9IDE7CgkJaW50IHRtcDEgPSAxLCB0bXAyID0gMTsKCQlGT1IoaSwgMSwgbil7CgkJCXVwZGF0ZShpLCAxKTsKCQkJaWYobGFzdF9wb3NbYVtpXV0pewoJCQkJdXBkYXRlKGxhc3RfcG9zW2FbaV1dLCAtMSk7CgkJCX0KCQkJbGFzdF9wb3NbYVtpXV0gPSBpOwoJCQlzdW1baSArIDFdICs9IHN1bVtpXTsKCQkJaW50IHZhbCA9IGdldChpKSAtIGdldCh0bXAxIC0gMSk7CgkJCWlmKHZhbCA8IEwpIGNvbnRpbnVlOwoJCQl3aGlsZSh2YWwgPiBSKXsKCQkJCXRtcDErKzsKCQkJCXZhbCA9IGdldChpKSAtIGdldCh0bXAxIC0gMSk7CgkJCX0KCQkJdmFsID0gZ2V0KGkpIC0gZ2V0KHRtcDIgLSAxKTsKCQkJd2hpbGUodmFsID49IEwpewoJCQkJdG1wMisrOwoJCQkJdmFsID0gZ2V0KGkpIC0gZ2V0KHRtcDIgLSAxKTsKCQkJfQoJCQl0bXAyLS07CgkJCWFkZChkcFtpXSwgKHN1bVt0bXAyXSAtIHN1bVt0bXAxIC0gMV0gKyBtb2QpICUgbW9kKTsKCQkJYWRkKHN1bVtpICsgMV0sIGRwW2ldKTsKCQl9CgkJY291dCA8PCBkcFtuXSA8PCAnXG4nOwoJfQp9CmludCBtYWluKCl7CgkvL2ZyZW9wZW4oInRlYW0uaW5wIiwgInIiLCBzdGRpbik7CgkvL2ZyZW9wZW4oInRlYW0ub3V0IiwgInciLCBzdGRvdXQpOwoJaW9zX2Jhc2U6OnN5bmNfd2l0aF9zdGRpbygwKTsKCWNpbi50aWUoMCk7IGNvdXQudGllKDApOwoJY2luID4+IHQ7Cgl3aGlsZSh0LS0pewoJCWNpbiA+PiBuID4+IG0gPj4gTCA+PiBSOwoJCUZPUihpLCAxLCBuKSBjaW4gPj4gYVtpXTsKCQkvL2lmKHN1YjE6OmNoZWNrKCkpIHN1YjE6OnNvbHZlKCk7CgkJLy9lbHNlIGlmKHN1YjI6OmNoZWNrKCkpIHN1YjI6OnNvbHZlKCk7CgkJLy9lbHNlIHN1YjM6OnNvbHZlKCk7CgkJc3ViMTo6c29sdmUoKTsKCQlzdWIzOjpzb2x2ZSgpOwoJfQp9