program pascal;
var f,g:text;
    s:string;
    k:real;

    function litere(s:string):integer;
             var nrc,i:integer;
                 ok:boolean;
    begin
    nrc:=0;
    for i:=1 to length(s) do begin
         if (ord(s[i])>66) and (ord(s[i])<91) then nrc:=nrc+1
                                      else if (ord(s[i])>96) and (ord(s[i])<123) then nrc:=nrc+1;
    end;
    litere:=nrc;
    end;


    function cuvinte(s:string):real;
         var nrcuv,i,j,t,nrl:integer;
             ma:real;
	     ok:boolean;	 
		 begin


			i:=1;nrl:=0; nrcuv:=0;



			while i<length(s) do begin
                             t:=0;
                              while (i<=length(s)) and (((s[i]>='a') and (s[i]<='z')) or ((s[i]>='A') and (s[i]<='Z'))) do begin

                            nrl:=nrl+1;
                            t:=1;
                            i:=i+1;


                             end; 
                        
                        if t=1 then nrcuv:=nrcuv+1;
                        while (i<=length(s)) and ((s[i]<'A') or ((s[i]>'Z') and (s[i]<'a')) or (s[i]>'z'))  do
                              i:=i+1;


			end;

                        ma:=nrl/nrcuv;
                        cuvinte:=ma;
 
    end;

BEGIN

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

K:=cuvinte(s);

write(g,trunc(k));
close(f); close(g)

end.