Program Texte;
var s : string;
    i, k, k1: integer;
    s1 : real;
    f, g : text;
begin
  assign(f,'text.in');
  assign(g,'text.out');
  reset(f);
  rewrite(g);
  readln(f,s);
  for i:=1 to length(s) do begin
    if s[i]=' ' then k:=k+1;
    case s[i] of 
      'a'..'z', 'A'..'Z' : k1:=k1+1;
    end;
  end;
  s1:=k1/(k+1);
  writeln(g,int(s1));
  close(f);
  close(g);
end.