#include <bits/stdc++.h>
using namespace std;
long long num[10009];
long long a[30009];
long long b[30009];
long long c[30009];
int main() {
  long long t, i, j, k, n, m, ans;
  scanf("%lld", &t);
  while (t--) {
    scanf("%lld", &n);
    k = 0;
    for (i = 1; i <= n; i++) {
      scanf("%lld", &num[i]);
      k += num[i];
    }
    if (k % n != 0) {
      printf("-1\n");
      continue;
    }
    k = k / n;
    ans = 0;
    for (int kkk = 1; kkk <= 2; kkk++)
      for (i = 2; i <= n; i++) {
        if (num[1] - (i - num[i] % i) >= 0 && (i - num[i] % i) >= 0 &&
            num[i] > 0) {
          a[ans] = 1;
          b[ans] = i;
          c[ans] = i - num[i] % i;
          ans++;
          num[1] -= i - num[i] % i;
          num[i] += i - num[i] % i;
          a[ans] = i;
          b[ans] = 1;
          c[ans] = num[i] / i;
          ans++;
          num[1] += num[i] / i * i;
          num[i] -= num[i] / i * i;
        } else if (num[i] >= i) {
          if (num[i] % i <= k) {
            a[ans] = i;
            b[ans] = 1;
            c[ans] = num[i] / i;
            ans++;
            num[1] += num[i] / i * i;
            num[i] -= num[i] / i * i;
          }
        }
      }
    for (i = 2; i <= n; i++) {
      if (num[i] < k) {
        a[ans] = 1;
        b[ans] = i;
        c[ans] = k - num[i];
        ans++;
        num[1] -= k - num[i];
        num[i] += k - num[i];
      }
    }
    printf("%lld\n", ans);
    for (i = 0; i < ans; i++) {
      printf("%lld %lld %lld\n", a[i], b[i], c[i]);
    }
  }
  return 0;
}
