var s:string; i, k1,k2:byte; fi,fo:text;
begin assign(fi,'text.in'); reset(fi);
      assign(fo,'text.out'); rewrite(fo);
      readln(fi,s);
      close(fi);
      for i:=1 to length(s) do
      if s[i] in ['A'..'Z','a'..'z'] then inc(k1);
      i:=1;
      while i<=length(s) do begin
       if s[i] in ['A'..'Z','a'..'z'] then begin
        while s[i] in ['A'..'Z','a'..'z'] do inc(i);
        inc(k2);
        end; inc(i);  end;
       writeln(fo,k1 div k2);
       close(fo);
      end.