anchor.diff:  
   (defvar *more* "lulz")
   (add-command "think" (lambda (bot args sender channel)
  -		       (think bot channel 2)))
  +                       (think bot channel 2)))
   (add-command "echo" (lambda (bot args sender channel)
                        (send-msg bot channel args)))
   (add-command "ping" (lambda (bot args sender channel)
  
positive.code:                          (format nil "the time is GMT ~3$ ks." (get-ks-time)))))
  
  (add-command "memo" (lambda (bot args sender channel)
  			    (destructuring-bind (recipient memo)
  				  (split "\\s+" args :limit 2)
  			      (progn
  				(add-memo recipient memo sender)
  				(send-msg bot channel 
                                            (format nil "tada! Added memo for ~A. ~
                                                         I'll let them know next time they speak"
                                                    recipient))))))
  
  (defvar *prepositions*
    '("aboard"  "about"  "above"  "across"  "after"  "against"  "along"  "among"  "around"  "as"   "at"
      "before"  "behind"   "below" "beneath" "beside"  "between"  "beyond"  "but" "except"  "by"  
      "concerning"  "despite"  "down"  "during"  "except" "for"  "from"  "in"  "into"  "like" "near"
      "of"  "off"  "on"  "onto"  "out"  "outside"  "over"  "past"  "per"  "regarding"  "since"  "through"
      "throughout"  "till"  "to"  "toward"  "under" "underneath"  "until"  "up"   "upon"  "with"  
      "within" "without"))
  (defvar *conjunctions*
    '("for" "and" "nor" "but" "or" "yet" "so"))
  (defvar *articles*
    '("an" "a" "the"))
  (defun scan-for-more (s)
    (let ((str (nth-value 
                1 (scan-to-strings "[MORE|MOAR]\\W+((\\W|[A-Z0-9])+)([A-Z0-9])($|[^A-Z0-9])" s))))
      (or
       (and str
  
negative.code:   (defun get-memo (recipient)
      (multiple-value-bind (memo hasp)
          (gethash recipient memo-table)
        (if hasp
            memo
            nil)))
  
    (defun get-and-remove-memo (recipient)
      (let ((memo (get-memo recipient)))
        (remove-memo recipient)
        memo))
  
    (defun erase-all-memos ()
      (clrhash memo-table))
    )
  