Problem: Rebel spy Heidi has just obtained the plans for the Death Star from the Empire and, now on her way to safety, she is trying to break the encryption of the plans (of course they are encrypted – the Empire may be evil, but it is not stupid!). The encryption has several levels of security, and here is how the first one looks.

Heidi is presented with a screen that shows her a sequence of integers A and a positive integer p. She knows that the encryption code is a single number S, which is defined as follows:

Define the score of X to be the sum of the elements of X modulo p.

Heidi is given a sequence A that consists of N integers, and also given an integer p. She needs to split A into 2 parts such that: 

  * Each part contains at least 1 element of A, and each part consists of contiguous elements of A. 
  * The two parts do not overlap. 
  * The total sum S of the scores of those two parts is maximized. This is the encryption code. 



Output the sum S, which is the encryption code.

Input

The first line of the input contains two space-separated integer N and p (2 ≤ N ≤ 100 000, 2 ≤ p ≤ 10 000) – the number of elements in A, and the modulo for computing scores, respectively.

The second line contains N space-separated integers which are the elements of A. Each integer is from the interval [1, 1 000 000].

Output

Output the number S as described in the problem statement.

Examples

Input

4 10
3 4 7 2


Output

16


Input

10 12
16 3 24 13 9 8 7 5 12 12


Output

13

Note

In the first example, the score is maximized if the input sequence is split into two parts as (3, 4), (7, 2). It gives the total score of <image>.

In the second example, the score is maximized if the first part consists of the first three elements, and the second part consists of the rest. Then, the score is <image>.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
#pragma GCC optimize("O2")
using namespace std;
inline long long input() {
  long long n;
  cin >> n;
  return n;
}
long long poww(long long a, long long b, long long md) {
  return (!b ? 1
             : (b & 1 ? a * poww(a * a % md, b / 2, md) % md
                      : poww(a * a % md, b / 2, md) % md));
}
const int MAXN = 5e5 + 10;
const int MAXK = 110;
const int MAXLG = 18;
const int MOD = 1e9 + 7;
const int MOD2 = 998244353;
const int INF = 1e9;
int n, k, p;
int a[MAXN];
int ps[MAXN];
int dp[MAXK][MAXN];
int fen[MAXK];
int fen2[MAXK];
void add_val(int ind, int val) {
  for (ind += 2; ind < MAXK; ind += (ind & -ind)) {
    fen[ind] = min(fen[ind], val);
  }
}
void add_val2(int ind, int val) {
  for (ind += 2; ind < MAXK; ind += (ind & -ind)) {
    fen2[ind] = min(fen2[ind], val);
  }
}
int ret_ans(int ind) {
  int res = INF;
  for (ind += 2; ind; ind -= (ind & -ind)) {
    res = min(res, fen[ind]);
  }
  return res;
}
int ret_ans2(int ind) {
  int res = INF;
  for (ind += 2; ind; ind -= (ind & -ind)) {
    res = min(res, fen2[ind]);
  }
  return res;
}
int main() {
  ios::sync_with_stdio(false);
  cin.tie(0);
  cout.tie(0);
  ;
  cin >> n >> k >> p;
  for (int i = 1; i <= n; i++) {
    cin >> a[i];
    ps[i] = (ps[i - 1] + a[i]) % p;
    dp[1][i] = ps[i];
  }
  for (int i = 2; i <= k; i++) {
    fill(fen, fen + MAXK, INF);
    fill(fen2, fen2 + MAXK, INF);
    for (int j = 1; j <= n; j++) {
      dp[i][j] = min(ret_ans2(p - 1 - ps[j]), ret_ans(ps[j])) + ps[j];
      add_val(ps[j], dp[i - 1][j] - ps[j]);
      add_val2(p - ps[j] - 1, dp[i - 1][j] + p - ps[j]);
    }
  }
  cout << dp[k][n] << "\n";
}