anchor.diff:  (defmacro run-evos (num lon lock)
     `(dotimes (i ,num)
        (setq nets (nth (random (length ,lon)) ,lon))
  -     (run-evo nets (random 10) 2 ,lock)
  -     )
  -  )
  +     (run-evo nets (random 10) 2 ,lock)))
  
positive.code: (defmacro prep-nets (num)
    `(read-nets (subseq *lon* 0 ,num)))
  
  (defmacro run-evo (nets gens fronts file-lock)
    `(mp:process-run-function (concatenate 'string "EVO-" (write-to-string (length ,nets))
                                           "-"
                                           (write-to-string ,gens)
  
negative.code:                   (white-p-network  nil)
                    (black-v-network  nil)
                    (white-v-network  nil)
                    (return-game? nil)
                    (filename nil)
                    (verbose? nil)
                    )
  
    ;; Record a random board state from the game along with who won the game
  