Problem: This is the hard version of the problem. The difference between the versions is in the number of possible operations that can be made. You can make hacks if and only if you solved both versions of the problem.

You are given a binary table of size n × m. This table consists of symbols 0 and 1.

You can make such operation: select 3 different cells that belong to one 2 × 2 square and change the symbols in these cells (change 0 to 1 and 1 to 0).

Your task is to make all symbols in the table equal to 0. You are allowed to make at most nm operations. You don't need to minimize the number of operations.

It can be proved, that it is always possible.

Input

The first line contains a single integer t (1 ≤ t ≤ 5000) — the number of test cases. The next lines contain descriptions of test cases.

The first line of the description of each test case contains two integers n, m (2 ≤ n, m ≤ 100).

Each of the next n lines contains a binary string of length m, describing the symbols of the next row of the table.

It is guaranteed, that the sum of nm for all test cases does not exceed 20000.

Output

For each test case print the integer k (0 ≤ k ≤ nm) — the number of operations.

In the each of the next k lines print 6 integers x_1, y_1, x_2, y_2, x_3, y_3 (1 ≤ x_1, x_2, x_3 ≤ n, 1 ≤ y_1, y_2, y_3 ≤ m) describing the next operation. This operation will be made with three cells (x_1, y_1), (x_2, y_2), (x_3, y_3). These three cells should be different. These three cells should belong to some 2 × 2 square.

Example

Input


5
2 2
10
11
3 3
011
101
110
4 4
1111
0110
0110
1111
5 5
01011
11001
00010
11011
10000
2 3
011
101


Output


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

Note

In the first test case, it is possible to make only one operation with cells (1, 1), (2, 1), (2, 2). After that, all symbols will be equal to 0.

In the second test case:

  * operation with cells (2, 1), (3, 1), (3, 2). After it the table will be: 
    
          
    011  
    001  
    000  
    

  * operation with cells (1, 2), (1, 3), (2, 3). After it the table will be: 
    
          
    000  
    000  
    000  
    




In the fifth test case:

  * operation with cells (1, 3), (2, 2), (2, 3). After it the table will be: 
    
          
    010  
    110  
    

  * operation with cells (1, 2), (2, 1), (2, 2). After it the table will be: 
    
          
    000  
    000  
    

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
long long GCD(long long x, long long y) {
  if (y == 0) return x;
  return GCD(y, x % y);
}
long long LCM(long long x, long long y) { return (x * y) / (GCD(x, y)); }
long long LOGK(long long x, long long k) {
  if (x >= k) return 1 + LOGK(x / k, k);
  return 0;
}
long long MPOW(long long a, long long b, long long m) {
  if (b == 0) return 1;
  long long x = MPOW(a, b / 2, m);
  x = (x * x) % m;
  if (b % 2 == 1) x = (x * a) % m;
  return x;
}
long long MINV(long long a, long long m) { return MPOW(a, m - 2, m); }
class pnc {
  long long FACT_MAX, MODU;
  vector<long long> fact;

 public:
  pnc(long long n, long long m) {
    FACT_MAX = n;
    fact.resize(FACT_MAX);
    MODU = m;
    MFACT_INIT(MODU);
  }
  void MFACT_INIT(long long m) {
    fact[0] = 1;
    for (long long i = 1; i < FACT_MAX; ++i) fact[i] = (i * fact[i - 1]) % MODU;
  }
  long long MFACT(long long n) { return fact[n]; }
  long long PERM(long long n, long long r) {
    return (fact[n] * ::MINV(fact[n - r], MODU)) % MODU;
  }
  long long COMB(long long n, long long r) {
    return (PERM(n, r) * ::MINV(fact[r], MODU)) % MODU;
  }
};
long long mat[105][105];
vector<vector<pair<long long, long long>>> ans(
    30005, vector<pair<long long, long long>>(3));
long long cnt = 0;
void calc3(long long a, long long b, long long c, long long d, long long i,
           long long j) {
  long long idx = 0;
  if (a == 1) ans[cnt][idx++] = {i, j};
  if (b == 1) ans[cnt][idx++] = {i, j + 1};
  if (c == 1) ans[cnt][idx++] = {i + 1, j};
  if (d == 1) ans[cnt][idx++] = {i + 1, j + 1};
  cnt++;
}
void calc2(long long a, long long b, long long c, long long d, long long i,
           long long j) {
  long long idx = 0;
  if (a && b) {
    ans[cnt][idx++] = {i, j + 1};
    ans[cnt][idx++] = {i + 1, j};
    ans[cnt][idx++] = {i + 1, j + 1};
    b = 0;
    c = 1;
    d = 1;
    cnt++;
    calc3(a, b, c, d, i, j);
  } else if (b && c) {
    ans[cnt][idx++] = {i, j};
    ans[cnt][idx++] = {i, j + 1};
    ans[cnt][idx++] = {i + 1, j + 1};
    a = 1;
    b = 0;
    d = 1;
    cnt++;
    calc3(a, b, c, d, i, j);
  } else if (c && d) {
    ans[cnt][idx++] = {i, j};
    ans[cnt][idx++] = {i, j + 1};
    ans[cnt][idx++] = {i + 1, j};
    a = 1;
    b = 1;
    c = 0;
    cnt++;
    calc3(a, b, c, d, i, j);
  } else if (d && a) {
    ans[cnt][idx++] = {i, j + 1};
    ans[cnt][idx++] = {i + 1, j};
    ans[cnt][idx++] = {i + 1, j + 1};
    b = 1;
    c = 1;
    d = 0;
    cnt++;
    calc3(a, b, c, d, i, j);
  } else if (a && c) {
    ans[cnt][idx++] = {i, j};
    ans[cnt][idx++] = {i, j + 1};
    ans[cnt][idx++] = {i + 1, j + 1};
    a = 0;
    b = 1;
    d = 1;
    cnt++;
    calc3(a, b, c, d, i, j);
  } else if (b && d) {
    ans[cnt][idx++] = {i, j};
    ans[cnt][idx++] = {i, j + 1};
    ans[cnt][idx++] = {i + 1, j};
    a = 1;
    b = 0;
    c = 1;
    cnt++;
    calc3(a, b, c, d, i, j);
  }
}
void calc1(long long a, long long b, long long c, long long d, long long i,
           long long j) {
  long long idx = 0;
  if (a) {
    ans[cnt][idx++] = {i, j};
    ans[cnt][idx++] = {i, j + 1};
    ans[cnt][idx++] = {i + 1, j};
    a = 0;
    b = 1;
    c = 1;
    cnt++;
    calc2(a, b, c, d, i, j);
  } else if (b) {
    ans[cnt][idx++] = {i, j + 1};
    ans[cnt][idx++] = {i + 1, j};
    ans[cnt][idx++] = {i + 1, j + 1};
    b = 0;
    c = 1;
    d = 1;
    cnt++;
    calc2(a, b, c, d, i, j);
  } else if (c) {
    ans[cnt][idx++] = {i, j};
    ans[cnt][idx++] = {i, j + 1};
    ans[cnt][idx++] = {i + 1, j};
    a = 1;
    b = 1;
    c = 0;
    cnt++;
    calc2(a, b, c, d, i, j);
  } else if (d) {
    ans[cnt][idx++] = {i, j};
    ans[cnt][idx++] = {i + 1, j};
    ans[cnt][idx++] = {i + 1, j + 1};
    a = 1;
    c = 1;
    d = 0;
    cnt++;
    calc2(a, b, c, d, i, j);
  }
}
void calc4(long long a, long long b, long long c, long long d, long long i,
           long long j) {
  long long idx = 0;
  ans[cnt][idx++] = {i, j};
  ans[cnt][idx++] = {i, j + 1};
  ans[cnt][idx++] = {i + 1, j};
  a = 0;
  b = 0;
  c = 0;
  cnt++;
  calc1(a, b, c, d, i, j);
}
int main() {
  ios_base::sync_with_stdio(false);
  cin.tie(NULL);
  cout.tie(NULL);
  long long test = 1;
  cin >> test;
  while (test--) {
    long long n, m;
    cin >> n >> m;
    map<pair<long long, long long>, long long> mp;
    map<long long, pair<long long, long long>> mp2;
    long long pno = 1;
    for (long long i = 1; i <= n; i++) {
      string str;
      cin >> str;
      for (long long j = 1; j <= m; j++) {
        mat[i][j] = str[j - 1] - '0';
      }
    }
    long long flag = 0;
    for (long long i = 1; i <= n; i++) {
      if (flag == 0) {
        for (long long j = 1; j <= m; j++) {
          mp[{i, j}] = pno;
          mp2[pno] = {i, j};
          pno++;
        }
        flag = 1;
      } else {
        for (long long j = m; j >= 1; j--) {
          mp[{i, j}] = pno;
          mp2[pno] = {i, j};
          pno++;
        }
        flag = 0;
      }
    }
    for (long long i = 0; i <= 3 * n * m; i++) {
      ans[i].clear();
    }
    cnt = 0;
    flag = 0;
    for (long long i = 1; i <= n; i++) {
      if (i < n - 1) {
        if (flag == 0) {
          for (long long j = 1; j <= m; j++) {
            if (mat[i][j] == 1) {
              if (j == m) {
                ans[cnt][0] = {i, j};
                ans[cnt][1] = {i + 1, j};
                ans[cnt][2] = {i + 1, j - 1};
                mat[i][j] ^= 1;
                mat[i + 1][j] ^= 1;
                mat[i + 1][j - 1] ^= 1;
                cnt++;
              } else {
                ans[cnt][0] = {i, j};
                ans[cnt][1] = {i, j + 1};
                ans[cnt][2] = {i + 1, j + 1};
                mat[i][j] ^= 1;
                mat[i][j + 1] ^= 1;
                mat[i + 1][j + 1] ^= 1;
                cnt++;
              }
            }
          }
          flag = 1;
        } else {
          for (long long j = m; j >= 1; j--) {
            if (mat[i][j] == 1) {
              if (j == 1) {
                ans[cnt][0] = {i, j};
                ans[cnt][1] = {i + 1, j};
                ans[cnt][2] = {i + 1, j + 1};
                mat[i][j] ^= 1;
                mat[i + 1][j] ^= 1;
                mat[i + 1][j + 1] ^= 1;
                cnt++;
              } else {
                ans[cnt][0] = {i, j};
                ans[cnt][1] = {i, j - 1};
                ans[cnt][2] = {i + 1, j - 1};
                mat[i][j] ^= 1;
                mat[i][j - 1] ^= 1;
                mat[i + 1][j - 1] ^= 1;
                cnt++;
              }
            }
          }
          flag = 0;
        }
      } else {
        for (long long j = 1; j <= m; j++) {
          if (j < m - 1) {
            if (mat[i][j] && mat[i + 1][j]) {
              ans[cnt][0] = {i, j};
              ans[cnt][1] = {i + 1, j};
              ans[cnt][2] = {i, j + 1};
              cnt++;
              mat[i][j] ^= 1;
              mat[i + 1][j] ^= 1;
              mat[i][j + 1] ^= 1;
            } else if (mat[i][j]) {
              ans[cnt][0] = {i, j};
              ans[cnt][1] = {i, j + 1};
              ans[cnt][2] = {i + 1, j + 1};
              cnt++;
              mat[i][j] ^= 1;
              mat[i][j + 1] ^= 1;
              mat[i + 1][j + 1] ^= 1;
            } else if (mat[i + 1][j]) {
              ans[cnt][0] = {i, j + 1};
              ans[cnt][1] = {i + 1, j};
              ans[cnt][2] = {i + 1, j + 1};
              cnt++;
              mat[i][j + 1] ^= 1;
              mat[i + 1][j] ^= 1;
              mat[i + 1][j + 1] ^= 1;
            }
            continue;
          }
          long long a = mat[i][j];
          long long b = mat[i][j + 1];
          long long c = mat[i + 1][j];
          long long d = mat[i + 1][j + 1];
          long long no = a + b + c + d;
          if (no == 3) {
            calc3(a, b, c, d, i, j);
          }
          if (no == 2) {
            calc2(a, b, c, d, i, j);
          }
          if (no == 1) {
            calc1(a, b, c, d, i, j);
          }
          if (no == 4) {
            calc4(a, b, c, d, i, j);
          }
          mat[i][j] = 0;
          mat[i][j + 1] = 0;
          mat[i + 1][j] = 0;
          mat[i + 1][j + 1] = 0;
        }
      }
    }
    cout << cnt << "\n";
    for (long long i = 0; i < cnt; i++) {
      for (long long j = 0; j < 3; j++) {
        cout << ans[i][j].first << ' ' << ans[i][j].second << ' ';
      }
      cout << "\n";
    }
  }
}