program txt3;
type vect = array [1..100000] of string[1];
var S : vect;
    m,n,i : longint;
    f : text;
begin
assign(f,'text.in');
reset(f);
i := 0;
m := 0;
n := 1;
while not eof(f) do begin
i := i+1;
read(f,S[i]);
if (S[i]=' ') or (S[i]=',') or (S[i]='-') or (S[i]='!') or (S[i]='?') then m := m+1;
if (S[i]=' ') or (S[i]='-') then n := n+1;
end;
close(f);

m := i-m;
write(m,' ',n);

assign(f,'text.out');
rewrite(f);
write(f,m div n);
close(f);
end.