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:integer;
 begin
   lit:=['A'..'z'];
   l:=length(ss);
   for i:=2 to l do begin
                      if S[i] in lit then begin
                                          inc(lt);
                                          if (S[i-1]in lit)and(not(s[i]in lit)) then inc(cv);
 end;
 end;
 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.