Program text_infoarena;
  const lmic=['a'..'z']; lmare=['A'..'Z'];
var  f,g:text;
  l,k:longint;
   c:char;
    ok:boolean;

BEGIN
   assign(f,'text.in'); reset(f);
   assign(g,'text.out'); rewrite(g);

      l:=0; k:=1; ok:=false;
     while (not(eof(f))) do
      begin
        read(f,c);
        if ((c in lmic) or (c in lmare)) then
         begin
         inc(l);
        if (not(ok)) then
          begin
            ok:=true;
            inc(k);
          end;
         end
          else ok:=false;

      end;

      writeln(g,trunc(l/k));
   close(f); close(g);
END.