anchor.diff:  cons(false, F, RC, Acc) ->
       [{F, RC} | Acc].
   
  +%% ---------------------------------------------------------------------------
   %% fold/3
   %%
   %% Parallel fold. Results are folded in the order received.
  
positive.code: lport(M, Ref, Tries) ->
      lp(tmod(M), Ref, Tries).
  
  tmod(sctp) -> diameter_sctp;
  tmod(tcp)  -> diameter_tcp.
      
  lp(M, Ref, T) ->
      L = [N || {listen, N, _} <- M:ports(Ref)],
      if [] /= L orelse T =< 1 ->
  
negative.code:     R = down(MRef),
      recvl(L, Ref, Fun, acc(R, Ref, F, Fun, Acc)).
  
  %% ---------------------------------------------------------------------------
  %% scramble/1
  %%
  %% Sort a list into random order.
  