Problem: The story was not finished as PMP thought. God offered him one more chance to reincarnate and come back to life. But before he can come back, God told him that PMP should ask n great men including prominent programmers about their life experiences.

The men are standing on a straight line. They are numbered 1 through n from left to right. The coordinate of the i-th man is xi (xi < xi + 1, i < n). PMP should visit all these people one by one in arbitrary order. Each men should be visited exactly once. At the beginning of his tour, he starts at location of s-th man and asks him about his experiences.

Each time PMP wants to change his location, he should give a ticket to an angel and the angel carries him to his destination. Angels take PMP from one location, fly to his destination and put him down there. Nobody else is visited in this movement. Moving from i-th man to j-th man, takes |xi - xj| time. PMP can get back to life as soon as he visits all men.

There are two types of angels: Some angels are going to the right and they only accept right tickets. Others are going the left and they only accept left tickets. There are an unlimited number of angels of each type. PMP has l left tickets and n - 1 - l right tickets.

PMP wants to get back to life as soon as possible to be able to compete in this year's final instead of the final he missed last year. He wants to know the quickest way to visit all the men exactly once. He also needs to know the exact sequence moves he should make.

Input

The first line of input contains three space-separated integers n, l, s (2 ≤ n ≤ 105, 0 ≤ l < n, 1 ≤ s ≤ n) — the number of people to visit, the number left tickets PMP got, and initial location of PMP. Next line contains n space-separated integers. The i-th integer in this line is xi (0 = x1 < x2 < ... < xn ≤ 109) — the location of i-th man.

Output

If PMP cannot visit all men with the tickets he got print -1 in the only line of output. Otherwise, in the first line you should print the minimum time PMP can visit all men. In the second line you should print n - 1 integers that are the numbers of the men that PMP should visit in order in one optimal solution. If there are multiple answers, output any of them.

Please do not use the %lld specifier to read or write 64-bit integers in С++. It is preferred to use cin, cout streams or the %I64d specifier.

Examples

Input

5 2 2
0 10 11 21 22


Output

33
1 3 5 4


Input

4 3 1
0 1 2 3


Output

-1


Input

7 3 2
0 100 200 201 301 303 305


Output

409
1 3 4 7 6 5

Note

Let us remind here, a great contestant of all times, who left us about a year ago. May Renat Mullakhanov rest in peace.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
struct osmosis {
  multiset<long long> small;
  multiset<long long> big;
  long long smsmall;
  osmosis() {
    small.clear();
    big.clear();
    smsmall = 0;
  }
  void erase(long long x) {
    auto it = small.find(x);
    if (it != small.end()) {
      smsmall -= x;
      small.erase(it);
    } else {
      it = big.find(x);
      big.erase(it);
    }
  }
  long long smksmall(int k) {
    if (int(small.size()) + int(big.size()) < k) return 1e18;
    while (int(small.size()) < k) {
      long long x = *big.begin();
      big.erase(big.begin());
      small.insert(x);
      smsmall += x;
    }
    while (int(small.size()) > k) {
      long long x = *small.rbegin();
      small.erase(small.find(x));
      big.insert(x);
      smsmall -= x;
    }
    return smsmall;
  }
};
vector<int> path;
long long targ;
long long solve(vector<long long> x, int nl, int nr, int ip, bool genp) {
  assert(nl + nr == int(x.size()) - 1);
  if (ip != 0 && nl == 0) return 1e18;
  if (ip == int(x.size()) - 1) return 1e18;
  int wl = min(nl, ip);
  int wr = ip - wl;
  long long ans = (x[ip] - x[0]) * 2;
  nl -= wl;
  nr -= wr;
  x.erase(x.begin(), x.begin() + ip);
  assert(int(x.size()) >= 2);
  assert(nl + nr == int(x.size()) - 1);
  if (nr == 0) return 1e18;
  if (genp) {
    for (int i = wl - 1; i >= 0; i--) path.push_back(i);
    for (int i = wl; i < ip; i++) path.push_back(i);
  }
  vector<long long> dx;
  for (int i = (0); i < (int(x.size()) - 1); i++) dx.push_back(x[i + 1] - x[i]);
  for (int i = (0); i < (int(dx.size())); i++) ans += dx[i];
  long long res = 1e18;
  osmosis m;
  for (int i = (1); i < (int(dx.size())); i++) m.big.insert(dx[i]);
  long long sufsm = 0;
  for (int i = int(dx.size()) - 1; i >= 0; i--) {
    int hv = int(dx.size()) - i - 1;
    int nd = nl - hv;
    if (nd >= 0) {
      res = min(res, ans + sufsm + 2 * m.smksmall(nd));
      if (genp && res == targ) {
        vector<pair<long long, int> > v;
        for (int j = (1); j < (i + 1); j++) v.emplace_back(dx[j], j);
        sort(v.begin(), v.end());
        v.resize(nd);
        vector<int> u;
        for (auto p : v) u.push_back(p.second);
        for (int j = (i + 1); j < (int(dx.size())); j++) u.push_back(j);
        sort(u.begin(), u.end());
        int lst = 0;
        for (int i = 0; i < int(u.size());) {
          int j;
          for (j = i; j < int(u.size()) && u[j] - u[i] == j - i; j++)
            ;
          j--;
          while (lst + 1 < u[i]) path.push_back(ip + (++lst));
          for (int k = u[j] + 1; k >= u[i]; k--) {
            path.push_back(ip + k);
          }
          lst = u[j] + 1;
          i = j + 1;
        }
        while (lst < int(dx.size())) path.push_back(ip + (++lst));
        return res;
      }
    }
    sufsm += dx[i];
    if (i) m.erase(dx[i]);
  }
  return res;
}
int n, l, s;
long long x[100005];
int main() {
  scanf("%d %d %d", &n, &l, &s);
  s--;
  for (int i = (0); i < (n); i++) scanf("%lld", x + i);
  long long ans1 = solve(vector<long long>(x, x + n), l, n - 1 - l, s, false);
  for (int i = (0); i < (n); i++) x[i] *= -1;
  reverse(x, x + n);
  long long ans2 =
      solve(vector<long long>(x, x + n), n - 1 - l, l, n - 1 - s, false);
  for (int i = (0); i < (n); i++) x[i] *= -1;
  reverse(x, x + n);
  if (min(ans1, ans2) > 1e17)
    printf("-1\n");
  else {
    if (ans1 < ans2) {
      targ = ans1;
      solve(vector<long long>(x, x + n), l, n - 1 - l, s, true);
    } else {
      targ = ans2;
      for (int i = (0); i < (n); i++) x[i] *= -1;
      reverse(x, x + n);
      solve(vector<long long>(x, x + n), n - 1 - l, l, n - 1 - s, true);
      for (int i = (0); i < (n - 1); i++) path[i] = n - 1 - path[i];
    }
    printf("%lld\n", targ);
    for (int i = (0); i < (n - 1); i++)
      printf("%d%c", 1 + path[i], " \n"[i + 2 == n]);
  }
}