anchor.diff:  -define(NUM_LISTINGS, 5).
   -define(NUM_BROKERS, 3).
   -define(MAX_SHARES_PER_TRANSACTION, 10).
  -
   -define(LOG_FIELD_DELIMITER, "\t").
  -
   -define(PATH_DIR__DATA, "data").
   -define(PATH_FILE__LOG,
       string:join([?PATH_DIR__DATA, "transactions.log"], "/")
   ).
   
   
  -%%%----------------------------------------------------------------------------
  -%%% Controlls
  -%%%----------------------------------------------------------------------------
  -
  +%%============================================================================
  +%% Controlls
  +%%============================================================================
  +
  +%%-----------------------------------------------------------------------------
  +%% Function : start/0
  +%% Purpose  : Starts the simulation.
  +%%-----------------------------------------------------------------------------
   start() ->
   
       % Generate listings
  
positive.code:     lists:nth(Element, List).
  
  
  %% Reseed pseudorandom number generator
  reseed() ->
      random:seed(timehash(), timehash(), timehash()).
  
  
  %% Generates a Unix timestamp float
  timestamp() ->
      [Mega, Sec, Micro] = [integer_to_list(I) || I <- tuple_to_list(now())],
      Seconds = string:join([Mega, Sec], ""),
  
negative.code:     {NewPortfolio, NewTransactions}.
  
  
  %%-----------------------------------------------------------------------------
  %% Function : random_symbol/0
  %% Purpose  : Generates a random stock symbol.
  %%-----------------------------------------------------------------------------
  random_symbol() ->
      CharPool = "ABCDEFGHIJKLMNOPQRSTUVWXYZ",
      LenPool = [1, 2, 3, 4],
  