program litere;
uses crt;
var a:char;
    nrl:longint;
    nrc:word;
    f,g:text;
    k,o:boolean;
begin
     assign(f,'text.in');
     assign(g,'text.out');
     reset(f);
     rewrite(g);
     nrc:=0;
     nrl:=0;
     o:=false;
     k:=false;
     while not eof(f)do
     begin
           read(f,a);
           if (a in ['A'..'Z'])or(a in['a'..'z'])then
              begin
                   nrl:=nrl+1;
                   o:=true;
                   k:=true;
              end
           else
               if o then
                  begin
                       nrc:=nrc+1;
                       o:=false;
                  end;
    end;
     if o=false then
        writeln(g,trunc(nrl/nrc))
     else
         if k then
         writeln(g,trunc(nrl/(nrc+1)))
     else
         writeln(g,0);
    close(f);
    close(g);
end.