program text1;
var s:string;
    i,j,nrcuv,nrlit:integer;
    f,g:text;
    begin
    assign(f,'text.in'); reset(f);
    assign(g,'text.out');rewrite(g);
    readln(f,s);
    nrcuv:=nrcuv+1;
      for i:=1 to length(s) do
          begin
             if s[i]=' ' then inc(nrcuv);
             if s[i]='-' then inc(nrcuv);
             if (s[i]<>' ') and(s[i]<>'-') then inc(nrlit);
           end;
   write(g,nrlit div nrcuv);
   close(f);
   close(g);
   END.