anchor.diff:  -export([init/1]).
   -export([handle_call/3]).
   
  --export([new/0]).
  --export([new/1]).
  --export([add/2]).
  +-export([add/0]).
  +-export([add/1]).
  +-export([is_on/1]).
   -export([lookup/1]).
  +-export([remove/1]).
   -export([run/0]).
   -export([run/1]).
   
  
positive.code: %% APIs
  %%
  
  new() ->
  	Reply = gen_server:call(?MODULE, {new, 0}).
  
  new(Type) ->
  	Reply = gen_server:call(?MODULE, {new, Type}).
  
  add(K, V) ->
  	Reply = gen_server:call(?MODULE, {add, K, V}).
  
  lookup(K) ->
  	Reply = gen_server:call(?MODULE, {lookup, K}).
  
  remove(K) ->
  	Reply = gen_server:call(?MODULE, {remove, K}).
  
  run() ->
  	Reply = gen_server:call(?MODULE, {run, 1000}).
  
negative.code: terminate(_Reason, State) ->
  	ok.
  
  handle_call({add, auto_increment}, From, State) ->
  	{Pid, Npcs} = State,
  	MyBucket = <<"npc">>,
  	Id = rutil:auto_increment("npc"),
  	BinId = erlang:term_to_binary(Id),
  	Obj1 = riakc_obj:new(MyBucket, BinId, "default"),
  	riakc_pb_socket:put(Pid, Obj1),
  	NewState = {Pid, [Id | Npcs]},
  	{reply, {ok, Id}, NewState};
  
  handle_call({add, Id}, From, State) ->
  	{Pid, Npcs} = State,
  	MyBucket = <<"npc">>,
  	BinId = erlang:term_to_binary(Id),
  	{ok, Fetched} = riakc_pb_socket:get(Pid, MyBucket, BinId),	%% check if key existing "BinId"
  	NewState = {Pid, [Id | Npcs]},
  	{reply, ok, NewState};
  
  handle_call({is_on, Id}, From, State) ->
  	{Pid, Npcs} = State,
  	{reply, {ok, lists:member(Id , Npcs)}, State};
  
  handle_call({lookup, Id}, From, State) ->
  	{Pid, Npcs} = State,
  