Problem: There are n cities in Berland, each of them has a unique id — an integer from 1 to n, the capital is the one with id 1. Now there is a serious problem in Berland with roads — there are no roads.

That is why there was a decision to build n - 1 roads so that there will be exactly one simple path between each pair of cities.

In the construction plan t integers a1, a2, ..., at were stated, where t equals to the distance from the capital to the most distant city, concerning new roads. ai equals the number of cities which should be at the distance i from the capital. The distance between two cities is the number of roads one has to pass on the way from one city to another. 

Also, it was decided that among all the cities except the capital there should be exactly k cities with exactly one road going from each of them. Such cities are dead-ends and can't be economically attractive. In calculation of these cities the capital is not taken into consideration regardless of the number of roads from it. 

Your task is to offer a plan of road's construction which satisfies all the described conditions or to inform that it is impossible.

Input

The first line contains three positive numbers n, t and k (2 ≤ n ≤ 2·105, 1 ≤ t, k < n) — the distance to the most distant city from the capital and the number of cities which should be dead-ends (the capital in this number is not taken into consideration). 

The second line contains a sequence of t integers a1, a2, ..., at (1 ≤ ai < n), the i-th number is the number of cities which should be at the distance i from the capital. It is guaranteed that the sum of all the values ai equals n - 1.

Output

If it is impossible to built roads which satisfy all conditions, print -1.

Otherwise, in the first line print one integer n — the number of cities in Berland. In the each of the next n - 1 line print two integers — the ids of cities that are connected by a road. Each road should be printed exactly once. You can print the roads and the cities connected by a road in any order.

If there are multiple answers, print any of them. Remember that the capital has id 1.

Examples

Input

7 3 3
2 3 1


Output

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


Input

14 5 6
4 4 2 2 1


Output

14
3 1
1 4
11 6
1 2
10 13
6 10
10 12
14 12
8 4
5 1
3 7
2 6
5 9


Input

3 1 1
2


Output

-1

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
long long int min(long long int a, long long int b, long long int c,
                  long long int d) {
  long long int arr[4] = {a, b, c, d};
  sort(arr, arr + 4);
  return arr[0];
}
long long int max(long long int a, long long int b, long long int c,
                  long long int d) {
  long long int arr[4] = {a, b, c, d};
  sort(arr, arr + 4);
  return arr[3];
}
long long int gcd(long long int a, long long int b) {
  if (b < a) {
    int temp = a;
    a = b;
    b = temp;
  }
  if (a == 0) {
    return b;
  }
  return gcd(b % a, a);
}
long long int lcm(long long int a, long long int b) {
  return (a * b / gcd(a, b));
}
vector<long long int> getprimes() {
  vector<long long int> pl(101, 1);
  for (int i = 2; i <= 100; i++) {
    if (pl[i] == 1) {
      for (int j = 2 * i; j <= 100; j += i) {
        pl[j] = 0;
      }
    }
  }
  return pl;
}
double dist(double x1, double y1, double x2, double y2) {
  return sqrt((x2 - x1) * (x2 - x1) + (y2 - y1) * (y2 - y1));
}
long long int fact(long long int first) {
  long long int ans = 1;
  if (first == 0) {
    return 1;
  }
  while (first > 0) {
    ans = (ans * first) % 1000000007;
    first--;
  }
  return ans % 1000000007;
}
long long int power(long long int a, long long int b) {
  long long int ans = 1;
  while (b > 0) {
    if (b % 2 == 1) {
      ans *= a;
      ans = ans % 1000000007;
    }
    b /= 2;
    a *= a;
    a = a % 1000000007;
  }
  return ans % 1000000007;
}
long long int mini(long long int a, long long int b, long long int c,
                   long long int d) {
  if (min(a, b, c, d) == a) {
    return 1;
  } else if (min(a, b, c, d) == b) {
    return 2;
  } else if (min(a, b, c, d) == c) {
    return 3;
  } else if (min(a, b, c, d) == d) {
    return 4;
  }
}
long long int maxi(long long int a, long long int b, long long int c,
                   long long int d) {
  if (max(a, b, c, d) == 0) {
    return 0;
  } else if (max(a, b, c, d) == a) {
    return 1;
  } else if (max(a, b, c, d) == b) {
    return 2;
  } else if (max(a, b, c, d) == c) {
    return 3;
  } else if (max(a, b, c, d) == d) {
    return 4;
  }
}
int main() {
  ios_base::sync_with_stdio(false);
  cin.tie(NULL);
  long long int n, t, k;
  cin >> n >> t >> k;
  long long int a[t];
  long long int b[t];
  long long int minleaf = 0;
  for (int i = 0; i < t; i++) {
    cin >> a[i];
    if (i == 0) {
      b[i] = a[i] + 1;
    } else {
      b[i] = b[i - 1] + a[i];
    }
    if (i > 0) {
      if (a[i] < a[i - 1]) {
        minleaf += a[i - 1] - a[i];
      }
    }
    if (i == t - 1) {
      minleaf += a[i];
    }
  }
  long long int maxleaf = (n - 1) - (t - 1);
  if (k < minleaf || k > maxleaf) {
    cout << -1 << endl;
  } else {
    vector<vector<int> > g(n + 1);
    int toaddto = 1;
    int topush = 2;
    int temp = maxleaf - k;
    for (int i = 0; i < t; i++) {
      for (int j = 0; j < a[i]; j++) {
        if (i == 0) {
          g[toaddto].push_back(topush);
          topush++;
        } else {
          g[toaddto].push_back(topush);
          topush++;
          if (temp > 0 && toaddto < b[i - 1] && j != a[i] - 1) {
            toaddto++;
            temp--;
          }
        }
      }
      if (i == 0) {
        toaddto = 2;
      } else {
        toaddto = b[i - 1] + 1;
      }
    }
    cout << n << endl;
    for (int i = 1; i < n; i++) {
      int temp = g[i].size();
      for (int j = 0; j < temp; j++) {
        cout << i << " " << g[i][j] << endl;
      }
    }
  }
}