program textd;
var f,g:text;
    cuv,lit,i:longint;
    s:string;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
readln(f,s);
cuv:=0;lit:=0;
for i:=1 to length(s) do if (s[i]=' ') or (s[i]='-') then inc(cuv)
                         else if ((ord(s[i])>40) and (ord(s[i])<91)) or
                                 ((ord(s[i])>96) and (ord(s[i])<123)) then inc(lit);
writeln(g,cuv div lit);
close(g);
end.