anchor.diff:      erlang:binary_to_term(Binary).
   
   
  -merge(T1, T2) ->
  -    state_orset:merge(T1, T2).
  -
  -
  -equal(T1, T2) ->
  -    state_orset:equal(T1, T2).
  -
  -
   
   %% =============================================================================
   %% EUNIT TESTS
  
positive.code: 
  
      ?assertEqual(
          [],
          to_list(A1)
      ),
      ?assertEqual(
          [Node1, Node2],
          to_list(B1)
      ),
      %% Replicate to A
  
negative.code:         to_list(A1)
      ).
  
  concurrent_updates_test() ->
      Nodename = 'node1@127.0.0.1',
      Node1 = node_spec(Nodename, {127, 0, 0, 1}),
      Node2 = node_spec(Nodename, {192, 168, 0, 1}),
  
      A = B = new(),
  
      {ok, A1} = add(Node1, a, A),
  
      {ok, B1} = add(Node2, b, B),
  
  
      ?assertEqual(
          [Node1],
          to_list(A1)
      ),
  
      ?assertEqual(
          [Node2],
          to_list(B1)
      ),
  
      ?assertEqual(
          [Node1, Node2],
          to_list(merge(A1, B1))
      ).
  
  
  
  concurrent_remove_update_test() ->
      Nodename = 'node1@127.0.0.1',
      Node1 = node_spec(Nodename, {127, 0, 0, 1}),
      Node2 = node_spec(Nodename, {192, 168, 0, 1}),
  
      {ok, A} = add(Node1, a, new()),
  