anchor.diff:              % Pack transaction data
               TransactionData = #transaction{
                   timestamp = market_lib:timestamp(),
  -                broker = ProcName,
  +                broker = Name,
                   type = TransactionType,
                   symbol = Symbol,
                   shares = NumberOfShares,
  
positive.code:             % Print accumulated values to stdout
              NewPortfolioList = dict:to_list(NewPortfolio),
              CashBalance = lists:sum(CashFlow),
              io:format("~p PORTFOLIO:~p~n", [ProcName, NewPortfolioList]),
              io:format("~p CASH BALANCE:~p~n", [ProcName, CashBalance]),
              io:format("~n"),
  
              % Now do it all over again! :)
              broker(ProcName, NewPortfolio, NewCashFlow);
  
          stop ->
              void;
  
          Other ->
              io:format("WARNING! Unexpected message: ~p~n", [Other]),
              broker(ProcName, Portfolio, CashFlow)
      end.
  
  
  
negative.code: broker() ->
      Portfolio = dict:new(),
      CashFlow = [],
      {registered_name, Name} = erlang:process_info(self(), registered_name),
      broker(Name, Portfolio, CashFlow).
  
  
  %%-----------------------------------------------------------------------------
  %% Function : broker/3
  %% Purpose  : Receives current prices and either buys or sells.
  %%-----------------------------------------------------------------------------
  broker(Name, Portfolio, CashFlow) ->
      receive
          {ticker, {prices, Prices}} ->
  
  