anchor.diff:      {[V || {ok, V} <- L], [V || {bad, V} <- L]}.
   
   abcast(Nodes, Msg) ->
  -    [cast(N, Msg) || N <- Nodes].
  +    gen_server:cast(?MODULE, {abcast, Nodes, Msg}).
   
   monitor(process, Pid) ->
  -    gen_server:call(?MODULE, {monitor, self(), Pid}).
  +    gen_server:call(?MODULE, {monitor, self(), Pid}, infinity).
   
   demonitor({interconnect_monitor, Pid, Ref}) ->
  -    gen_server:call(?MODULE, {demonitor, Pid, Ref}).
  +    gen_server:call(?MODULE, {demonitor, Pid, Ref}, infinity).
   
   demonitor({interconnect_monitor, _, _} = Ref, [flush]) ->
       ?MODULE:demonitor(Ref),
  
positive.code: handle_info(_Info, State) ->
      {noreply, State}.
  
  terminate(_Reason, _State) ->
      ok.
  
  
negative.code: 
  handle_cast({from_remote, {cast, Msg}}, State) ->
      _ = (catch handle_message(Msg, State)),
      {noreply, State};
  
  handle_cast({from_remote, {abcast, Nodes, Msg}}, State) ->
      handle_abcast(Nodes, Msg, State),
      {noreply, State};
  
  handle_cast({from_remote, {call, {FromNode, From}, Msg}}, State) ->
  