anchor.diff:  %%
   %% 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}).
  
positive.code: 	{reply, ok, State};
  
  handle_call({lookup, K}, From, State) ->
  	Pid = State,
  	MyBucket = <<"test">>,
  	BinK = erlang:list_to_binary(K),
  	{ok, Fetched1} = riakc_pb_socket:get(Pid, MyBucket, BinK),
  
negative.code: -export([init/1]).
  -export([handle_call/3]).
  
  -export([new/0]).
  -export([new/1]).
  -export([add/2]).
  -export([lookup/1]).
  
  