// ~~ icebear love attttt ~~
#include <bits/stdc++.h>
using namespace std;
typedef long long ll;
typedef pair<bool, ll> ii;
typedef pair<int, ii> iii;
template<class T>
bool minimize(T &a, const T &b) {
if (a > b) return a = b, true;
return false;
}
template<class T>
bool maximize(T &a, const T &b) {
if (a < b) return a = b, true;
return false;
}
#define FOR(i,a,b) for(int i=(a); i<=(b); ++i)
#define FORR(i,a,b) for(int i=(a); i>=(b); --i)
#define REP(i, n) for(int i=0; i<(n); ++i)
#define RED(i, n) for(int i=(n)-1; i>=0; --i)
#define MASK(i) (1LL << (i))
#define BIT(S, i) (((S) >> (i)) & 1)
#define mp make_pair
#define pb push_back
#define fi first
#define se second
#define all(x) x.begin(), x.end()
#define task "icebearat"
const int MOD = 1e9 + 7;
const int inf = 1e9 + 27092008;
const ll INF = 1e18 + 27092008;
const int N = 5e5 + 5;
int n, l, r, k, a[N], pref[N];
vector<int> compress;
ll cnt[N], sum[N];
void update(ll ft[], int x, ll val) {
for(; x <= n + 1; x += x & -x) ft[x] += val;
}
ll get(ll ft[], int x) {
ll ans = 0;
for(; x; x -= x & -x) ans += ft[x];
return ans;
}
int getLower(int x) {
return upper_bound(all(compress), x) - compress.begin();
}
bool check(int x) {
memset(cnt, 0, sizeof cnt);
ll great = 0;
FOR(i, l, n) {
update(cnt, pref[i - l], +1);
int val = getLower(compress[pref[i] - 1] - x);
int cnt_great = get(cnt, val);
great += cnt_great;
if (great >= k) return true;
if (i >= r) update(cnt, pref[i - r], -1);
}
return false;
}
ll getAns(int x) {
memset(cnt, 0, sizeof cnt);
ll great = 0;
ll sum_great = 0;
FOR(i, l, n) {
update(cnt, pref[i - l], +1);
update(sum, pref[i - l], +compress[pref[i - l] - 1]);
int val = getLower(compress[pref[i] - 1] - x);
int cnt_great = get(cnt, val);
// cerr << val << ' ' << pref[i - l] << ' ' << compress[pref[i] - 1] << ' ' << cnt_great << ' ' << get(sum, val) << '\n';
great += cnt_great;
sum_great += 1LL * cnt_great * compress[pref[i] - 1] - get(sum, val);
if (i >= r) {
update(cnt, pref[i - r], -1);
update(sum, pref[i - r], -compress[pref[i - r] - 1]);
}
}
return sum_great - 1LL * max(great - k, 0ll) * x;
}
void init(void) {
cin >> n >> k >> l >> r;
FOR(i, 1, n) cin >> a[i], pref[i] = pref[i - 1] + a[i];
}
void process(void) {
FOR(i, 0, n) compress.pb(pref[i]);
sort(all(compress));
compress.resize(unique(all(compress)) - compress.begin());
FOR(i, 0, n) pref[i] = getLower(pref[i]);
ll low = -1000 * n, high = 1000 * n;
ll res = -low;
while(low <= high) {
ll mid = (low + high) >> 1;
if (check(mid)) res = mid, low = mid + 1;
else high = mid - 1;
}
cout << getAns(res);
}
signed main() {
ios_base::sync_with_stdio(0);
cin.tie(0); cout.tie(0);
if (fopen(task".inp", "r")) {
freopen(task".inp", "r", stdin);
freopen(task".out", "w", stdout);
}
int tc = 1;
// cin >> tc;
while(tc--) {
init();
process();
}
return 0;
}
Ly8gfn4gaWNlYmVhciBsb3ZlIGF0dHR0dCB+fgojaW5jbHVkZSA8Yml0cy9zdGRjKysuaD4KdXNpbmcgbmFtZXNwYWNlIHN0ZDsKCnR5cGVkZWYgbG9uZyBsb25nIGxsOwp0eXBlZGVmIHBhaXI8Ym9vbCwgbGw+IGlpOwp0eXBlZGVmIHBhaXI8aW50LCBpaT4gaWlpOwoKdGVtcGxhdGU8Y2xhc3MgVD4KICAgIGJvb2wgbWluaW1pemUoVCAmYSwgY29uc3QgVCAmYikgewogICAgICAgIGlmIChhID4gYikgcmV0dXJuIGEgPSBiLCB0cnVlOwogICAgICAgIHJldHVybiBmYWxzZTsKICAgIH0KCnRlbXBsYXRlPGNsYXNzIFQ+CiAgICBib29sIG1heGltaXplKFQgJmEsIGNvbnN0IFQgJmIpIHsKICAgICAgICBpZiAoYSA8IGIpIHJldHVybiBhID0gYiwgdHJ1ZTsKICAgICAgICByZXR1cm4gZmFsc2U7CiAgICB9CgojZGVmaW5lIEZPUihpLGEsYikgZm9yKGludCBpPShhKTsgaTw9KGIpOyArK2kpCiNkZWZpbmUgRk9SUihpLGEsYikgZm9yKGludCBpPShhKTsgaT49KGIpOyAtLWkpCiNkZWZpbmUgUkVQKGksIG4pIGZvcihpbnQgaT0wOyBpPChuKTsgKytpKQojZGVmaW5lIFJFRChpLCBuKSBmb3IoaW50IGk9KG4pLTE7IGk+PTA7IC0taSkKI2RlZmluZSBNQVNLKGkpICgxTEwgPDwgKGkpKQojZGVmaW5lIEJJVChTLCBpKSAoKChTKSA+PiAoaSkpICYgMSkKI2RlZmluZSBtcCBtYWtlX3BhaXIKI2RlZmluZSBwYiBwdXNoX2JhY2sKI2RlZmluZSBmaSBmaXJzdAojZGVmaW5lIHNlIHNlY29uZAojZGVmaW5lIGFsbCh4KSB4LmJlZ2luKCksIHguZW5kKCkKI2RlZmluZSB0YXNrICJpY2ViZWFyYXQiCgpjb25zdCBpbnQgTU9EID0gMWU5ICsgNzsKY29uc3QgaW50IGluZiA9IDFlOSArIDI3MDkyMDA4Owpjb25zdCBsbCBJTkYgPSAxZTE4ICsgMjcwOTIwMDg7CmNvbnN0IGludCBOID0gNWU1ICsgNTsKaW50IG4sIGwsIHIsIGssIGFbTl0sIHByZWZbTl07CnZlY3RvcjxpbnQ+IGNvbXByZXNzOwpsbCBjbnRbTl0sIHN1bVtOXTsKdm9pZCB1cGRhdGUobGwgZnRbXSwgaW50IHgsIGxsIHZhbCkgewogICAgZm9yKDsgeCA8PSBuICsgMTsgeCArPSB4ICYgLXgpIGZ0W3hdICs9IHZhbDsKfQpsbCBnZXQobGwgZnRbXSwgaW50IHgpIHsKICAgIGxsIGFucyA9IDA7CiAgICBmb3IoOyB4OyB4IC09IHggJiAteCkgYW5zICs9IGZ0W3hdOwogICAgcmV0dXJuIGFuczsKfQoKaW50IGdldExvd2VyKGludCB4KSB7CiAgICByZXR1cm4gdXBwZXJfYm91bmQoYWxsKGNvbXByZXNzKSwgeCkgLSBjb21wcmVzcy5iZWdpbigpOwp9Cgpib29sIGNoZWNrKGludCB4KSB7CiAgICBtZW1zZXQoY250LCAwLCBzaXplb2YgY250KTsKICAgIGxsIGdyZWF0ID0gMDsKICAgIEZPUihpLCBsLCBuKSB7CiAgICAgICAgdXBkYXRlKGNudCwgcHJlZltpIC0gbF0sICsxKTsKICAgICAgICBpbnQgdmFsID0gZ2V0TG93ZXIoY29tcHJlc3NbcHJlZltpXSAtIDFdIC0geCk7CiAgICAgICAgaW50IGNudF9ncmVhdCA9IGdldChjbnQsIHZhbCk7CiAgICAgICAgZ3JlYXQgKz0gY250X2dyZWF0OwogICAgICAgIGlmIChncmVhdCA+PSBrKSByZXR1cm4gdHJ1ZTsKICAgICAgICBpZiAoaSA+PSByKSB1cGRhdGUoY250LCBwcmVmW2kgLSByXSwgLTEpOwogICAgfQogICAgcmV0dXJuIGZhbHNlOwp9CgpsbCBnZXRBbnMoaW50IHgpIHsKICAgIG1lbXNldChjbnQsIDAsIHNpemVvZiBjbnQpOwogICAgbGwgZ3JlYXQgPSAwOwogICAgbGwgc3VtX2dyZWF0ID0gMDsKICAgIEZPUihpLCBsLCBuKSB7CiAgICAgICAgdXBkYXRlKGNudCwgcHJlZltpIC0gbF0sICsxKTsKICAgICAgICB1cGRhdGUoc3VtLCBwcmVmW2kgLSBsXSwgK2NvbXByZXNzW3ByZWZbaSAtIGxdIC0gMV0pOwoKICAgICAgICBpbnQgdmFsID0gZ2V0TG93ZXIoY29tcHJlc3NbcHJlZltpXSAtIDFdIC0geCk7CiAgICAgICAgaW50IGNudF9ncmVhdCA9IGdldChjbnQsIHZhbCk7Ci8vICAgICAgICBjZXJyIDw8IHZhbCA8PCAnICcgPDwgcHJlZltpIC0gbF0gPDwgJyAnIDw8IGNvbXByZXNzW3ByZWZbaV0gLSAxXSA8PCAnICcgPDwgY250X2dyZWF0IDw8ICcgJyA8PCBnZXQoc3VtLCB2YWwpIDw8ICdcbic7CiAgICAgICAgZ3JlYXQgKz0gY250X2dyZWF0OwogICAgICAgIHN1bV9ncmVhdCArPSAxTEwgKiBjbnRfZ3JlYXQgKiBjb21wcmVzc1twcmVmW2ldIC0gMV0gLSBnZXQoc3VtLCB2YWwpOwoKICAgICAgICBpZiAoaSA+PSByKSB7CiAgICAgICAgICAgIHVwZGF0ZShjbnQsIHByZWZbaSAtIHJdLCAtMSk7CiAgICAgICAgICAgIHVwZGF0ZShzdW0sIHByZWZbaSAtIHJdLCAtY29tcHJlc3NbcHJlZltpIC0gcl0gLSAxXSk7CiAgICAgICAgfQogICAgfQogICAgcmV0dXJuIHN1bV9ncmVhdCAtIDFMTCAqIG1heChncmVhdCAtIGssIDBsbCkgKiB4Owp9Cgp2b2lkIGluaXQodm9pZCkgewogICAgY2luID4+IG4gPj4gayA+PiBsID4+IHI7CiAgICBGT1IoaSwgMSwgbikgY2luID4+IGFbaV0sIHByZWZbaV0gPSBwcmVmW2kgLSAxXSArIGFbaV07Cn0KCnZvaWQgcHJvY2Vzcyh2b2lkKSB7CiAgICBGT1IoaSwgMCwgbikgY29tcHJlc3MucGIocHJlZltpXSk7CiAgICBzb3J0KGFsbChjb21wcmVzcykpOwogICAgY29tcHJlc3MucmVzaXplKHVuaXF1ZShhbGwoY29tcHJlc3MpKSAtIGNvbXByZXNzLmJlZ2luKCkpOwogICAgRk9SKGksIDAsIG4pIHByZWZbaV0gPSBnZXRMb3dlcihwcmVmW2ldKTsKICAgIGxsIGxvdyA9IC0xMDAwICogbiwgaGlnaCA9IDEwMDAgKiBuOwogICAgbGwgcmVzID0gLWxvdzsKICAgIHdoaWxlKGxvdyA8PSBoaWdoKSB7CiAgICAgICAgbGwgbWlkID0gKGxvdyArIGhpZ2gpID4+IDE7CiAgICAgICAgaWYgKGNoZWNrKG1pZCkpIHJlcyA9IG1pZCwgbG93ID0gbWlkICsgMTsKICAgICAgICBlbHNlIGhpZ2ggPSBtaWQgLSAxOwogICAgfQogICAgY291dCA8PCBnZXRBbnMocmVzKTsKfQoKc2lnbmVkIG1haW4oKSB7CiAgICBpb3NfYmFzZTo6c3luY193aXRoX3N0ZGlvKDApOwogICAgY2luLnRpZSgwKTsgY291dC50aWUoMCk7CiAgICBpZiAoZm9wZW4odGFzayIuaW5wIiwgInIiKSkgewogICAgICAgIGZyZW9wZW4odGFzayIuaW5wIiwgInIiLCBzdGRpbik7CiAgICAgICAgZnJlb3Blbih0YXNrIi5vdXQiLCAidyIsIHN0ZG91dCk7CiAgICB9CiAgICBpbnQgdGMgPSAxOwovLyAgICBjaW4gPj4gdGM7CiAgICB3aGlsZSh0Yy0tKSB7CiAgICAgICAgaW5pdCgpOwogICAgICAgIHByb2Nlc3MoKTsKICAgIH0KICAgIHJldHVybiAwOwp9Cg==