program parfenie;
var f,g:text;
len,cuv,k,i,j:byte;
s:string;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
len:=0;k:=1;cuv:=0;
while not(eof(f)) do begin
                     read(f,s);
                     if ((s>='A')and (s<='Z')) or((s>='a')and(s<='z')) then begin
                                                                            k:=0;
                                                                            inc(len);
                                                                            end
                     else if k=0 then begin
                                      inc(cuv);
                                      k:=1;
                                      end;
end;
write(g,len div cuv);
close(f);
close(g);
end.