#include <cstdio>

#include <cstring>

#include <queue>

#define make(a,b,c,d) (DT){a,b,c,d}

#define MAXN 500000

using namespace std;

int bin[],st[MAXN+][],Log[MAXN+];

int n,k,L,R,s[MAXN+],a[MAXN+];

long long ans;

struct DT

{

  int z,l,r,y;

  bool operator < (const DT next)const  {  return s[next.y]-s[next.z-]>s[y]-s[z-];  }

};

inline int Min(int x,int y)

{

  return x<y?x:y;

}

inline void pre()

{

  bin[]=;for(register int i=;i<;i++)bin[i]=bin[i-]<<;

  Log[]=-;for(register int i=;i<=n;i++)Log[i]=Log[i>>]+;

  for(register int i=;i<=n;i++)st[i][]=i;

  for(register int i=;i<;i++)

    for(register int j=;j<=n;j++)

      if(j+bin[i]-<=n) st[j][i]=s[st[j][i-]]>s[st[j+bin[i-]][i-]]?st[j][i-]:st[j+bin[i-]][i-];

}

priority_queue<DT> Q;

inline int query(int x,int y)

{

  register int len=Log[y-x+];

  return s[st[x][len]]>s[st[y-bin[len]+][len]]?st[x][len]:st[y-bin[len]+][len];

}

inline void Init()

{

  scanf("%d%d%d%d",&n,&k,&L,&R);

  for(register int i=;i<=n;i++)scanf("%d",&a[i]);

  for(register int i=;i<=n;i++)s[i]=s[i-]+a[i];

  pre();

  for(register int i=,r;i<=n;i++)

    if(i+L-<=n) r=Min(n,i+R-),Q.push(make(i,i+L-,r,query(i+L-,r)));

}

inline void Work()

{

  while(k--)

  {

    DT x=Q.top();Q.pop();

    ans+=s[x.y]-s[x.z-];

    if(x.y->=x.l)Q.push(make(x.z,x.l,x.y-,query(x.l,x.y-)));

    if(x.y+<=x.r)Q.push(make(x.z,x.y+,x.r,query(x.y+,x.r)));

  }

  printf("%lld",ans);

}

int main()

{

  Init();

  Work();

  return ;

}