anchor.diff:  	{reply, ok, State};
   
   handle_call({lookup, K}, From, State) ->
  -	Pid = State,
  +	{Pid, Npcs} = State,
   	MyBucket = <<"test">>,
   	BinK = erlang:list_to_binary(K),
   	{ok, Fetched1} = riakc_pb_socket:get(Pid, MyBucket, BinK),
  
positive.code: -export([init/1]).
  -export([handle_call/3]).
  
  -export([add/2]).
  -export([lookup/1]).
  
  
negative.code: init(Args) ->
      [RiakIp, RiakPort] = Args,
  	{ok, Pid} = riakc_pb_socket:start(RiakIp, RiakPort),
  	NewState = {Pid, []},
  	{ok, NewState}.
  
  terminate(_Reason, State) ->
  	ok.
  
  handle_call({new, Type}, From, State) ->
  	{Pid, Npcs} = State,
  	MyBucket = <<"test">>,
  	BinK = erlang:list_to_binary(K),
  	Obj1 = riakc_obj:new(MyBucket, BinK, V),
  	riakc_pb_socket:put(Pid, Obj1),
  	{reply, ok, State};
  
  
  handle_call({add, K, V}, From, State) ->
  	{Pid, Npcs} = State,
  	MyBucket = <<"test">>,
  	BinK = erlang:list_to_binary(K),
  	Obj1 = riakc_obj:new(MyBucket, BinK, V),
  