Program P1;
var S:string;
    lit1,cuv:integer;
    med:real;
procedure Clc(ss:string; var lt,cv:integer);
 type litere=set of char;
 var  lit:litere;
      i,l:integer;
 begin
   lit:=['A'..'z'];
   l:=length(ss);
   for i:=1 to l do begin
                      if S[i] in lit then inc(lt);
                      if (S[i]=' ')or((s[i]='-')and(S[i+1] in lit)) then inc(cv);
                      end;
 end;
begin
  readln(S);
  Clc(s,lit1,cuv);
  med:=lit1/cuv;
  writeln(trunc(med));
end.