anchor.diff:  %% @doc Client process; standard recurisve looping server.
   client(SetType, CounterType, SyncInterval, Runner, Id, AdsWithContractsId, AdsWithContracts0, Counters0) ->
       receive
  -        terminate ->
  +        {runner, terminate} ->
               ok;
  -        view_ad ->
  +        {runner, view_ad} ->
               Counters = case dict:size(Counters0) of
                   0 ->
                       Counters0;
  
positive.code:             timer:sleep(10),
  
              Pid = lists:nth(Random, ClientList),
              Pid ! view_ad
      end,
      lists:foreach(Viewer, lists:seq(1, NumEvents)),
      {ok, State}.
  
negative.code: %% @doc Wait for all events to be delivered in the system.
  wait(#state{count_events=Count, num_events=NumEvents}=State) ->
      receive
          {runner, view_ad} ->
              case Count >= NumEvents of
                  true ->
                      {ok, State};
  