anchor.diff:  
   lookup(K) ->
   	Reply = gen_server:call(?MODULE, {lookup, K}).
  +
  +run() ->
  +	Reply = gen_server:call(?MODULE, {run, 1000}).
  +
  +run(IntervalMSec) ->
  +	Reply = gen_server:call(?MODULE, {run, IntervalMSec}).
   
   %%
   %% Behaviors
  
positive.code: -export([new/1]).
  -export([add/2]).
  -export([lookup/1]).
  
  %%
  %% APIs
  
negative.code: 	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};
  
  handle_call({run, IntervalMSec}, From, State) ->
  	{Pid, Npcs} = State,
  	MyBucket = <<"npc">>,
  	BinId = erlang:term_to_binary(1),
  	{ok, Fetched1} = riakc_pb_socket:get(Pid, MyBucket, BinId),
  	Val1 = binary_to_term(riakc_obj:get_value(Fetched1)),
  	{reply, {ok, Val1}, State}.
  
  
  