program text15;
var f,g:text;
    i,s,nr,t:longint;
    stop:boolean;
    c:char;
begin
  assign(f,'text.in');
  assign(g,'text.out');
  reset(f);
  rewrite(g);
  s:=0;
  nr:=0;
  stop:=false;
  while not eoln(f) do
    begin
      read(f,c);
      if (c >='a') and (c <= 'z' ) or (c >='A') and (c <= 'Z') then begin inc(s); stop := true; end
                            else if ( stop ) then
                                   begin
                                   stop:=false;
                                   inc(nr);
                                 end;
     end;
     if (stop) then inc(nr);
  t:=s div nr;
  writeln(g,t);
  close(f);
  close(g);
end.