/*
わんわん……わんだほーいっ☆
Wonderhoy!
*/
#include<bits/stdc++.h>
using namespace std;
typedef long long LL;
typedef double DB;
char buf[1<<21],*p1=buf,*p2=buf;
#define getchar() (p1==p2 && (p2=(p1=buf)+fread(buf,1,1<<18,stdin),p1==p2)?EOF:*p1++)
LL read()
{
	LL x=0;
	char c=getchar();
	while(c<'0' || c>'9')	c=getchar();
	while(c>='0' && c<='9')	x=(x<<1)+(x<<3)+(c^'0'),c=getchar();
	return x;
}
void write(LL x)
{
	if(x>9)	write(x/10);
	putchar(x%10+'0');
}
LL rdgt()
{
	char c=getchar();
	while(!isdigit(c))	c=getchar();
	return c^'0';
}
typedef pair<LL,LL> P;
typedef vector<LL> Poly;
typedef vector<P> PolyP;
#define mp make_pair
#define spc putchar(' ')
#define etr putchar('\n')
#define inlp(x,y) putchar(x==y?'\n':' ')
const LL MOD=998244353,inf=1e18;
inline LL Add(LL u,LL v){return u+v>=MOD?u+v-MOD:u+v;}
inline LL Sub(LL u,LL v){return u-v>=0?u-v:u-v+MOD;}
inline LL Mul(LL u,LL v){return LL(u)*LL(v)%MOD;}
inline LL add(LL &u,LL v){return u=Add(u,v);}
inline LL sub(LL &u,LL v){return u=Sub(u,v);}
inline LL mul(LL &u,LL v){return u=Mul(u,v);}
LL QuickPow(LL x,LL p=MOD-2)
{
	LL ans=1,base=x;
	while(p)
	{
		if(p&1)	mul(ans,base);
		mul(base,base);
		p>>=1;
	}
	return ans;
}
inline LL fsum(LL x){return x*(x+1)/2;}
inline LL avediv(LL x,LL n)
{
	if(x==0)	return 0;
	LL p=x/n,q=x%n;
	return fsum(p)*(n-q)+fsum(p+1)*q;
}
inline LL calc(LL p,LL q,LL rst,LL x,LL f){return fsum(p)+fsum(q)+(2*rst-p-q)*(f-1)+avediv(rst-p-q,x-1);}
LL n,m,L,R,c;
LL a[10000005];
int main(){
	m=read(),L=read(),R=read(),c=read();
	for(LL i=0;i<m;++i)	a[i]=rdgt();
	n=accumulate(a,a+m,m*c);
	LL ans=0;
	if(L==0)	ans=fsum(n)%MOD,L=1;
	LL up=n,fl=accumulate(a,a+L-1,0);
	LL pw=QuickPow(233,L-1);
	for(LL i=L;i<=R;++i)
	{
		mul(pw,233);
		fl+=a[i-1];
		LL rst=n-fl-i*c,x=c;
		up=min(up,rst/2);
		if(fl==i)	++x;
		else if(fl==i-1 && a[i-1]==0)	up=rst/2;
		LL ret=inf;
		if(x==1)	ret=calc(rst/2,rst-rst/2,rst,x,i);
		else
		{
			if(m>=2e6 && up<=1e7)	while(up>0 && calc(up,up,rst,x,i)>calc(up-1,up-1,rst,x,i))	--up;
			else
			{
				LL l=1,r=up;
				up=0;
				while(l<=r)
				{
					LL mid=(l+r)>>1;
					if(calc(mid,mid,rst,x,i)<calc(mid-1,mid-1,rst,x,i))		up=mid,l=mid+1;
					else	r=mid-1;
				}
			}
			ret=min(ret,calc(up,up,rst,x,i));
			if(up+up+1<=rst)	ret=min(ret,calc(up,up+1,rst,x,i));
		}
		LL fans=fsum(n)-ret-(n-rst-(i-1))*(i-1)-fsum(i-1);
		ans^=Mul(fans%MOD,pw);
	}
	write(ans),etr;
	return 0;
}