program xxxx;
var i,j,x,n,m:longint;
    chr:array[1..1000,1..1000] of char;
begin
  assign(input,'rectangle.in');
  reset(input);
  assign(output,'rectangle.out');
  rewrite(output);
  readln(n,m);
  x:=0;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          read(chr[i,j]);
          if (chr[i,j]='.') then
            inc(x);
        end;
      readln;
    end;
  write(x);
  close(input);
  close(output);
end.