anchor.diff:  
   loop([],A) ->
     receive
  -    {add, I} ->
  -      loop([I],[I|A]);
  +    {add, {Node, Proc}} when is_pid(Proc) ->
  +      erlang:link(Proc),
  +      loop([{Node,Proc}],[{Node,Proc}|A]);
       {list, Pid} ->
         Pid ! {nodes, []},
         loop([],A);
  
positive.code:           loop([Node],A);
          true ->
            loop([],A)
        end
    end;
  loop(X,A) -> 
    receive 
      {add, I} ->
        loop([I|X], [I|A]);
      {remove, I} -> 
        loop(lists:delete(I,X), lists:delete(I,A));
  
negative.code: 
  %% Server manipulation
  start() -> 
    global:register_name(?MODULE, spawn(
      fun() -> 
        process_flag(trap_exit, true),
        rails_connection_pool:loop([],[]) end
      )
    ).
  
  add({Node, Proc}) when is_pid(Proc) ->
    global:send(?MODULE, {add, {Node, Proc}}),
    ok.
  
  remove(Rsrc) ->
  