program kajak;
var r, s,
    k, cp,
    kk    : shortint;
    l     : array[1..50] of string[50];
    p     : array[1..9] of shortint;
    i, j  : integer;
    f     : boolean;

begin
    readln(r, s);
    for i := 1 to r do
        readln(l[i]);
    cp := 1;
    kk := 0;
    for i := s-1 downto 2 do begin
        f := false;
        for j := 1 to r do
            if not (l[j,i] = '.') then begin
                val(l[j,i], k);
                p[k] := cp;
                l[j] := '..................................................';
                f := true;
                inc(kk);
            end;
        if f then inc(cp);
    end;
    for i := 1 to kk do
        writeln(p[i]);
end.