// #pragma GCC optimize("O3", "unroll-loops")
// #pragma GCC target("avx2", "bmi", "bmi2", "lzcnt", "popcnt")
#include <bits/stdc++.h>
#define ldb long double
//#define double ldb
#define db double
#define unomap unordered_map
#define unoset unordered_set
#define endl '\n'
#define str string
#define strstr stringstream
#define sz(a) (int)a.size()
#define ll long long
// #define int ll
#define pii pair <int, int>
#define pll pair <ll, ll>
#define Unique(a) a.resize(unique(all(a)) - a.begin())
#define ull unsigned ll
#define fir first
#define sec second
#define idc cin.ignore()
#define lb lower_bound
#define ub upper_bound
#define all(s) s.begin(), s.end()
#define rall(s) s.rbegin(), s.rend()
#define rev reverse
#define gcd __gcd
#define pushb push_back
#define popb pop_back
#define pushf push_front
#define popf pop_front
#define mul2x(a, x) a << x
#define div2x(a, x) a >> x
#define lcm(a, b) (a / __gcd(a, b) * b)
#define log_base(x, base) log(x) / log(base)
#define debug cerr<<"No errors!",exit(0);
#define forw(i, a, b) for (int i = a; i <= b; ++i)
#define forw2(i, a, b) for (ll i = a; i <= b; ++i)
#define fors(i, a, b) for (int i = a; i >= b; --i)
#define fors2(i, a, b) for (ll i = a; i >= b; --i)
#define pqueue priority_queue
#define sqrt sqrtl
#define i128 __int128
#define popcount __builtin_popcountll
#define BIT(x, i) (((x) >> (i)) & 1)
#define MASK(x) ((1LL) << (x))
#define want_digit(x) cout << fixed << setprecision(x);
#define excuting_time 1000.0 * clock() / CLOCKS_PER_SEC
#define mapa make_pair
using namespace std;
const int MOD = 1e9 + 7; // 998244353;
const int inf = 1e9;
const ll INF = 1e18; // MASK(63) - 1
const int N = 2e7;
mt19937_64 rng(chrono::steady_clock::now().time_since_epoch().count());
ll random(const ll &L, const ll &R) {
return uniform_int_distribution<ll> (L, R) (rng);
}
/* -------~~~~~~===== END OF TEMPLATE =====~~~~~~------- */
int fac[N + 5], inv[N + 5];
ll power(ll a, ll b) {
ll res = 1;
while (b) {
if (b & 1) res = res * 1LL * a % MOD;
a = a * 1LL * a % MOD;
b >>= 1;
}
return res;
}
ll C(ll n, ll k) {
if (n < 0 || k < 0 || k > n) return 0;
return fac[n] * 1LL * inv[k] % MOD * 1LL * inv[n - k] % MOD;
}
void solve() {
ll S, n, L, H;
cin >> S >> n >> L >> H;
fac[0] = 1;
forw2 (i, 1, N) fac[i] = fac[i - 1] * 1LL * i % MOD;
inv[N] = power(fac[N], MOD - 2);
fors2 (i, N, 1) inv[i - 1] = inv[i] * 1LL * i % MOD;
if (S < n * 1LL * L) { cout << "0\n"; return; }
ll S2 = S - n * 1LL * L, D = H - L + 1, ans = 0;
forw2 (k, 0, n) {
ll curr = C(n, k) * 1LL * C(S2 - k * 1LL * D + n - 1, n - 1) % MOD;
if (k & 1) ans = (ans - curr + MOD) % MOD;
else ans = (ans + curr) % MOD;
}
cout << ans << endl;
}
signed main() {
ios::sync_with_stdio(false), cin.tie(nullptr);
srand(time(NULL));
#define name "test"
/*
if (fopen(name".INP", "r")) {
freopen(name".INP", "r", stdin);
freopen(name".OUT", "w", stdout);
}
*/
bool testCase = false;
int numTest = 1;
// cin >> numTest;
forw (i, 1, numTest) {
if (testCase) cout << "Case #" << i << ": ";
solve();
}
return 0;
}
/*
/\__/\
(=^.^= )
(") (")_/
*/
Ly8gI3ByYWdtYSBHQ0Mgb3B0aW1pemUoIk8zIiwgInVucm9sbC1sb29wcyIpCi8vICNwcmFnbWEgR0NDIHRhcmdldCgiYXZ4MiIsICJibWkiLCAiYm1pMiIsICJsemNudCIsICJwb3BjbnQiKQoKI2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CiNkZWZpbmUgbGRiIGxvbmcgZG91YmxlCi8vI2RlZmluZSBkb3VibGUgbGRiCiNkZWZpbmUgZGIgZG91YmxlCiNkZWZpbmUgdW5vbWFwIHVub3JkZXJlZF9tYXAKI2RlZmluZSB1bm9zZXQgdW5vcmRlcmVkX3NldAojZGVmaW5lIGVuZGwgJ1xuJwojZGVmaW5lIHN0ciBzdHJpbmcKI2RlZmluZSBzdHJzdHIgc3RyaW5nc3RyZWFtCiNkZWZpbmUgc3ooYSkgKGludClhLnNpemUoKQojZGVmaW5lIGxsIGxvbmcgbG9uZwovLyAjZGVmaW5lIGludCBsbAojZGVmaW5lIHBpaSBwYWlyIDxpbnQsIGludD4KI2RlZmluZSBwbGwgcGFpciA8bGwsIGxsPgojZGVmaW5lIFVuaXF1ZShhKSBhLnJlc2l6ZSh1bmlxdWUoYWxsKGEpKSAtIGEuYmVnaW4oKSkKI2RlZmluZSB1bGwgdW5zaWduZWQgbGwKI2RlZmluZSBmaXIgZmlyc3QKI2RlZmluZSBzZWMgc2Vjb25kCiNkZWZpbmUgaWRjIGNpbi5pZ25vcmUoKQojZGVmaW5lIGxiIGxvd2VyX2JvdW5kCiNkZWZpbmUgdWIgdXBwZXJfYm91bmQKI2RlZmluZSBhbGwocykgcy5iZWdpbigpLCBzLmVuZCgpCiNkZWZpbmUgcmFsbChzKSBzLnJiZWdpbigpLCBzLnJlbmQoKQojZGVmaW5lIHJldiByZXZlcnNlCiNkZWZpbmUgZ2NkIF9fZ2NkCiNkZWZpbmUgcHVzaGIgcHVzaF9iYWNrCiNkZWZpbmUgcG9wYiBwb3BfYmFjawojZGVmaW5lIHB1c2hmIHB1c2hfZnJvbnQKI2RlZmluZSBwb3BmIHBvcF9mcm9udAojZGVmaW5lIG11bDJ4KGEsIHgpIGEgPDwgeAojZGVmaW5lIGRpdjJ4KGEsIHgpIGEgPj4geAojZGVmaW5lIGxjbShhLCBiKSAoYSAvIF9fZ2NkKGEsIGIpICogYikKI2RlZmluZSBsb2dfYmFzZSh4LCBiYXNlKSBsb2coeCkgLyBsb2coYmFzZSkKI2RlZmluZSBkZWJ1ZyBjZXJyPDwiTm8gZXJyb3JzISIsZXhpdCgwKTsKI2RlZmluZSBmb3J3KGksIGEsIGIpICBmb3IgKGludCBpID0gYTsgaSA8PSBiOyArK2kpCiNkZWZpbmUgZm9ydzIoaSwgYSwgYikgZm9yIChsbCBpID0gYTsgaSA8PSBiOyArK2kpCiNkZWZpbmUgZm9ycyhpLCBhLCBiKSAgZm9yIChpbnQgaSA9IGE7IGkgPj0gYjsgLS1pKQojZGVmaW5lIGZvcnMyKGksIGEsIGIpIGZvciAobGwgaSA9IGE7IGkgPj0gYjsgLS1pKQojZGVmaW5lIHBxdWV1ZSBwcmlvcml0eV9xdWV1ZQojZGVmaW5lIHNxcnQgc3FydGwKI2RlZmluZSBpMTI4IF9faW50MTI4CiNkZWZpbmUgcG9wY291bnQgX19idWlsdGluX3BvcGNvdW50bGwKI2RlZmluZSBCSVQoeCwgaSkgKCgoeCkgPj4gKGkpKSAmIDEpCiNkZWZpbmUgTUFTSyh4KSAoKDFMTCkgPDwgKHgpKQojZGVmaW5lIHdhbnRfZGlnaXQoeCkgY291dCA8PCBmaXhlZCA8PCBzZXRwcmVjaXNpb24oeCk7CiNkZWZpbmUgZXhjdXRpbmdfdGltZSAxMDAwLjAgKiBjbG9jaygpIC8gQ0xPQ0tTX1BFUl9TRUMKI2RlZmluZSBtYXBhIG1ha2VfcGFpcgp1c2luZyBuYW1lc3BhY2Ugc3RkOwpjb25zdCBpbnQgTU9EID0gMWU5ICsgNzsgLy8gOTk4MjQ0MzUzOwpjb25zdCBpbnQgaW5mID0gMWU5Owpjb25zdCBsbCBJTkYgPSAxZTE4OyAvLyBNQVNLKDYzKSAtIDEKY29uc3QgaW50IE4gPSAyZTc7CgptdDE5OTM3XzY0IHJuZyhjaHJvbm86OnN0ZWFkeV9jbG9jazo6bm93KCkudGltZV9zaW5jZV9lcG9jaCgpLmNvdW50KCkpOwpsbCByYW5kb20oY29uc3QgbGwgJkwsIGNvbnN0IGxsICZSKSB7CiAgICByZXR1cm4gdW5pZm9ybV9pbnRfZGlzdHJpYnV0aW9uPGxsPiAoTCwgUikgKHJuZyk7Cn0KCgovKiAtLS0tLS0tfn5+fn5+PT09PT0gRU5EIE9GIFRFTVBMQVRFID09PT09fn5+fn5+LS0tLS0tLSAqLwoKCmludCBmYWNbTiArIDVdLCBpbnZbTiArIDVdOwoKbGwgcG93ZXIobGwgYSwgbGwgYikgewogICAgbGwgcmVzID0gMTsKICAgIHdoaWxlIChiKSB7CiAgICAgICAgaWYgKGIgJiAxKSByZXMgPSByZXMgKiAxTEwgKiBhICUgTU9EOwogICAgICAgIGEgPSBhICogMUxMICogYSAlIE1PRDsKICAgICAgICBiID4+PSAxOwogICAgfQogICAgcmV0dXJuIHJlczsKfQoKbGwgQyhsbCBuLCBsbCBrKSB7CiAgICBpZiAobiA8IDAgfHwgayA8IDAgfHwgayA+IG4pIHJldHVybiAwOwogICAgcmV0dXJuIGZhY1tuXSAqIDFMTCAqIGludltrXSAlIE1PRCAqIDFMTCAqIGludltuIC0ga10gJSBNT0Q7Cn0KCnZvaWQgc29sdmUoKSB7CiAgICBsbCBTLCBuLCBMLCBIOwogICAgY2luID4+IFMgPj4gbiA+PiBMID4+IEg7CgogICAgZmFjWzBdID0gMTsKICAgIGZvcncyIChpLCAxLCBOKSBmYWNbaV0gPSBmYWNbaSAtIDFdICogMUxMICogaSAlIE1PRDsKICAgIGludltOXSA9IHBvd2VyKGZhY1tOXSwgTU9EIC0gMik7CiAgICBmb3JzMiAoaSwgTiwgMSkgaW52W2kgLSAxXSA9IGludltpXSAqIDFMTCAqIGkgJSBNT0Q7CgogICAgaWYgKFMgPCBuICogMUxMICogTCkgeyBjb3V0IDw8ICIwXG4iOyByZXR1cm47IH0KICAgIGxsIFMyID0gUyAtIG4gKiAxTEwgKiBMLCBEID0gSCAtIEwgKyAxLCBhbnMgPSAwOwogICAgZm9ydzIgKGssIDAsIG4pIHsKICAgICAgICBsbCBjdXJyID0gQyhuLCBrKSAqIDFMTCAqIEMoUzIgLSBrICogMUxMICogRCArIG4gLSAxLCBuIC0gMSkgJSBNT0Q7CiAgICAgICAgaWYgKGsgJiAxKSBhbnMgPSAoYW5zIC0gY3VyciArIE1PRCkgJSBNT0Q7CiAgICAgICAgZWxzZSBhbnMgPSAoYW5zICsgY3VycikgJSBNT0Q7CiAgICB9CiAgICBjb3V0IDw8IGFucyA8PCBlbmRsOwp9CgpzaWduZWQgbWFpbigpIHsKICAgIGlvczo6c3luY193aXRoX3N0ZGlvKGZhbHNlKSwgY2luLnRpZShudWxscHRyKTsKICAgIHNyYW5kKHRpbWUoTlVMTCkpOwogICAgI2RlZmluZSBuYW1lICJ0ZXN0IgogICAgLyoKICAgIGlmIChmb3BlbihuYW1lIi5JTlAiLCAiciIpKSB7CiAgICAgICAgZnJlb3BlbihuYW1lIi5JTlAiLCAiciIsIHN0ZGluKTsKICAgICAgICBmcmVvcGVuKG5hbWUiLk9VVCIsICJ3Iiwgc3Rkb3V0KTsKICAgIH0KICAgICovCiAgICBib29sIHRlc3RDYXNlID0gZmFsc2U7CiAgICBpbnQgbnVtVGVzdCA9IDE7CiAgICAvLyBjaW4gPj4gbnVtVGVzdDsKICAgIGZvcncgKGksIDEsIG51bVRlc3QpIHsKICAgICAgICBpZiAodGVzdENhc2UpIGNvdXQgPDwgIkNhc2UgIyIgPDwgaSA8PCAiOiAiOwogICAgICAgIHNvbHZlKCk7CiAgICB9CiAgICByZXR1cm4gMDsKfQoKLyoKICAvXF9fL1wKICg9Xi5ePSApCiAoIikgKCIpXy8KKi8=