anchor.diff:          *hsa2* (make-instance 'ahq:<hordq> :features *simple-featurizer-2*)
           *hsa3* (make-instance 'ahq:<hordq> :features *simple-featurizer-3*)))
   
  +(defun initialize-random-algorithms ()
  +  (setf *random-smdpq* (alisp-smdpq:make-smdpq-alg :hist-out-dir "Temp/")
  +        *random-hordq* (make-instance 'ahq:<hordq>)
  +        *random-gs* (alisp-gold-standard:make-alisp-gold-standard-learning-alg)
  +        *random-hsa0* (make-instance 'ahq:<hordq> :features *simple-featurizer-0*)
  +        *random-hsa1* (make-instance 'ahq:<hordq> :features *simple-featurizer-1*)
  +        *random-hsa2* (make-instance 'ahq:<hordq> :features *simple-featurizer-2*)
  +        *random-hsa3* (make-instance 'ahq:<hordq> :features *simple-featurizer-3*)))
  +
   (defun algorithm-for (name)
     (ecase name
       ((smdpq) *smdpq*)
  
positive.code: (defvar *hsa2*)
  (defvar *hsa3*)
  
  (defun initialize-environment ()
    (setf *env* (make-new-environment)))
  
  
negative.code:     ((hordq-a-1) *hsa1*)
      ((hordq-a-2) *hsa2*)
      ((hordq-a-3) *hsa3*)))
  
  (defun random-algorithm-for (name)
    (ecase name
      ((smdpq) *random-smdpq*)
      ((hordq) *random-hordq*)
      ((gold-standard) *random-gs*)
      ((hordq-a-0) *random-hsa0*)
      ((hordq-a-1) *random-hsa1*)
      ((hordq-a-2) *random-hsa2*)
      ((hordq-a-3) *random-hsa3*)))
  
  (defun algorithms ()
    (mapcar #'algorithm-for *algorithms*))
  
  (defun random-algorithms ()
    (mapcar #'random-algorithm-for *algorithms*))
  
  (defun explore-policies (&optional (show-advice t))
    (unless (boundp '*env*)
  