var s:string;
    i,nrlit,nrcuv:integer;
    m,n:set of char;

procedure citire;
 begin
  assign(input,'text.in');reset(input);
  assign(output,'text.out');rewrite(output);
  read(s);
  close(input);
  m:=[' ','q','w','e','r','t','y','u','i','o','p','a','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m'];
  n:=['Q','W','E','R','T','Y','U','I','O','P','A','S','D','F','G','H','J','K','L','Z','X','C','V','B','N','M'];
 end;

procedure nrcuvinte;
 begin
  if s[i]=' ' then
   inc(nrcuv);
 end;

procedure nrlitere;
 begin
  if ((s[i] in m)or(s[i] in n))and(s[i]<>' ') then
   inc(nrlit);
 end;

procedure afisare;
 begin
  for i:=1 to length(s) do
   begin
    if s[i]='-' then
     begin
      delete(s,i,1);
      insert(' ',s,i);
     end;
    if (not(s[i] in m))and(not(s[i] in n)) then
     begin
      delete(s,i,1);
     end;
     if (s[i]=' ')and(s[i+1]=' ') then
      delete(s,i,1);
   end;
  for i:=1 to length(s) do
   nrlitere;
  for i:=1 to length(s) do
   nrcuvinte;
  write(trunc(nrlit/nrcuv));
 end;

begin
 citire;
 afisare;
 close(output);
end.