program p1;
var s,cuv:string;
nr,i,nr2:word;
f,g:text;
begin
assign(f,'text.in');
reset(f);
assign(g,'text.out');
rewrite(g);
read(f,s);
nr:=0;
nr2:=0;
for i:= 1 to length(s) do
if ((s[i]>='a') and (s[i]<='z')) or ((s[i]>='A') and (s[i]<='Z')) then
nr:=nr+1;
writeln(nr);
i:=3;
while i<=length(s) do
begin
cuv:='';
while(i<=length(s)) and (s[i]<>' ') do
begin
cuv:=cuv+s[i];
i:=i+1;
end;
nr2:=nr2+1;
while(i<=length(s)) and(s[i]=' ') do
i:=i+1;
end;
writeln(g, nr div nr2);
close(f);
close(g);
writeln(nr,' ',nr2);
end.