(define-handler (privmsg-event event) (:modulevar markov)
  (when (char= (aref (channel event) 0) #\#)
    (unless (char= (aref (message event) 0) #\!)
      (learn markov (message event)))

    (when (< (random 100) (probability markov))
      (let ((wordlist (split-sequence:split-sequence #\Space (message event) :remove-empty-subseqs T)))
        (when (cdr wordlist)
          (let ((response (generate-string markov (first wordlist) (second wordlist))))
            (when (and response (not (string= (message event) response)))
              (respond event "~a" response))))))))