var f,g:text;
c:char; k,p,med,i:integer;
s:string;
begin
assign(f,'text.in');
assign(g,'text.out');
reset(f);
rewrite(g); p:=1;
while not eoln(f) do
begin
read(f,c);
s[i]:=c;
i:=i+1;
 end;

 for i:=1 to length(s) do
 if (ord(s[i])>=65) and (ord(s[i])<122) or (ord(s[i])>=47) and (ord(s[i])<=57) then inc(k);

 if (ord(s[1])>65) and (ord(s[1])<122)or(ord(s[1])>=47) or (ord(s[1])<=57) then p:=1 ;

 for i:=1 to length(s) do
 if (ord(s[i])>=65) and (ord(s[i])<=122) or (ord(s[i])>=47) and (ord(s[i])<=57) then if(s[i-1]=' ') or (s[i-1]='-') then inc(p);



 med:=k div p;

 write(g,med);
close(f);
close(g);


end.