anchor.diff:  add() ->
   	Reply = gen_server:call(?MODULE, {add, auto_increment}).
   
  -remove(NamedId) ->
  +remove(NamedId) when is_list(NamedId) ->
   	Reply = gen_server:call(?MODULE, {remove, NamedId}).
   
   online(NamedId) ->
  
positive.code: lookup_impl(Pid, BinId) when is_binary(BinId) ->
  	{ok, Fetched1} = riakc_pb_socket:get(Pid, ?MyBucket, BinId),
  	Val1 = binary_to_term(riakc_obj:get_value(Fetched1)).
  
  %%
  %% Behaviors
  
negative.code: 	BinKeys),
  	{reply, Result, {Pid, []}};
  
  handle_call({remove, NamedId}, From, State) when is_list(NamedId) ->
  	{Pid, Pcs} = State,
  	{ok, NewPcs} = remove_impl(Pid, NamedId, Pcs),
  	NewState = {Pid, NewPcs},
  	{reply, {ok, NamedId}, NewState};
  
  handle_call({online, NamedId}, From, State) when is_list(NamedId) ->
  