var

a:array[1..100,1..100]of byte;

ah,al:array[1..100]of byte;

m,n,i,j,s,t:integer;

c:char;

begin

readln(m,n);

s:=0;

for i:=1 to m do

begin

for j:=1 to n do

begin

read(c);

a:=ord(c)-48;

ah[i]:=ah[i]+a;

end;

if ah[i]>0 then inc(s);

readln;

end;

t:=0;

for i:=1 to n do

begin

for j:=1 to m do

al[i]:=al[i]+a[j,i];

if al[i]>0 then inc(t);

end;

if s