var s,cuv:string;
    f,g:text;
    s1,nr,i,n:longint;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
readln(f,s);
i:=1;
s1:=0;
nr:=0;
n:=length(s);
while i<= n do begin
if s[i] in['A'..'Z','a'..'z'] then begin
                                        cuv:='';
                                        while (s[i] in['A'..'Z','a'..'z']) and (i<=n) do begin
                                        cuv:=cuv+s[i];
                                        inc(i);
                                        inc(s1);
                                        end;
                                        inc(nr);
                                        end;
                                        inc(i);
end;
write(g,s1 div nr);
close(f);
close(g);
end.