var f,g:text;
    cuv,s:string;
     m:set of char;
     i,su,nr:integer;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
read(f,s);
M:=['a'..'z']+['A'..'Z'];
i:=1;
su:=0;nr:=0;
while i<=length(s) do
begin
  if not(s[i] in M) then inc(i)
  else
    begin
      cuv:='';
          while s[i] in M do
            begin
              cuv:=cuv+s[i];
              inc(i);
              end;
            end;
            nr:=nr+1;
            su:=su+length(cuv);
  end;
    write(g,su div nr);
    close(f);close(g);
    end.