#include<bits/stdc++.h>
using namespace std;
namespace my_std{
	#define ll long long
	#define bl bool
	ll my_pow(ll a,ll b,ll mod){
		ll res=1;
		if(!b) return 1;
		while(b){
			if(b&1) res=(res*a)%mod;
			a=(a*a)%mod;
			b>>=1;
		}
		return res;
	}
	ll qpow(ll a,ll b){
		ll res=1;
		if(!b) return 1;
		while(b){
			if(b&1) res*=a;
			a*=a;
			b>>=1;
		}
		return res;
	}
	#define db double
	#define pf printf
	#define pc putchar
	#define fr(i,x,y) for(register ll i=(x);i<=(y);i++)
	#define pfr(i,x,y) for(register ll i=(x);i>=(y);i--)
	#define go(u) for(ll i=head[u];i;i=e[i].nxt)
	#define enter pc('\n')
	#define space pc(' ')
	#define fir first
	#define sec second
	#define MP make_pair
	#define il inline
	#define inf 8e18
	#define random(x) rand()*rand()%(x)
	#define inv(a,mod) my_pow((a),(mod-2),(mod))
	il ll read(){
		ll sum=0,f=1;
		char ch=0;
		while(!isdigit(ch)){
			if(ch=='-') f=-1;
			ch=getchar();
		}
		while(isdigit(ch)){
			sum=sum*10+(ch^48);
			ch=getchar();
		}
		return sum*f;
	}
	il void write(ll x){
		if(x<0){
			x=-x;
			pc('-');
		}
		if(x>9) write(x/10);
		pc(x%10+'0');
	}
	il void writeln(ll x){
		write(x);
		enter;
	}
	il void writesp(ll x){
		write(x);
		space;
	}
}
using namespace my_std;
bitset<2020> b[2020][2];
bitset<4040> f[4040];
vector<pair<pair<ll,ll>,ll> > ans;
ll n,m,res=0;
char s[2020];
void dfs(ll now,bitset<4040> ck){
	if(((ck<<n)&ck).any()) return;
	if(now==m){
		res++;
		if(res>n){
			write(-1);
			exit(0);
		}
		return;
	}
	now++;
	if(!ck[now+n]) dfs(now,ck|f[now]);
	if(!ck[now]) dfs(now,ck|f[now+n]);
}
int main(){
	n=read();
	m=read();
	fr(i,1,n){
		scanf("%s",s+1);
		fr(j,1,m) b[j][s[j]-'0'][i]=1;
	}
	fr(i,1,m){
		fr(j,i,m){
			fr(x,0,1){
				fr(y,0,1){
					if(i==j&&x!=y) continue;
					if((b[i][x^1]&b[j][y^1]).any()) continue;
					f[i+(x^1)*n][j+y*n]=1;
					f[j+(y^1)*n][i+x*n]=1;
					ans.push_back(MP(MP(i-1,j-1),x+y*2+1));
				}
			}
		}
	}
	fr(i,1,2*m) f[i][i]=1;
	bitset<4040> tmp;
	tmp.reset();
	dfs(0,tmp);
	if(res<n){
		write(-1);
		return 0;
	}
	writeln(ans.size());
	fr(i,0,(ll)ans.size()-1) pf("%lld %lld %lld\n",ans[i].fir.fir,ans[i].fir.sec,ans[i].sec);
}