var a,b:char;
    t:text;
    lung,cuv:extended;


function adevarat(c:char):boolean;
begin
 adevarat:=((ord(c)>64)and(ord(c)<91))or((ord(c)>96)and(ord(c)<123));
end;



begin
 assign(t,'text.in'); reset(t);
        read(t,a);
        lung:=0;
        cuv:=0;
        if adevarat(a) then lung:=lung+1;
        b:=a;
        while not(eof(t)) do begin
        while not(eoln(t)) do begin
           read(t,a);
           if adevarat(a) then lung:=lung+1;
           if adevarat(b) and (not(adevarat(a))) then cuv:=cuv+1;
           b:=a;
        end;
        readln(t);
        end;
        if (eof(t))and(adevarat(a))then cuv:=cuv+1;
 close(t);

 assign(t,'text.out'); rewrite(t);
        writeln(t,trunc(lung/cuv));
 close(t);
end.