import std.conv, std.functional, std.range, std.stdio, std.string; import std.algorithm, std.array, std.bigint, std.bitmanip, std.complex, std.container, std.math, std.mathspecial, std.numeric, std.regex, std.typecons; import core.bitop; class EOFException : Throwable { this() { super("EOF"); } } string[] tokens; string readToken() { for (; tokens.empty; ) { if (stdin.eof) { throw new EOFException; } tokens = readln.split; } auto token = tokens.front; tokens.popFront; return token; } int readInt() { return readToken.to!int; } long readLong() { return readToken.to!long; } real readReal() { return readToken.to!real; } bool chmin(T)(ref T t, in T f) { if (t > f) { t = f; return true; } else { return false; } } bool chmax(T)(ref T t, in T f) { if (t < f) { t = f; return true; } else { return false; } } int binarySearch(alias pred, T)(in T[] as) { int lo = -1, hi = cast(int)(as.length); for (; lo + 1 < hi; ) { const mid = (lo + hi) >> 1; (unaryFun!pred(as[mid]) ? hi : lo) = mid; } return hi; } int lowerBound(T)(in T[] as, T val) { return as.binarySearch!(a => (a >= val)); } int upperBound(T)(in T[] as, T val) { return as.binarySearch!(a => (a > val)); } enum MO = 998244353; enum E = 10; void main() { try { for (; ; ) { const N = readInt() / 2; int K = readInt(); const X = readInt(); const Y = readInt(); auto A = new int[K]; foreach (k; 0 .. K) { A[k] = readInt(); } A = A.sort.uniq.array; K = cast(int)(A.length); long solve(int n, int ini) { auto fs = new long[1 << E]; void dfs(int i, int x, int last) { if (i == n) { ++fs[x]; } else { foreach (k; 0 .. K) { if (k != last) { dfs(i + 1, x ^ A[k], k); } } } } dfs(0, 0, ini); debug { writeln("fs = ", fs[0 .. 16]); } foreach (e; 0 .. E) { foreach (x; 0 .. 1 << E) { if (!(x & 1 << e)) { const y = x | 1 << e; const t = fs[x] - fs[y]; fs[x] += fs[y]; fs[y] = t; } } } foreach (x; 0 .. 1 << E) { fs[x] = fs[x] * fs[x]; } foreach (e; 0 .. E) { foreach (x; 0 .. 1 << E) { if (!(x & 1 << e)) { const y = x | 1 << e; const t = fs[x] - fs[y]; fs[x] += fs[y]; fs[y] = t; } } } fs[] /= (1 << E); long ret; foreach (x; 0 .. 1 << E) { if (X <= x && x <= Y) { ret += fs[x]; } } return ret; } long ans; ans += solve(N, -1); foreach (k; 0 .. K) { ans -= solve(N - 1, k); } ans %= MO; writeln(ans); } } catch (EOFException e) { } }