anchor.diff:     (if report (format t "BEGIN MAKE RANDOM MOVE FOR SOME PLAYER ...~%"))
      (setf move (select *avail*))
      (if report (format t "making random move ~A~%" move))
  -   (setf *avail* (remove move *avail))
  +   (setf *avail* (remove move *avail*))
      (if report (format t "END MAKE RANDOM MOVE FOR SOME PLAYER ~%"))
      move
   )
  
positive.code:    (setf results (mapcar #'probability (list w l d) (list n n n)))
     (if demo (format t "End gathering statistics~%"))
     (mapcar #'list '(w l d) results)
  )
  
  (defmethod statistics ((play function) (x player) (o player) (n number) (demo t) &aux w ld )
  
negative.code: )
  
  (defmethod random-play-and-learn (
     (x heuristic-learning-machine-player) (o random-machine-player) (verbose t)
     &aux p result
     )
     (setf p (random-play x o verbose))
  