var s,m:string;
    i,j,nrcuvinte,nrcaractere:longint;
begin
assign(input,'text.in');reset(input);
assign(output,'text.out');rewrite(output);
readln(s);
nrcuvinte:=0;
nrcaractere:=0;
  if((s[1]<>' ')and(s[1]<>'-')and(s[1]<>'"')) then begin nrcuvinte:=nrcuvinte+1;
                                            nrcaractere:=nrcaractere+1;end;

  for i:=1 to length(s) do begin
    if ((s[i]=' ')or(s[i]=',')or(s[i]='-')or(s[i]='"'))and(s[i+1] in ['a'..'z','A'..'Z'])then nrcuvinte:=nrcuvinte+1;
    if s[i] in['a'..'z','A'..'Z'] then nrcaractere:=nrcaractere+1;
    if s[i] in['1'..'9'] then nrcaractere:=nrcaractere+1;
    if (s[i] in['1'..'9']) and((s[i-1]=' ')or(s[i-1]=',')or(s[i-1]='-')) then nrcuvinte:=nrcuvinte+1;
  end;
  writeln(nrcuvinte,' ',nrcaractere);
  if((s[1]<>' ')and(s[1]<>'-')and(s[1]<>'"')) then writeln(trunc((nrcaractere-1)/nrcuvinte))
   else writeln(trunc(nrcaractere/nrcuvinte));
close(input); close(output);
end.