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); s:='';
 while not eoln(f) do
 begin
   read(f,c);
   s:=s+c;
   if (ord(c)>=65) and(ord(c)<=90) or (ord(c)>=97) and (ord(c)<=122) or (ord(c)>=48) and (ord(c)<=57) then
   inc(k);
 end;
 if (ord(s[1])>=65) and(ord(s[1])<=90) or (ord(s[1])>=97) and (ord(s[1])<=122) or (ord(s[1])>=48) and (ord(s[1])<=57) then
  p:=1 else p:=0;
 for i:=2 to length(s) do
 if (s[i-1]='-') or (s[i-1]=' ') then
 if (ord(s[i])>=65) and(ord(s[i])<=90) or (ord(s[i])>=97) and (ord(s[i])<=122) or (ord(s[i])>=48) and (ord(s[i])<=57)
 then inc(p);
 med:=k div p;
 write(g,med);
close(f);
close(g);
end.