program kajak;

type
   rec = record
      d, k : integer;
   end;

var
   r, s, i, j, koji, gr, x : integer;
   z : char;
   t : rec;
   staza : array[1 .. 50, 1 .. 50] of char;
   udaljenost : array[0 .. 9] of rec;
   poz : array[1 .. 9, 0 .. 9] of integer;

begin
   readln (r, s);
   for i := 1 to r do begin
      for j := 1 to s do read (staza[i,j]);
      readln;
   end;
   for i := 1 to r do begin
      j := s;
      repeat Dec (j); until (staza[i,j] in ['1' .. '9']) or (j=1);
      if j>1 then begin
         Inc (koji);
         Val (staza[i,j], x, gr);
         udaljenost[koji].k := x;
         udaljenost[koji].d := s-j;
      end;
   end;
   for i := 1 to 9 do
      for j := i+1 to 9 do
         if udaljenost[i].d>udaljenost[j].d then begin
            t := udaljenost[i]; udaljenost[i] := udaljenost[j]; udaljenost[j] := t;
         end;
   for i := 1 to 9 do begin
      j := 0; koji := 0;
      repeat
         Inc (j);
         if udaljenost[j].d<>udaljenost[j-1].d then Inc (koji);
      until udaljenost[j].k=i;
      writeln (koji);
   end;
end.