Problem: You are given an array a of length n that consists of zeros and ones.

You can perform the following operation multiple times. The operation consists of two steps: 

  1. Choose three integers 1 ≤ x < y < z ≤ n, that form an arithmetic progression (y - x = z - y). 
  2. Flip the values a_x, a_y, a_z (i.e. change 1 to 0, change 0 to 1). 



Determine if it is possible to make all elements of the array equal to zero. If yes, print the operations that lead the the all-zero state. Your solution should not contain more than (⌊ n/3 ⌋ + 12) operations. Here ⌊ q ⌋ denotes the number q rounded down. We can show that it is possible to make all elements equal to zero in no more than this number of operations whenever it is possible to do so at all.

Input

The first line contains a single integer n (3 ≤ n ≤ 10^5) — the length of the array.

The second line contains n integers a_1, a_2, …, a_n (0 ≤ a_i ≤ 1) — the elements of the array.

Output

Print "YES" (without quotes) if the answer exists, otherwise print "NO" (without quotes). You can print each letter in any case (upper or lower).

If there is an answer, in the second line print an integer m (0 ≤ m ≤ (⌊ n/3 ⌋ + 12)) — the number of operations in your answer.

After that in (i + 2)-th line print the i-th operations — the integers x_i, y_i, z_i. You can print them in arbitrary order.

Examples

Input

5
1 1 0 1 1


Output

YES
2
1 3 5
2 3 4


Input

3
0 1 0


Output

NO

Note

In the first sample the shown output corresponds to the following solution: 

  * 1 1 0 1 1 (initial state); 
  * 0 1 1 1 0 (the flipped positions are the first, the third and the fifth elements); 
  * 0 0 0 0 0 (the flipped positions are the second, the third and the fourth elements). 



Other answers are also possible. In this test the number of operations should not exceed ⌊ 5/3 ⌋ + 12 = 1 + 12 = 13.

In the second sample the only available operation is to flip all the elements. This way it is only possible to obtain the arrays 0 1 0 and 1 0 1, but it is impossible to make all elements equal to zero.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
const int N = 111111, NN = 15;
int dist[NN][1 << NN], pr[NN][1 << NN];
pair<int, int> op[NN][1 << NN];
int q[N], a[N];
int qs, qe;
int f(int v, int p, int x, int n) {
  assert(p + 2 * x <= n);
  for (int i = (0); i <= (2); i++) {
    int pos = p + i * x;
    v ^= 1 << (pos - 1);
  }
  return v;
}
void bfs(int n) {
  if (dist[n][0] == 0) return;
  dist[n][0] = 0;
  q[qs++] = 0;
  while (qs != qe) {
    int u = q[qe++];
    qe %= N;
    for (int p = (1); p <= (n); p++) {
      for (int x = (1); x <= (n); x++) {
        if (p + 2 * x <= n) {
          int v = f(u, p, x, n);
          if (dist[n][u] + 1 < dist[n][v]) {
            dist[n][v] = dist[n][u] + 1;
            pr[n][v] = u;
            op[n][v] = make_pair(p, x);
            q[qs++] = v;
            qs %= N;
          }
        }
      }
    }
  }
}
vector<pair<int, int> > get(int n, int v) {
  vector<pair<int, int> > ans;
  if (dist[n][v] > 1e6) {
    return ans;
  }
  while (v) {
    ans.push_back(op[n][v]);
    v = pr[n][v];
  }
  return ans;
}
signed main() {
  ios_base::sync_with_stdio(false);
  cin.tie(0);
  for (int i = (3); i <= (NN - 1); i++) {
    fill(dist[i], dist[i] + (1 << i), 1e7);
    bfs(i);
  }
  int n;
  cin >> n;
  for (int i = (1); i <= (n); i++) {
    cin >> a[i];
  }
  vector<int> di;
  vector<pair<int, int> > ans;
  int pos = 1;
  while (pos <= n) {
    int rem = n - pos + 1;
    int cur = NN - 1, add = 0;
    if (cur >= rem) {
      cur = rem;
    } else {
      cur = 6;
      add = 6;
    }
    int v = 0;
    for (int i = (1); i <= (cur); i++) {
      v = v * 2 + a[pos + cur - i];
    }
    vector<pair<int, int> > ops;
    if (add) {
      int mini = 10, bv, bm;
      for (int mask = (0); mask <= ((1 << add) - 1); mask++) {
        int vv = v + mask * (1 << cur);
        int di = dist[cur + add][vv];
        if (di < mini) {
          mini = di;
          bv = vv;
          bm = mask;
        }
      }
      ops = get(cur + add, bv);
      for (int i = (0); i <= (add - 1); i++) {
        a[pos + cur + i] ^= (bm & (1 << i)) > 0;
      }
    } else {
      if (dist[cur][v] > 1e6) {
        cout << "NO" << endl;
        return 0;
      }
      ops = get(cur, v);
    }
    for (auto p : ops) {
      ans.push_back(make_pair(p.first + pos - 1, p.second));
    }
    pos += cur;
  }
  cout << "YES" << endl;
  cout << (int)(ans).size() << endl;
  for (auto p : ans) {
    for (int i = (0); i <= (2); i++) {
      cout << p.first + i * p.second << " ";
    }
    cout << endl;
  }
  return 0;
}