anchor.diff:                       Try 'help eliza' for more information."
                         (eliza-mode *bot*)))))
   
  -(defun translate (string alist)
  +(defun replace-words (string alist)
     "take a string and replace any (key, value) in alist"
     (let ((words (split "\\s+" string)))
       (loop for word in words
  
positive.code: 
  (defcommand - ("(.+)" string)
    "Syntax: '- <string>' - Test Eliza."
    (respond-to *bot* (preprocess string)))
  
  (defcommand reflect ("(.+)" string)
    "Syntax: 'reflect <string>' - Tests Eliza's pronoun reflector."
  
negative.code: 				 ("it's" . "it is") ("that's" . "that is")))
  
  (defun preprocess (string)
    (replace-words string *preprocessings*))
  
  (defmessage respond (bot string regexen))
  (defreply respond ((bot (proto 'eliza-bot)) string regexen)
  