program kajak;
var a,b,c,d,f,g,r,s:integer;
st1,st2,st3:string;
arr:array[1..50,1..50] of char;
ar:array[1..9] of integer;
ar2:array[1..9] of integer;
begin
for a:=1 to 9 do ar[a]:=0;
readln(r,s);
for a:=1 to r do begin
for b:=1 to s-1 do read(arr[a,b]);
readln(arr[a,s]);
end;

for a:=1 to r do begin
for b:=2 to s-1 do begin
if (arr[a,b]='1') and (arr[a,b+1]='1') and (arr[a,b+2]='1') then ar[1]:=b;
if (arr[a,b]='2') and (arr[a,b+1]='2') and (arr[a,b+2]='2') then ar[2]:=b;
if (arr[a,b]='3') and (arr[a,b+1]='3') and (arr[a,b+2]='3') then ar[3]:=b;
if (arr[a,b]='4') and (arr[a,b+1]='4') and (arr[a,b+2]='4') then ar[4]:=b;
if (arr[a,b]='5') and (arr[a,b+1]='5') and (arr[a,b+2]='5') then ar[5]:=b;
if (arr[a,b]='6') and (arr[a,b+1]='6') and (arr[a,b+2]='6') then ar[6]:=b;
if (arr[a,b]='7') and (arr[a,b+1]='7') and (arr[a,b+2]='7') then ar[7]:=b;
if (arr[a,b]='8') and (arr[a,b+1]='8') and (arr[a,b+2]='8') then ar[8]:=b;
if (arr[a,b]='9') and (arr[a,b+1]='9') and (arr[a,b+2]='9') then ar[9]:=b;
end; end;

for a:=1 to 9 do ar2[a]:=ar[a];

for a:=1 to 8 do begin
for b:=2 to 9 do begin
if ar[a]>ar[b] then begin c:=ar[a]; ar[a]:=ar[b]; ar[b]:=c;
end;end;end;

b:=0;
repeat
b:=b+1;
for a:=1 to 9 do begin
if ar2[b]=ar[a] then c:=a;
if ar[a]=ar[a-1] then c:=c-1;
if ar[a]>0 then writeln(c); end;
until  b=9;
end.