var s:string;
    f,g:text;
    k,l,i,len,sol:longint;
    c:char;
begin
assign(f,'text.in');
reset(f);
assign(g,'text.out');
rewrite(g);
k:=0;
l:=0;
len:=0;
while not (eof(f)) do begin
        read(f,c);
        if (ord(c)>64) and (ord(c)<123) then  begin
                                                len:=len+1;
                                                if k=0 then begin
                                                        l:=l+1;
                                                        k:=1
                                                        end
                                               end
                                         else k:=0;
             end;
sol:=len div l;
write(g,sol);
close(f);
close(g);
end.