#include <bits/stdc++.h>

using namespace std;

using ll = int64_t;

const int MAXN = 5e5, MAXK = 1e5;

int car[1 + MAXK];
ll s[1 + MAXN];
int v[1 + MAXN];
int n, k;
ll solve (int l) {
  register int i;
  register ll sol = 0;
  if (l == 0)
    return 0;
  for (i = 0; i < k; i++)
    car[i] = 0;
  car[0]++;
  for (i = 1; i <= n; i++) {
    if (i > l)
      car[s[i - l - 1] % k]--;
    sol = sol + car[s[i] % k];
    car[s[i] % k]++;
  }
  return sol;
}

const int SIZE = 1 << 10;

char buffer[SIZE];

int pointer = 0;

char advance () {
  if (pointer == SIZE) {
    pointer = 0;
    fread (buffer, SIZE, 1, stdin);
  }
  return buffer[pointer++];
}

int read () {
  int answear = 0;
  char ch = advance ();
  while (!isdigit (ch))
    ch = advance ();
  while (isdigit (ch)) {
    answear = answear * 10 + ch - '0';
    ch = advance ();
  }
  return answear;
}

int main() {
  register int a, b, i;
  freopen ("divk.in", "r", stdin);
  freopen ("divk.out", "w", stdout);
  n = read ();
  k = read (); a = read (); b = read ();
  for (i = 1; i <= n; i++) {
    s[i] = s[i - 1] + read ();
  }
  printf ("%lld\n", solve (b) - solve (a - 1));
  return 0;
}