var cuv,lit:integer;
    f,g:text;
    ok:boolean;
    c:char;
 begin
  assign(f,'text.in');reset(f);
  assign(g,'text.out');rewrite(g);
  ok:=false;
  while not eoln(f) do begin
  read(f,c);
  if (('a'<=c) and (c<='z'))or(('A'<=c) and (c<='Z')) then begin
                                                           lit:=lit+1;
                                                           ok:=true;
                                                           end
                                                      else begin
                                                           cuv:=cuv+1;
                                                           ok:=false;
                                                           end;
  end;
  if ok=false then write('0');
  write(g,round(lit/cuv));
  close(f);
  close(g);
 end.