program pascal;
var f,g:text;
    s:string;
    j:byte;

    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):byte;
         var nrcuv,i,j,t,nrl,ma:integer;
		 
		 begin
			i:=1;nrl:=0;
			while i<length(s) do begin
			while i<length(s) and s[i]>'a' and s[i]<'z' do begin
				t:=1
				i:=i+1
				nrl:=nrl+1
			end;
			if t=1 then nrcuv:=nrcuv+1;
			
			while i<length(s) and (i<'a' or 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);

write(g, cuvinte(s));
close(f); close(g)

end.