{ preONI runda 1 }
{ text }
var s:string;
    n,nrc,i:integer;
    f:text;
    m:set of 'A'..'Z';
    pi,ps,k:integer;

begin
      m:=[];
   for i:=65 to 90 do m:=m+[chr(i)];
  assign(f,'text.in'); reset(f);
    readln(f,s); n:=length(s);
      nrc:=0;
  for i:=1 to length(s) do
      if [(upcase(s[i]))]*m=[upcase(s[i])] then inc(nrc);
    close(f);

  pi:=1; ps:=1; k:=0;  i:=1;
    while i<n do begin
       if [upcase(s[i])]*m<>[] then
          begin
            pi:=i;  ps:=i;
         while [upcase(s[ps])]*m<>[] do inc(ps);
           pi:=ps; inc(k); i:=pi;
           end;
         inc(i);
              end;

    assign(f,'text.out');  rewrite(f);
      writeln(f,nrc div k);
    close(f);
end.