anchor.diff:                 (setf *nr-random-moves-wins-by-hmp* (+ 1 *nr-random-moves-wins-by-hmp*))
               )
               ((eq *most-recent-hmp-move* 'heuristic)
  -               (setf *nr-heuristic-move-wins-by-hmp* (+ 1 *nr-heuristic-moves-wins-by-hmp*))
  +               (setf *nr-heuristic-move-wins-by-hmp* (+ 1 *nr-heuristic-move-wins-by-hmp*))
               )
            )
         )
  
positive.code:    (setf *nr-random-moves-by-hmp* 0)
     (setf *nr-heuristic-moves-by-hmp* 0)
     (setf *nr-random-moves-wins-by-hmp* 0)
     (setf *nr-heuristic-moves-wins-by-hmp* 0)
     (setf x (make-instance 'heuristic-machine-player :name 'hm))
     (add-rules x nr-rules)
     (display x)
  
negative.code:       *nr-random-moves-by-hmp* *nr-heuristic-moves-by-hmp*
     )
     (format t "random move wins = ~A and heuristic move wins = ~A~%"
        *nr-random-moves-wins-by-hmp* *nr-heuristic-move-wins-by-hmp*
     )
     nil
  )
  