program Pbtext;
var f,g:text; i,nr,nr1:integer; s,cuv:string;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
read(f,s);
i:=1;   nr:=0; nr1:=0;
while i<=length(s) do
 begin
 cuv:='';
 while ((s[i]<'a') or (s[i]>'z')) and ((s[i]<'A') or (s[i]>'Z')) and (i<=length(s))
  do i:=i+1;

 while (((s[i]>='a') and (s[i]<='z')) or ((s[i]>='A') and (s[i]<='Z'))) and(i<=length(s))
  do begin
     nr:=nr+1;
     cuv:=cuv+s[i];
     i:=i+1;
     end;

  if cuv<>'' then nr1:=nr1+1;

 end;
writeln(g,nr div nr1);
close(f);close(g);

end.