var n:string; i,s,k,j:integer;  f,g:text;
begin
  assign(f,'text.in');
  assign(g,'text.out');
  reset(f);
  rewrite(g);
  readln(f,n);

  j:=1;
  while not (((n[j] >='a') and (n[j] <='z')) or ((n[j] >='A') and (n[j] <='Z')))
  do j:=j+1;

  for i:=j to length(n) do
    if ((n[i] >='a') and (n[i] <='z')) or ((n[i] >='A') and (n[i] <='Z')) then
      k:=k+1 else
    if ((n[i+1] >='a') and (n[i+1] <='z')) or ((n[i+1] >='A') and (n[i+1] <='Z'))
      then s:=s+1;
  s:=s+1;

  writeln(g,k div s);
  close(f);
  close(g);
end.