var s:string;
    n,nrc,nr,i,ok,j:longint;
    f2,f1:text;
function verf(i:longint):integer;
var ok,x:longint;
begin
  ok:=0;
  x:=ord(s[i]);
  if (x>=97)and(x<=122) then ok:=1;
  if (x>=65)and(x<=90) then ok:=1;
  verf:=ok;
end;
begin

  assign(f1,'text.in');
  reset(f1);
  assign(f2,'text.out');
  rewrite(f2);

  readln(f1,s);
  n:=length(s);

  nrc:=0;
  nr:=0;
  i:=1;
  while (i<=n) do
    begin
      ok:=verf(i);

      if ok=1 then
        begin
          j:=i;
          while (ok=1)and(i<=n) do
             begin
               i:=i+1;
               ok:=verf(i);
             end;

          nrc:=nrc+1;
          nr:=nr+(i-j);
        end;
        i:=i+1;
    end;
  writeln(f2,nr div nrc);
  close(f2);
  close(f1);
end.