var f,g:text;
    a:string;
    i,j,n,m:longint;
 begin
  {be}assign(f,'text.in'); reset(f);
  readln(f,a);
  close(f);
  n:=0;

  a:=' '+a+' ';
  for i:=1 to length(a)-1 do begin
                           if (((a[i] in['a'..'z'])or(a[i] in['A'..'Z'] )))then inc(m)
                           else
                           if ((a[i+1] in['a'..'z'])or(a[i+1] in['A'..'Z'] )) then begin

                           inc(n);
                           end;
                           end;

  {ki}assign(g,'text.out'); rewrite(g);
  writeln(g,m div n);
  close(g);
  end.