program texti;
var fin,fout:text;
    i,j,lit,cuv:integer;
    c:char;
begin
  assign(fin,'text.in');
  assign(fout,'text.out');
  reset(fin);
  rewrite(fout);
  cuv:=0;
  lit:=0;
  while not eof(fin) do
    begin
      i:=0;
      while not eoln(fin) do
        begin
          inc(i);
          read(fin,c);
          if (i= 1) and (c <>'-') then inc(cuv);
          case c of
            ' ':inc(cuv);
            '-':inc(cuv);
            '!':inc(cuv);
            '.':inc(cuv);
            '?':inc(cuv);
            ':':inc(cuv);
            'a'..'z':inc(lit);
            'A'..'Z':inc(lit);
          end;
        end;
      readln(fin);
    end;
  writeln(fout,lit div cuv);
  close(fout);
end.