anchor.diff:        )
      )
      (setf *avail* (remove move *avail*))
  -   (if report format t "end heuristic player move~%")
  +   (if report (format t "end heuristic player move~%"))
      move
   )
   
  
positive.code:    (if (null rule)
        (let ()
           (setf move (select *avail*))
           (setf *nr-random-moves-by-hmp* (+ 1 *nr-random-moves-by-hmp))
           (setf *most-recent-hmp-move* 'random)
           (if report (format t "making a random move ~A since no rule is applicable.~%" move))
        )
  
negative.code: (defmethod make-rule ( (l list) )
     (setf if-part (list 'prefix 'of l 'matches 'the 'play 'so 'far))
     (setf then-part (list 'select 'move 'from l))
     (list 'if if-part 'then then-part)
  )
  
  (defmethod add-rule ((p heuristic-machine-player) (l list))
  