anchor.diff:     (format t "~A " (first rule))
      (format t "~A~%" (second rule))
      (format t "~A " (third rule))
  -   (format t "~A~%" (forth rule))
  +   (format t "~A~%" (fourth rule))
      nil
   )
   
  
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:       )
     )
     (setf *avail* (remove move *avail*))
     (if report (format t "end heuristic player move~%"))
     move
  )
  
  