program Untitled;
var
   r, s, i, j, m, a0, a1, a2, a3, a4 : integer;
   p : array [ 1..50, 1..50 ] of char;
begin
     readln ( r, s );
     for i := 1 to r do
     begin
          for j := 1 to s do
              read ( p[i, j] );
          readln;
     end;
     for i := 1 to r - 1 do
     begin
          for j := 1 to s - 1 do
          begin
               if ( p[i, j] <> '#' ) and ( p[i, j + 1] <> '#' ) and ( p[i + 1, j] <> '#' ) and ( p[i + 1, j + 1] <> '#' ) then
               begin
                    if ( p[i, j] = 'X' ) then m := m + 1;
                    if ( p[i, j + 1] = 'X' ) then m := m + 1;
                    if ( p[i + 1, j] = 'X' ) then m := m + 1;
                    if ( p[i + 1, j + 1] = 'X' ) then m := m + 1;
                    if m = 0 then a0 := a0 + 1;
                    if m = 1 then a1 := a1 + 1;
                    if m = 2 then a2 := a2 + 1;
                    if m = 3 then a3 := a3 + 1;
                    if m = 4 then a4 := a4 + 1;
                    m := 0;
               end;
          end;
     end;
     writeln ( a0 );
     writeln ( a1 );
     writeln ( a2 );
     writeln ( a3 );
     writeln ( a4 );
readln;
end.