Problem: Polycarp studies at the university in the group which consists of n students (including himself). All they are registrated in the social net "TheContacnt!".

Not all students are equally sociable. About each student you know the value ai — the maximum number of messages which the i-th student is agree to send per day. The student can't send messages to himself. 

In early morning Polycarp knew important news that the programming credit will be tomorrow. For this reason it is necessary to urgently inform all groupmates about this news using private messages. 

Your task is to make a plan of using private messages, so that:

  * the student i sends no more than ai messages (for all i from 1 to n); 
  * all students knew the news about the credit (initially only Polycarp knew it); 
  * the student can inform the other student only if he knows it himself. 



Let's consider that all students are numerated by distinct numbers from 1 to n, and Polycarp always has the number 1.

In that task you shouldn't minimize the number of messages, the moment of time, when all knew about credit or some other parameters. Find any way how to use private messages which satisfies requirements above. 

Input

The first line contains the positive integer n (2 ≤ n ≤ 100) — the number of students. 

The second line contains the sequence a1, a2, ..., an (0 ≤ ai ≤ 100), where ai equals to the maximum number of messages which can the i-th student agree to send. Consider that Polycarp always has the number 1.

Output

Print -1 to the first line if it is impossible to inform all students about credit. 

Otherwise, in the first line print the integer k — the number of messages which will be sent. In each of the next k lines print two distinct integers f and t, meaning that the student number f sent the message with news to the student number t. All messages should be printed in chronological order. It means that the student, who is sending the message, must already know this news. It is assumed that students can receive repeated messages with news of the credit. 

If there are several answers, it is acceptable to print any of them. 

Examples

Input

4
1 2 1 0


Output

3
1 2
2 4
2 3


Input

6
2 0 1 3 2 0


Output

6
1 3
3 4
1 2
4 5
5 6
4 6


Input

3
0 2 2


Output

-1

Note

In the first test Polycarp (the student number 1) can send the message to the student number 2, who after that can send the message to students number 3 and 4. Thus, all students knew about the credit. 

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
long long gcd(long long a, long long b) {
  if (b == 0) return a;
  return gcd(b, a % b);
}
vector<long long> primeFact(long long n) {
  vector<long long> ans;
  for (long long t = 2; t <= sqrt(n); t++) {
    if (n % t == 0) {
      ans.push_back(t);
      while (n % t == 0) {
        n = n / t;
      }
    }
  }
  if (n > 2) ans.push_back(n);
  return ans;
}
vector<long long> fact(long long n) {
  vector<long long> ans;
  for (long long i = 1; i <= sqrt(n); i++) {
    if (n % i == 0) {
      if (i * i == n) {
        ans.push_back(i);
      } else {
        ans.push_back(i);
        ans.push_back(n / i);
      }
    }
  }
  return ans;
}
long long powerr(long long base, long long exp, long long mod) {
  if (exp == 0) return 1;
  long long t = powerr(base, exp / 2, mod) % mod;
  if (exp % 2 == 0) {
    return (t % mod * t % mod) % mod;
  } else {
    return (t % mod * t % mod * base % mod) % mod;
  }
}
void fastio() {
  ios_base::sync_with_stdio(false);
  cin.tie(NULL);
  cout.tie(NULL);
}
vector<pair<long long, long long> > ans;
void dfs(vector<pair<long long, long long> > &a, long long node,
         vector<bool> &vis, long long n) {
  vis[node] = true;
  long long t = 0;
  for (long long i = 0; i < a[node].first; i++) {
    t = node + 1;
    while (vis[t] == true && t < n) {
      t++;
    }
    if (t < n) {
      ans.push_back({a[node].second, a[t].second});
      dfs(a, t, vis, n);
    } else {
      break;
    }
  }
  a[node].first = 0;
}
int32_t main() {
  fastio();
  long long n;
  cin >> n;
  vector<pair<long long, long long> > a;
  long long p;
  for (long long i = 0; i < n; i++) {
    cin >> p;
    a.push_back({p, i + 1});
  }
  sort(a.begin() + 1, a.end());
  reverse(a.begin() + 1, a.end());
  vector<bool> vis(n + 10, false);
  dfs(a, 0, vis, n);
  for (long long i = 0; i < n; i++) {
    if (vis[i] == false) {
      cout << -1 << "\n";
      return 0;
    }
  }
  cout << ans.size() << "\n";
  for (long long i = 0; i < ans.size(); i++) {
    cout << ans[i].first << " " << ans[i].second << "\n";
  }
  return 0;
}