var a:array[1..1500000] of char;
    c:char;
    s,r,k,v:longint;
    f1,f2:text;
procedure citire;
begin
assign(f1,'text.in');
reset(f1);
k:=1;
while not eof(f1) do
begin
read(f1,c);
a[k]:=c;
k:=k+1;
end;
close(f1);
end;
procedure rezolvare;
var i:integer;
begin
if a[1]='-' then i:=3;
for i:=1 to k-1 do
begin
case a[i] of
'a'..'z': s:=s+1;
'A'..'Z': s:=s+1;
' ' : r:=r+1;
end;
end;
end;
procedure afisare;
begin
assign(f2,'text.out');
rewrite(f2);
v:=trunc(s/r);
writeln(f2,v);
close(f2);
end;
begin
citire;
r:=1;
s:=0;
rezolvare;
afisare;
end.