anchor.diff:      CashBalance = lists:sum(Transactions),
       receive
           {ticker, {prices, Prices}} ->
  -            reseed(),
               {Symbol, Price} = choice(Prices),
               {NewPortfolio, NewTransactions} = transaction(
                   choice([buy, sell]), Symbol, Price, 1, Portfolio, Transactions
  
positive.code: 
  %% Pick and return a random element from a given list
  choice(List) ->
      Maximum = length(List),
      Element = random:uniform(Maximum),
      lists:nth(Element, List).
  
negative.code: start() ->
  
      % Generate listings
      Listings = sets:to_list(sets:from_list(
          [random_symbol() || _ <- lists:seq(1, ?NUM_LISTINGS)]
      )),
  