Problem: When you were a child you must have been told a puzzle of bags and coins. Anyway, here's one of its versions: 

A horse has three bags. The first bag has one coin, the second bag has one coin and the third bag has three coins. In total, the horse has three coins in the bags. How is that possible?

The answer is quite simple. The third bag contains a coin and two other bags. 

This problem is a generalization of the childhood puzzle. You have n bags. You know that the first bag contains a1 coins, the second bag contains a2 coins, ..., the n-th bag contains an coins. In total, there are s coins. Find the way to arrange the bags and coins so that they match the described scenario or else state that it is impossible to do.

Input

The first line contains two integers n and s (1 ≤ n, s ≤ 70000) — the number of bags and the total number of coins. The next line contains n integers a1, a2, ..., an (1 ≤ ai ≤ 70000), where ai shows the number of coins in the i-th bag.

Output

If the answer doesn't exist, print -1. 

Otherwise, print n lines, on the i-th line print the contents of the i-th bag. The first number in the line, ci (0 ≤ ci ≤ ai), must represent the number of coins lying directly in the i-th bag (the coins in the bags that are in the i-th bag are not taken into consideration). The second number in the line, ki (0 ≤ ki < n) must represent the number of bags that lie directly in the i-th bag (the bags that are inside the bags lying in the i-th bag are not taken into consideration). Next, the line must contain ki integers — the numbers of the bags that are lying directly in the i-th bag.

The total number of coins in the solution must equal s. If we count the total number of coins the i-th bag in the solution has, we should get ai. 

No bag can directly lie in more than one bag. The bags can be nested in more than one level (see the second test case). If there are multiple correct answers, you can print any of them.

Examples

Input

3 3
1 3 1


Output

1 0
1 2 3 1
1 0


Input

3 3
1 3 1


Output

1 0
2 1 3
0 1 1


Input

1 2
1


Output

-1


Input

8 10
2 7 3 4 1 3 1 2


Output

2 0
1 2 1 4
0 2 7 8
0 2 5 6
1 0
3 0
1 0
2 0

Note

The pictures below show two possible ways to solve one test case from the statement. The left picture corresponds to the first test case, the right picture corresponds to the second one.

<image>

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
inline void pisz(int n) { printf("%d\n", n); }
template <typename T, typename TT>
ostream &operator<<(ostream &s, pair<T, TT> t) {
  return s << "(" << t.first << "," << t.second << ")";
}
template <typename T>
ostream &operator<<(ostream &s, vector<T> t) {
  for (int(i) = 0; (i) < (((int)((t).size()))); ++(i)) s << t[i] << " ";
  return s;
}
bool taken[70006];
bitset<70006> can;
int what[70006], zawiera[70006], a[70006];
int main() {
  int(n), (s);
  scanf("%d %d", &(n), &(s));
  for (int(i) = 1; (i) <= (n); ++(i)) scanf("%d", a + i);
  int maxi = *max_element(a + 1, a + n + 1);
  int maxind;
  for (int(i) = 1; (i) <= (n); ++(i))
    if (a[i] == maxi) maxind = i;
  int req = s - maxi;
  if (req < 0) {
    pisz(-1);
    return 0;
  }
  can[0] = 1;
  for (int(i) = 1; (i) <= (n); ++(i))
    if (i != maxind) {
      bitset<70006> istotnieNowy = (can << a[i]) & ~can;
      can |= can << a[i];
      unsigned long *w = reinterpret_cast<unsigned long *>(&istotnieNowy);
      for (int k = 0; k * 32 < 70006; k += 1) {
        if (w[k] != 0) {
          for (int j = 0; j < 32 && k * 32 + j < 70006; ++j) {
            if ((1U << j) & w[k]) {
              what[k * 32 + j] = i;
            }
          }
        }
      }
    }
  if (!can[req]) {
    pisz(-1);
    return 0;
  }
  taken[maxind] = 1;
  int r = req;
  while (r != 0) {
    int i = what[r];
    taken[i] = 1;
    r -= a[i];
  }
  vector<pair<int, int> > inne;
  for (int(i) = 1; (i) <= (n); ++(i))
    if (!taken[i]) inne.push_back(make_pair(a[i], i));
  sort(inne.begin(), inne.end());
  reverse(inne.begin(), inne.end());
  if (!inne.empty()) zawiera[maxind] = inne[0].second;
  for (int(i) = 0; (i) < (((int)((inne).size())) - 1); ++(i)) {
    zawiera[inne[i].second] = inne[i + 1].second;
  }
  for (int(i) = 1; (i) <= (n); ++(i)) {
    if (!zawiera[i]) {
      printf("%d 0\n", a[i]);
    } else {
      printf("%d 1 %d\n", a[i] - a[zawiera[i]], zawiera[i]);
    }
  }
}