#include <iostream> #include <algorithm> #include <string> #include <vector> #include <cmath> #include <map> #include <queue> #include <iomanip> #include <set> #include <tuple> #define mkp make_pair #define mkt make_tuple #define rep(i,n) for(int i = 0; i < (n); ++i) #define all(v) v.begin(),v.end() using namespace std; typedef long long ll; const ll MOD=1e9+7; template<class T> void chmin(T &a,const T &b){if(a>b) a=b;} template<class T> void chmax(T &a,const T &b){if(a<b) a=b;} #define MAX_N 1000010 ll inv[MAX_N+10],fac[MAX_N+10],ifac[MAX_N+10]; void setComb(){ inv[0]=1;inv[1]=1;fac[1]=1;ifac[1]=1;fac[0]=1;ifac[0]=1; for(int i=2;i<MAX_N;i++){ inv[i]=(-MOD/i)*inv[MOD%i]%MOD; fac[i]=fac[i-1]*i%MOD; ifac[i]=ifac[i-1]*inv[i]%MOD; inv[i]=(inv[i]+MOD)%MOD; fac[i]=(fac[i]+MOD)%MOD; ifac[i]=(ifac[i]+MOD)%MOD; } return; } ll comb(ll n,ll k){ if(n<k||n<0||k<0) return 0; else return ((fac[n]*ifac[k]%MOD*ifac[n-k]%MOD+MOD)%MOD); } ll hcomb(ll n,ll r){// this size is really ok?? if(n==0&&r==0) return 1; else if(n<0||r<0) return 0; else return comb(n+r-1,r); } ll binom(ll n,ll k){ if(n<k||n<0||k<0) return 0; ll res=1; for(ll i=0;i<k;i++) res=res*(n-i)%MOD; res=res*ifac[k]%MOD; return res; } ll mod_pow(ll x,ll n){ x%=MOD; ll res=1; while(n>0){ if(n&1) res=res*x%MOD; x=x*x%MOD; n>>=1; } return res; } ll mod_inverse(ll x){ return mod_pow(x,MOD-2); } void add(ll &a,ll b){ a=(a+b)%MOD; } void mul(ll &a,ll b){ a%=MOD;b%=MOD; a=a*b%MOD; } int main(){ cin.tie(0); ios::sync_with_stdio(false); setComb(); int N,A,B,L; cin>>N>>A>>B>>L; vector<int> S(N); rep(i,N) cin>>S[i]; int lim=0; rep(i,N) lim+=S[i]; vector<vector<ll>> dp(N+1,vector<ll> (lim+1,0)); dp[0][0]=1; vector<vector<ll>> sum(N+1,vector<ll> (lim+2,0)); rep(j,N+1) rep(k,lim+1){ sum[j][k+1]=sum[j][k]+dp[j][k]; } for(int i=0;i<N;i++){ vector<vector<ll>> ndp(N+1,vector<ll> (lim+1,0)); for(int j=0;j<=N;j++){ for(int k=0;k<=lim;k++){ { add(ndp[j][k],dp[j][k]); } if(j-1>=0){ add(ndp[j][k],sum[j-1][k]-sum[j-1][max(0,k-S[i])]+MOD); } } } vector<vector<ll>> nsum(N+1,vector<ll> (lim+2,0)); rep(j,N+1) rep(k,lim+1) nsum[j][k+1]=(nsum[j][k]+ndp[j][k])%MOD; swap(dp,ndp); swap(sum,nsum); } ll ans=0; for(int j=0;j<=N;j++){ for(int k=0;k<=lim;k++){ int rest=L*j-k; if(rest>A) continue; if(k>B) continue; ll res=dp[j][k]; mul(res,hcomb(N,A-rest)); add(ans,res); } } cout<<ans<<endl; return 0; }