anchor.diff:  			F = fun() ->
   				Objects = mnesia:match_object(#rest{ guid = '_', bucket = Bucket, object = '_' }),
   				Guids = [ list_to_binary(Guid) || #rest{ guid = Guid } <- Objects ],
  -				io:format("got guids ~p~n", [ Guids ]),
   				JSON = json:encode(Guids),
   				#response{ status = 200, headers = [ {<<"Content-Length">>, integer_to_binary(byte_size(JSON))}], body = JSON }
   			end,
  
positive.code: 		[ Bucket | Filters ] ->
  			F = fun() ->
  				Objects = mnesia:match_object(#rest{ guid = '_', bucket = Bucket, object = '_' }),
  				filter_objects(Objects, Filters)
  			end,
  			mnesia:activity(transaction,F);
  		_ ->
  
negative.code: 		{ disc_copies, Nodes }]),
  	rpc:multicall(Nodes,application,stop, [ mnesia ]).
  
  filter_objects(Objects,Filters) ->
  	lists:filter(fun(O) ->
  		lists:foldl(fun ({K,V},B) ->
  			B and (V =:= proplists:get_value(K,O))
  		end, true, Filters)
  	end,[ json:decode(Object) || #rest{ object = Object } <- Objects]).
  
  
  to_json(Value) ->
  	json:decode(list_to_binary(Value)).
  
  list_to_filters([],Acc) ->
  	Acc;
  list_to_filters([ K, V | T ], Acc) ->
  	list_to_filters(T, [ { list_to_binary(K),to_json(V) } | Acc ]).
  
  list_to_filters(List) ->
  	list_to_filters(List,[]).
  
  
  