var
  crossword: array[1..2000] of string;
  count_hor, count_ver, count_cur, i, j, N: integer;
  inf, outf: text;

begin
  count_hor := 0;
  count_ver := 0;
  assign(inf, 'crossword.in');
  reset(inf);
  readln(inf, N);
  for i := 1 to N do
  begin
    readln(inf, crossword[i]);
    count_cur := 0;
    for j := 1 to N do
    begin
      if crossword[i][j]='-' then
        inc(count_cur)
      else
        count_cur := 0;
      if count_cur = 2 then
        inc(count_hor);
    end;
  end;
  close(inf);
  for j := 1 to N do
  begin
    count_cur := 0;
    for i := 1 to N do
    begin
      if crossword[i][j]='-' then
        inc(count_cur)
      else
        count_cur := 0;
      if count_cur = 2 then
        inc(count_ver);
    end;
  end;
   
  assign(outf, 'crossword.out');
  rewrite(outf);
  write(outf, count_hor, ' ', count_ver);
  close(outf);
end.