Program P1;
var lit,simb:set of char;
    s:string;
    med:real;
    lit1,l,i,cuv:integer;
begin
  lit:=['A'..'z'];
  lit1:=0;
  cuv:=0;
  readln(S);
  l:=length(s);
  for i:=2 to L do begin
    if ((S[i-1]=' ')and(s[i]in lit)and(s[i+1]=' ')) then continue;
          if (S[i]='-')and(S[i+1]in lit)and(S[i-1]in lit) or (S[i]=' ') then inc(cuv);
            if S[i] in lit then inc(lit1);
  end;
  writeln(lit1,' ',cuv);
  med:=lit1/cuv;
  writeln(trunc(med));
end.