var n:string; i,s,k:integer;  f,g:text;
begin
  assign(f,'text.in');
  assign(g,'text.out');
  reset(f);
  rewrite(g);
  readln(f,n);
  for i:=1 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;
  writeln(g,k div s);
  close(f);
  close(g);
end.