anchor.diff:  
                       %% Increment it.
                       {ok, _} = lasp:update(Ad, increment),
  +                    lager:info("Incremented ad counter: ~p", [Ad]),
   
  -                    client(Id, Ads)
  +                    client(Id, Ads, AdList0)
               end
       end.
  
positive.code:             Pid = lists:nth(random:uniform(5), ClientList),
              Pid ! view_ad
      end,
      lists:map(Viewer, lists:seq(1,50)),
  
      ok.
  
  
negative.code:     {ok, {_, _, _}} = lasp:read(Ad, 5),
  
      %% Remove the advertisement.
      {ok, _} = lasp:update(Ads, {remove, Ad}),
  
      lager:info("Removing ad: ~p", [Ad]).
  
  %% @doc Client process; standard recurisve looping server.
  client(Id, Ads, PreviousValue) ->
      receive
          view_ad ->
              %% Get current ad list.
              {ok, {_, AdList0, _}} = lasp:read(Ads, PreviousValue),
              AdList = riak_dt_orset:value(AdList0),
  
              case length(AdList) of
                  0 ->
                      %% No advertisements left to display; ignore
                      %% message.
                      client(Id, Ads, AdList0);
                  _ ->
                      %% Select a random advertisement from the list of
                      %% active advertisements.
  