anchor.diff:  (define-module markov ()
     ((%probability :initarg :probability :initform 25 :accessor probability)
      (%ignored-users :initarg :ignored-users :initform () :accessor ignored-users)
  +   (%active-in :initarg :active-in :initform () :accessor active-in)
      (%registry :initarg :registry :initform (make-hash-table :test 'equal) :accessor registry))
     (:documentation "Simple markov chain module."))
   
  
positive.code: 
  (define-command (markov list-ignored) () (:authorization T :documentation "List all ignored users." :modulevar markov)
    (respond event "Ignored users: ~:[None~;~:*~{~a~^, ~}~]" (ignored-users markov)))
  
  (define-command (markov probability) (&optional new-value) (:authorization T :documentation "Set or view the probability of invoking markov." :modulevar markov)
    (when new-value
  
negative.code:       (setf (probability markov) (config-tree :markov :probability)))
    (if (config-tree :markov :ignored-users)
        (setf (ignored-users markov) (config-tree :markov :ignored-users)))
    (if (config-tree :markov :active-in)
        (setf (active-in markov) (config-tree :markov :active-in)))
    (with-open-file (stream *registry-file* :if-does-not-exist NIL)
      (when stream
        (setf (registry markov) (yason:parse stream))
  