program p1;
var f,g:text;
    nrc,nrcuv:longint;
    c:char;

function litera(c:char):boolean;
begin
     if c in ['a'..'z'] then litera:=true
        else if c in ['A'..'Z'] then litera:=true
                                else litera:=false;
end;

begin
     assign(f,'text.in');reset(f);
     assign(g,'text.out');rewrite(g);
     read(f,c);
     while (not eof(f)) and (not litera(c)) do read(f,c);
     while not eof(f) do
           begin
           while (litera(c)) and  (not eof(f)) do
                 begin
                 nrc:=nrc+1;
                 read(f,c);
                 end;
           if  not litera(c) then begin
                    nrcuv:=nrcuv+1;
                    while (not litera(c))and (not eof(f)) do read(f,c);
                    end;
           end;
     if litera(c) then nrcuv:=nrcuv+1;
     writeln(g,nrc div nrcuv);
     close(f);
     close(g);
end.