var s:string;
    v:array[1..100] of longint;
    i,nrcaract,nr:longint;
begin
assign(input,'text.in');reset(input);
assign(output,'text.out');rewrite(output);
readln(s);
nr:=0;
nrcaract:=0;;
for i:=1 to length(s)do begin
 if s[i] in['A'..'Z'] then nr:=nr+1;
 if ((s[i]=' ')or(s[i]=',')or(s[i]='-'))and(s[i+1] in ['a'..'z','1'..'9']) then nr:=nr+1;
 if s[i] in ['a'..'z','A'..'Z','1'..'9'] then nrcaract:=nrcaract+1;
end;
write(trunc(nrcaract/nr));
close(input);close(output);
end.