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 (ord(s[i])>=65) and (ord(s[i])<=90) then
nr:=nr+1;
for i:=1 to length(s) do
if (ord(s[i])>97) and (ord(s[i])<=122) then
inc(nr);
writeln(nr);
i:=1;
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.