anchor.diff:  %%             collect(Count - 1)
       end.
   
  +-spec tester_fast_paxos(CountAcceptors::pos_integer(), Count::pos_integer(), Prefix::string()) -> ok.
   tester_fast_paxos(CountAcceptors, Count, Prefix) ->
       %% Count = 10,
       CountProposers = 1,
  
positive.code:     unittest_helper:end_per_suite(Config),
      ok.
  
  %% make proposers, acceptors, and learners
  make(P, A, L, Prefix) ->
      NumMDs = lists:max([P,A,L]),
      [ msg_delay:start_link({Prefix, X}) || X <- lists:seq(1,NumMDs)],
      Ps = [ comm:make_global(element(2, proposer:start_link({Prefix, X})))
             || X <- lists:seq(1,P)],
      As = [ comm:make_global(element(2, acceptor:start_link({Prefix, X})))
             || X <- lists:seq(1,A)],
      Ls = [ comm:make_global(element(2, learner:start_link({Prefix, X})))
             || X <- lists:seq(1,L)],
      {Ps, As, Ls}.
  
  collector(Count, Owner) ->
      spawn(fun() ->
                    collect(Count),
                    Owner ! done
            end).
  
  collect(0) ->
      ok;
  collect(Count) ->
  
negative.code: 
      Collector = comm:make_global(collector(Count, self())),
  
      _ = spawn(fun() ->
                        [ learner:start_paxosid(hd(Learners), Id, Majority, Collector, chocolate_chip_cookie)
                            || Id <- lists:seq(1, Count)]
                end),
      _ = spawn(fun() ->
                        [ acceptor:start_paxosid(X, Id, Learners)
                            || X <- Acceptors,  Id <- lists:seq(1, Count)]
             end),
      _ = spawn(fun() ->
                        [ proposer:start_paxosid(hd(Proposers), Id, Acceptors,
                                                 prepared, Majority, CountProposers)
                            || Id <- lists:seq(1, Count)]
                end),
      receive done -> ok
      end.
  
  test_fast_acceptors_4(_Config) ->
      Count = 10000,
  