program Untitled;
var
   r, s, i, j, br, z, kod : integer;
   p : array [ 1..50, 1..50 ] of char;
   rj : array [ 1..9 ] of integer;
begin
     readln ( r, s );
     for i := 1 to r do
     begin
          for j := 1 to s do
          begin
               read ( p[i, j] );
          end;
          readln;
     end;
     br := 1;
     for j := s - 1 downto 2 do
     begin
          for i := 1 to r do
          begin
               if p[i, j] <> '.' then
               begin
                    val( p[i, j], z, kod );
                    if rj[z] = 0 then
                    begin
                         rj[z] := br;
                         s := 1;
                    end;
               end;
          end;
          if s = 1 then br := br + 1;
          s := 0;
     end;
     for i := 1 to 9 do
     begin
          writeln ( rj[i] );
     end;
readln;
end.