var t:char;
    c,a:string;
    s,d:longint;
    f,g:text;
begin
  assign(f,'text.in');
  assign(g,'text.out');
  reset(f);
  rewrite(g);
  s:=0;
  a:='';
  d:=0;
  while not eof(f) do begin
    read(f,t);
    if t in ['A'..'Z','a'..'z'] then begin
      s:=s+1;
      a:=a+t;
    end else if a<>'' then
    d:=d+1;
  end;
  d:=d-1;
  write(g,s div d);
  close(g);
end.