anchor.diff:  %% returns a valgen function that takes an array of Fields and an
   %% array of Terms. The valgen function is then called by this module
   %% (the driver).
  -valgen(MaxFields, MaxTerms) ->
  +valgen(_ID, MaxFields, MaxTerms) ->
       fun(Fields, Terms) ->
           %% Get the field names...
           NumFields = random:uniform(MaxFields) + 1,
  
positive.code: -export([
      new/1,
      run/4,
      valgen/2,
      file_to_array/1, file_to_array/2 % Get rid of compiler warnings.
  ]).
  
  
negative.code:         {{value, {QueryField, QueryTerm}}, NewQueries} ->
              %% Get the next queued query, then search...
              Node = choose(State#state.nodes),
              {_, _} = rpc:call(Node, search, search, [list_to_binary(QueryField ++ ":" ++ QueryTerm)]),
              {ok, State#state { queries=NewQueries }};
          {empty, NewQueries} ->
              %% No queries queued up, so just search for something...
  