anchor.diff:  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)).
  +
  +remove_impl(Pid, NamedId, Pcs) when is_list(NamedId) ->
  +	NewPcs = lists:delete(NamedId , Pcs),
  +	BinId = list_to_binary(NamedId),
  +	riakc_pb_socket:delete(Pid, ?MyBucket, BinId),
  +	emmo_map:remove(NamedId),
  +	object_srv:del(NamedId),
  +	{ok, NewPcs}.
  +
   
   %%
   %% Behaviors
  
positive.code: 
  			{ok, CurrentLocation} = emmo_map:lookup(X),
  
  			Step = {ok, nop},		%% TODO: set command handdler here
  			case Step of
  				{ok, nop} -> nop;
  				_ -> io:format("unknown : [~p] ~p~n", [X, Step])
  
negative.code: add() ->
  	Reply = gen_server:call(?MODULE, {add, auto_increment}).
  
  remove(NamedId) when is_list(NamedId) ->
  	Reply = gen_server:call(?MODULE, {remove, NamedId}).
  
  online(NamedId) ->
  