anchor.diff:      lager:info("Removing ad: ~p", [Ad]).
   
   %% @doc Client process; standard recurisve looping server.
  -client(Id, AdsWithContracts, PreviousValue) ->
  +client(Runner, Id, AdsWithContracts, PreviousValue) ->
       receive
           view_ad ->
               %% Get current ad list.
  
positive.code:                     %% Increment it.
                      {ok, _} = lasp:update(Ad, increment, Id),
  
                      client(Id, AdsWithContracts, AdList0)
              end
      end.
  
  %% @doc Simulate clients viewing advertisements.
  simulate(ClientList) ->
      %% Start the simulation.
      Viewer = fun(_) ->
              Random = random:uniform(length(ClientList)),
  
negative.code: -author("Christopher Meiklejohn <cmeiklejohn@basho.com>").
  
  -export([test/0,
           client/4,
           server/2]).
  
  -ifdef(TEST).
  