Program econom_space;
var fi,fo:text; c:char; s1,s2:longint; cuv:set of char;
begin
      assign(fi,'text.in'); reset(fi); assign(fo,'text.out'); rewrite(fo); s1:=0; s2:=0; cuv:=[]; cuv:=['a'..'z']+['A'..'Z'];
      while not eof(fi) do begin read(fi,c); if c in cuv then begin s1:=s1+1;
                                                                    while c in cuv do begin
                                                                                      s2:=s2+1;
                                                                                      read(fi,c);
                                                                                      end;
                                                               end;
                            end; writeln(fo,s2 div s1); close(fi); close(fo);
end.