program litere;
uses crt;
var a:string;
    nrl,i:longint;
    nrc:word;
    f,g:text;
begin
     assign(f,'text.in');
     assign(g,'text.out');
     reset(f);
     rewrite(g);
     nrc:=1;
     nrl:=0;
     repeat
           read(f,a);
           for i:=1 to length(a)do
               if (a[i]in ['A'..'Z'])or(a[i]in['a'..'z'])then
                  nrl:=nrl+1
               else
                   if (a[i]=' ')or(a[i]='-')or(a[i]='+')or(a[i]='*')or(a[i]='/') then
                      nrc:=nrc+1;
     until eof;
    writeln(g,trunc(nrl/nrc));
    close(f);
    close(g);
end.