program ceva_simplu_da_totuji_greu;
var x:array[1..100] of string;
    n,i,k,l,m1:word;
    ss:string;
    c:char;
    f,g:text;
    m:real;

begin
assign(f,'text.in'); reset(f);
assign(g,'text.out'); rewrite(g);
read(f,ss);
n:=length(ss);
i:=1;
k:=0;
while i<=n do
   begin
   if ((ss[i]>='a') and (ss[i]<='z')) or ((ss[i]>='A') and (ss[i]<='Z')) then
      begin
      k:=k+1;
      x[k]:='';
      while (((ss[i]>='a') and (ss[i]<='z')) or ((ss[i]>='A') and (ss[i]<='Z'))) and (i<=n) do
         begin
         x[k]:=x[k]+ss[i];
         i:=i+1;
         end;
      end;
   i:=i+1;
   end;
l:=0;
for i:=1 to k do
   l:=l+length(x[i]);
m:=l/k;
m1:=trunc(m);
write(g,m1);
close(f);
close(g);
end.