anchor.diff:        *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*
  +      *nr-random-move-wins-by-hmp* *nr-heuristic-move-wins-by-hmp*
      )
      nil
   )
  
positive.code: (defmethod demo-heuristic-human ((nr-rules integer) &aux p x o)
     (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-move-wins-by-hmp* 0)
     (setf x (make-instance 'heuristic-machine-player :name 'hm))
     (add-rules x nr-rules)
  
negative.code:    ))
     (dolist (w wcond)
        (cond
           ((eq (length (intersection w _l)) 3)
              (return-from line t)
           )
        )
  