anchor.diff:      broker(Portfolio, Transactions).
   
   broker(Portfolio, Transactions) ->
  +    {registered_name, ProcName} = erlang:process_info(self(), registered_name),
  +    CashBalance = lists:sum(Transactions),
       receive
           {ticker, {prices, Prices}} ->
               reseed(),
  
positive.code: -define(NUM_LISTINGS, 5).
  -define(NUM_BROKERS, 3).
  -define(TICKER_INTERVAL, 1000).
  -define(MAX_RANDOM_SLEEP, 100).
  
  
  %%%----------------------------------------------------------------------------
  
negative.code:             {NewPortfolio, NewTransactions} = transaction(
                  choice([buy, sell]), Symbol, Price, 1, Portfolio, Transactions
              ),
              NewCashBalance = lists:sum(NewTransactions),
              CashDelta = NewCashBalance - CashBalance,
              io:format("~p CASH DELTA:~p~n", [ProcName, CashDelta]),
              broker(NewPortfolio, NewTransactions);
          stop ->
              void;
  