program text;
var num_lit,num_cuv,i:integer;
    str:string;
    f1,f2:textfile;
begin
assign(f1,'text.in');
assign(f2,'text.out');
reset(f1);
rewrite(f2);
readln(f1,str);
for i:=1 to length(str) do
begin
if ((ord(str[i])>64) and (ord(str[i])<91)) or ((ord(str[i])>96) and (ord(str[i])<123)) then
num_lit:=num_lit+1;
if (str[i]=' ') or (str[i]='-') then
num_cuv:=num_cuv+1;

end;
if(str[1])<>'-' then
num_cuv:=num_cuv+1
else if str[1]='-' then
num_cuv:=num_cuv-1;
writeln(f2,num_lit div num_cuv);
close(f1);
close(f2);
end.