program kajak;
var i,j,r,s,n: integer;
    p: array [1..50,1..50] of char;
    d,k: array [1..9] of integer;
begin
        readln (s,r);
        for i:=1 to s do begin
                for j:=1 to r do begin
                        read(p[i,j]);
                end;
                readln;
        end;
        for i:=1 to s do begin
                for j:=1 to r do begin
                        if (p[i,j]<>'S') and (p[i,j]<>'.') and (p[i,j]<>'F') then begin
                                case (p[i,j]) of
                                '1': if d[1]=0 then d[1]:=((r)-(j+2));
                                '2': if d[2]=0 then d[2]:=((r)-(j+2));
                                '3': if d[3]=0 then d[3]:=((r)-(j+2));
                                '4': if d[4]=0 then d[4]:=((r)-(j+2));
                                '5': if d[5]=0 then d[5]:=((r)-(j+2));
                                '6': if d[6]=0 then d[6]:=((r)-(j+2));
                                '7': if d[7]=0 then d[7]:=((r)-(j+2));
                                '8': if d[8]=0 then d[8]:=((r)-(j+2));
                                '9': if d[9]=0 then d[9]:=((r)-(j+2));
                                end;
                        end;
                end;
        end;
        for j:=1 to 9 do begin
                n:=10;
                for i:=1 to 9 do begin
                        if d[i]<n then n:=d[i];
                end;
                for i:=1 to 9 do begin
                        if d[i]=n then begin
                                k[i]:=j;
                                d[i]:=11;
                        end;
                end;
        end;
        for i:=1 to 9 do writeln(k[i]);
end.