program kajak;
var m: array[1..50,1..50] of char;
    mm: array[1..9] of integer;
    x,y,i,j,r,s,z: integer;
    ss: string;
begin
   read(r);
   readln(s);
   for i:= 1 to r do begin
      readln(ss);
      for j:=1 to s do
         if (j<>1) and (j<>s) then m[i,j-1]:=ss[j];
   end;
for i:= 1 to r do begin
      for j:=1 to (s-2) do
         write(m[i,j]);
      writeln;
   end;
s:=s-2;
y:=1;
for j:=s downto 1 do
   begin
      x:=0;
      for i:=1 to r do
         begin
            if m[i,j]<>'.' then begin
                                   val(m[i,j],x);
                                   mm[x]:=y;
                                   for z:=1 to s do
                                      m[i,z]:='.';
                                end;
         end;
      if x>0 then inc(y);
   end;
for i:=1 to 9 do
   writeln (mm[i]);
end.