program tex;
  var s: ansistring;
      f:text;
      i:longint;
      k,n:longint;
begin
  assign(f,'text.in');
  reset(f);
  readln(f,s);
  close(f);
  assign(f,'text.out');
  rewrite(f);
  k:=0;
  if s[1] in ['a'..'z','A'..'Z'] then n:=1 else n:=0;
  for i:=2 to length(s) do
      if s[i] in ['a'..'z','A'..'Z'] then inc(n)
                                     else if s[i-1] in ['a'..'z','A'..'Z'] then inc(k);
  if s[length(s)] in ['a'..'z','A'..'Z'] then inc(k);
  k:=n div k;
  writeln(f,k);
  close(f);

end.