program texturi;
var f,g:text;
    s,s1:ansistring;
    nr,i,v:longint;
begin
 assign(f,'text.in'); reset(F);
 assign(g,'text.out'); rewrite(g);
 readln(f,s);
 nr:=0; s1:=''; s:=s+' ';  v:=0;
 for i:=1 to length(S) do
  if s[i]<>' ' then
   s1:=s1+s[i]
    else
     begin
      inc(v);
       if s1<>' ' then
         begin
          inc(nr);
          s1:='';
         end;
     end;
 v:=length(s)-v-2;
 writeln(g,v div nr);
 close(F); close(g);
end.