anchor.diff:  
   stop() ->
       MaxBrokers = 3,
  -    Brokers = [
  -        list_to_atom(string:join(["broker", integer_to_list(I)], "_")) ||
  -        I <- lists:seq(1, MaxBrokers)
  -    ],
  +    Brokers = atoms_sequence("broker", "_", 1, MaxBrokers),
   
       lists:foreach(fun(Broker) -> Broker ! stop end, Brokers),
       ticker_proc ! stop.
  
positive.code: %%%----------------------------------------------------------------------------
  ticker(Listings, Interval) ->
      MaxBrokers = 3,
      Brokers = [
          list_to_atom(string:join(["broker", integer_to_list(I)], "_")) ||
          I <- lists:seq(1, MaxBrokers)
      ],
  
      receive
          stop ->
  
negative.code:     )),
  
      lists:foreach(
          fun(BrokerName) ->
              register(BrokerName, spawn(market, broker, []))
          end,
          atoms_sequence("broker", "_", 1, MaxBrokers)
      ),
  
      Interval = 1000,
  