#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;
}