program rectangle;
var
  n,m,i,j,ans,i1,i2,i3,i4:longint;
  t:char;
  tab:array[0..1000,0..1000]of longint;
begin
  fillchar(tab,sizeof(tab),0);
  assign(input,'rectangle.in');
  assign(output,'rectangle.out');
  reset(input);
  rewrite(output);
  readln(n,m);
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      read(t);
      if t='*' then tab[i,j]:=1 else tab[i,j]:=0;
      tab[i,j]:=tab[i,j]+tab[i-1,j]+tab[i,j-1]-tab[i-1,j-1];
    end;
    readln;
  end;
  ans:=0;
  for i1:=1 to n do
    for i2:=1 to m do
      for i3:=1 to n-i1+1 do
        for i4:=1 to m-i2+1 do
        begin
          if tab[i1+i3-1,i2+i4-1]-tab[i1-1,i2+i4-1]-tab[i1+i3-1,i2-1]+tab[i1-1,i2-1]=0 then begin
            ans:=ans+1;
          end;
        end;
  writeln(ans);
  close(input);
  close(output);
end.