Program P1;
var f:textfile;
    S:string;
    lit1,cuv:integer;
    med:real;
procedure Clc(ss:string; var lt,cv:integer);
 type litere=set of char;
 var  lit:litere;
      i,l,k:integer;
 begin
   lit:=['A'..'z'];
   l:=length(ss);
   for i:=1 to l do if S[i] in lit then  begin
                                          inc(lt);
                                          if k=0 then inc(cv);
                                          k:=1;
                                         end
                                   else k:=0;
 end;
                      
begin
  assign(f, 'text.in');
  reset(F);
  read (f,s);
  close(f);
  Clc(s,lit1,cuv);
  med:=lit1/cuv;
  assign(f, 'text.out');
   rewrite(f);
   write(f, trunc(med));
   close(f);
end.