var cuv,lit,i:integer;
    f,g:text;
    ok:boolean;
    s:string;
 begin
  assign(f,'text.in');reset(f);
  assign(g,'text.out');rewrite(g);
  read(f,s);cuv:=0;lit:=0;
  for i:=1 to length(s) do
  if (('a'<=s[i]) and (s[i]<='z'))or(('A'<=s[i]) and (s[i]<='Z')) then begin
                                                                   lit:=lit+1;
                                                                   ok:=true;
                                                                   end
                                                                   else
                                                                   begin
                                                                   cuv:=cuv+1;
                                                                   ok:=false;
                                                                   end;
  write(g,round(lit/cuv));
  close(f); close(g);
 end.