anchor.diff:      )),
   
       lists:foreach(
  -        fun(I) ->
  -            register(
  -                list_to_atom(string:join(["broker", integer_to_list(I)], "_")),
  -                spawn(market, broker, [])
  -            )
  +        fun(BrokerName) ->
  +            register(BrokerName, spawn(market, broker, []))
           end,
  -        lists:seq(1, MaxBrokers)
  +        atoms_sequence("broker", "_", 1, MaxBrokers)
       ),
   
       Interval = 1000,
  
positive.code: 
  
  %%%----------------------------------------------------------------------------
  %%% Helper functions
  %%%----------------------------------------------------------------------------
  
  %% Generates a random stock symbol
  
negative.code: 
  stop() ->
      MaxBrokers = 3,
      Brokers = atoms_sequence("broker", "_", 1, MaxBrokers),
  
      lists:foreach(fun(Broker) -> Broker ! stop end, Brokers),
      ticker_proc ! stop.
  