var s:string;
    k,l,nr,i:longint;
    f,g:text;
begin
  assign(f,'text.in');
  reset(f);
  assign(g,'text.out');
  rewrite(g);
  read(f,s);
  k:=0;
  l:=0;
  nr:=0;
  for i:=1 to length(s) do
    if ((s[i]>='a') and (s[i]<='z')) or ((s[i]>='A') and (s[i]<='Z')) then
    begin
      inc(l);
      if k=0 then
        k:=1;
    end
    else
      if k=1 then
      begin
        k:=0;
        inc(nr);
      end;

     writeln(g,l div nr);
  close(f);
  close(g);
end.