anchor.diff:  
   (define-command (markov ignore) (&rest nicks) (:authorization T :documentation "Add users to the ignore list." :modulevar markov)
     (dolist (nick nicks)
  -    (pushnew nick (ignored-users markov) :test #'string-equal))
  +    (pushnew nick (uc:config-tree :ignored-users) :test #'string-equal))
     (respond event "Users have been put on the ignore list."))
   
   (define-command (markov unignore) (&rest nicks) (:authorization T :documentation "Remove users from the ignore list." :modulevar markov)
  -  (setf (ignored-users markov) 
  -        (delete-if #'(lambda (nick) (find nick nicks :test #'string-equal)) (ignored-users markov)))
  +  (setf (uc:config-tree :ignored-users)
  +        (delete-if #'(lambda (nick) (find nick nicks :test #'string-equal)) (uc:config-tree :ignored-users)))
     (respond event "Users have been removed from the ignore list."))
   
   (define-command (markov list-ignored) () (:authorization T :documentation "List all ignored users." :modulevar markov)
  
positive.code: 
  (define-command (markov activate) (&optional channel server) (:authorization T :documentation "Activate markov learning and spouting for a channel." :modulevar markov)
    (let ((name (format NIL "~a/~a" (or server (name (server event))) (or channel (channel event)))))
      (pushnew name (active-in markov) :test #'string-equal)
      (respond event "Learning/Spouting now activated on ~a." name)))
  
  (define-command (markov deactivate) (&optional channel server) (:authorization T :documentation "Deactivate markov learning and spouting for a channel." :modulevar markov)
    (let ((name (format NIL "~a/~a" (or server (name (server event))) (or channel (channel event)))))
      (setf (active-in markov)
            (delete name (active-in markov) :test #'string-equal))
      (respond event "No longer learning/spouting on ~a." name)))
  
  (define-command (markov probability) (&optional new-value) (:authorization T :documentation "Set or view the probability of invoking markov." :modulevar markov)
    (when new-value
      (setf (probability markov) (parse-integer new-value :junk-allowed T)))
    (respond event "Probability: ~a" (probability markov)))
  
  (define-command (markov say) (&optional arg1 arg2) (:documentation "Let the bot say something." :modulevar markov)
    (if (and arg1 (not arg2)) (setf arg2 arg1 arg1 "!NONWORD!"))
  
negative.code:     (setf output (string-trim '(#\Space #\Tab #\Return #\Linefeed) output))
      (v:trace :markov "Generated string: ~a" output)
      (if (> (length (split-sequence:split-sequence #\Space output)) 0) output)))
  