var n, i, ans2, j : longint;
    s, st : string;
begin
  assign(input, 'input.txt'); assign(output, 'output.txt');
  reset(input); rewrite(output);
  readln(n);
  st := 'qwertyuiopasdfghjkzxcvbnmQWERTYUPASDFGHJKLZXCVBNM23456789';
  for i := 1 to n do
  begin
  readln(s);
  if (length(s) <> 8) then begin ans2 := ans2 + 1; continue; end;
  for j := 1 to length(s) do
  begin
    if (pos(s[j], st) = 0) then begin ans2 := ans2 + 1; end;
  end;
  end;
  writeln(n - ans2, ' ', ans2);
end.