#pragma GCC target("avx2")
#pragma GCC optimize("O3")
#pragma GCC optimize("unroll-loops")
#include <bits/stdc++.h>
using namespace std;
using ll = long long;
template <class T> using vec = vector<T>;
template <class T> using vvec = vector<vec<T>>;
template<class T> bool chmin(T& a,T b){if(a>b) {a = b; return true;} return false;}
template<class T> bool chmax(T& a,T b){if(a<b) {a = b; return true;} return false;}
#define rep(i,n) for(int i=0;i<(n);i++)
#define drep(i,n) for(int i=(n)-1;i>=0;i--)
#define all(x) (x).begin(),(x).end()
#define debug(x)  cerr << #x << " = " << (x) << endl;

constexpr ll mod = 998244353;
struct mint {
    ll x;
    mint(ll x=0):x((x%mod+mod)%mod){}
    
    friend ostream &operator<<(ostream& os,const mint& a){
        return os << a.x;
    }

    friend istream &operator>>(istream& is,mint& a){
        ll t;
        is >> t;
        a = mint(t);
        return (is);
    }

    mint& operator+=(const mint a) {
        if ((x += a.x) >= mod) x -= mod;
        return *this;
    }
    mint& operator-=(const mint a) {
        if ((x += mod-a.x) >= mod) x -= mod;
        return *this;
    }
    mint& operator*=(const mint a) {
        (x *= a.x) %= mod;
        return *this;
    }
    mint operator+(const mint a) const {
        mint res(*this);
        return res+=a;
    }
    mint operator-(const mint a) const {
        mint res(*this);
        return res-=a;
    }
    mint operator*(const mint a) const {
        mint res(*this);
        return res*=a;
    }
    mint pow(ll t) const {
        if (!t) return 1;
        mint a = pow(t>>1);
        a *= a;
        if (t&1) a *= *this;
        return a;
    }
    // for prime mod
    mint inv() const {
        return pow(mod-2);
    }
    mint& operator/=(const mint a) {
        return (*this) *= a.inv();
    }
    mint operator/(const mint a) const {
        mint res(*this);
        return res/=a;
    }
    bool operator==(const mint a)const{
        return x==a.x;
    }
};

template<class T>
vec<T> xor_convolution(vec<T>& A,vec<T>& B){
    auto fwt = [](vec<T>& F){
        int n = F.size();
        for(int i=1;i<n;i<<=1){
            for(int j=0;j<n;j++){
                if((j&i)==0){
                    T x = F[j],y = F[j|i];
                    F[j] = x+y,F[j|i] = x-y;
                }
            }
        }
    };
    auto ifwt = [](vec<T>& F){
        int n = F.size();
        for(int i=1;i<n;i<<=1){
            for(int j=0;j<n;j++){
                if((j&i)==0){
                    T x = F[j],y = F[j|i];
                    F[j] = (x+y)/2,F[j|i] = (x-y)/2;
                }
            }
        }
    };
    fwt(A);
    fwt(B);
    vec<T> C(A.size());
    rep(i,A.size()) C[i] = A[i]*B[i];
    ifwt(C);
    return C;
}

int main(){
    cin.tie(0);
    ios::sync_with_stdio(false);
    int N,K,X,Y;
    cin >> N >> K >> X >> Y;
    vec<int> A(K);
    rep(i,K) cin >> A[i];
    sort(all(A));
    A.erase(unique(all(A)),A.end());
    K = A.size();
    int B = 10;
    int S = 1<<B;
    vvec<mint> cnt(S,vec<mint>(S));
    auto dfs = [&](auto&& self,int len,int x,int last)->void{
        if(len==N/2){
            cnt[last][x] += 1;
            return ;
        }
        rep(i,K) if(A[i]!=last) self(self,len+1,x^A[i],A[i]);
    };
    dfs(dfs,0,0,-1);
    vvec<mint> R(S+1,vec<mint>(S));
    drep(i,S){
        rep(j,S){
            R[i][j] = R[i+1][j]+cnt[i][j];
        }
    }
    mint ans = 0;
    rep(i,S-1){
        auto res = xor_convolution(cnt[i],R[i+1]);
        rep(j,S) if(X<=j && j<=Y) ans += res[j];
    }
    cout << ans*2 << "\n";
}