var s,t:string;
nr,sum,i:longint;
begin
assign(input,'text.in');reset(input);
assign(output,'text.out');rewrite(output);
read(s);
i:=0;nr:=0;sum:=0;
        repeat
        inc(i);
        if ((s[i]>='a') and (s[i]<='z')) or ((s[i]>='A') and (s[i]<='Z')) then begin
                t:=t+s[i];
                inc(i);
        end;
        while ((s[i]>='a') and (s[i]<='z')) or ((s[i]>='A') and (s[i]<='Z')) do begin
                t:=t+s[i];
                inc(i);
        end;
        if length(t)>0 then begin
                inc(nr);
                sum:=sum+length(t);
                delete(t,1,length(t));
                end;
        until i>=length(s);
write(sum div nr);
close(output);
end.