anchor.diff:  	{rc, Count, Obj} = make_next_value(get_counter_value(Pid)),
   	{ok, NewestObj1} = riakc_pb_socket:put(Pid, Obj, [return_body]),
   	Count.
  -
   
   %%
   %% Behaviors
  
positive.code: %% Utilities
  %%
  
  get_counter_value(Pid) ->
  	MyBucket = <<"counter">>,
  	BinK = erlang:list_to_binary("npc"),
  	riakc_pb_socket:get(Pid, MyBucket, BinK).
  
  make_next_value({error,notfound}) ->
  	MyBucket = <<"counter">>,
  	BinK = erlang:list_to_binary("npc"),
  	Obj = riakc_obj:new(MyBucket, BinK, 1),
  	{rc, 1, Obj};
  
  make_next_value({ok,Fetched}) ->
  
negative.code: 	riakc_pb_socket:put(Pid, Obj1),
  	{reply, {ok, Id}, State};
  
  handle_call({add, Id, V}, From, State) ->
  	{Pid, Npcs} = State,
  	MyBucket = <<"npc">>,
  	BinId = erlang:term_to_binary(Id),
  	Obj1 = riakc_obj:new(MyBucket, BinId, V),
  	riakc_pb_socket:put(Pid, Obj1),
  	{reply, ok, State};
  
  handle_call({lookup, Id}, From, State) ->
  	{Pid, Npcs} = State,
  	MyBucket = <<"npc">>,
  	BinId = erlang:term_to_binary(Id),
  	{ok, Fetched1} = riakc_pb_socket:get(Pid, MyBucket, BinId),
  	Val1 = binary_to_term(riakc_obj:get_value(Fetched1)),
  	{reply, {ok, Val1}, State}.
  
  