anchor.diff:      ("I suspect (.+)" ("I suspect *someone* is hiding something"
   		       "I more than suspect so"
   		       "I KNOW $0"))
  -
  -
       ("yes" ("orly?"
   	    "yup kk, sure"
   	    "well I'm glad we sorted that out"))
       ("orly" ("yarly"
   	     "btard"))
  -	  
  -;; sarcastic stuff
  +    ;; sarcastic stuff
       ("\\w+ (is|are) (fat|big|hot|awesome|win|sexy|ugly)" ("your mum is $1"))
       ("(\\w+) (is|are) here" ("oh great. I love $0"
   			     "$0 is annoying"
  
positive.code: 
  (in-package :sykobot)
  
  (defun translate (str alist)
    "take a string and replace any (key, value) in alist"
    (let ((words (split "\\s+" str)))
      (loop for word in words
            for y from 0
         when (alref word alist)
  	 do (setf (elt words y) (alref word alist)))
      (format nil "~{~A~^ ~}" words)))
  
  (defun substitute-groups (str groups)
    "take a string containing $1 $2 etc and substitute with the coresponding element"
    (let ((words (split "\\s+" str)))
      (loop for word in words
         for y from 0
         when (equalp (char word 0) #\$)
  
negative.code: 			     "Is $0 worth remembering"))
      ("if (.+) then (.+)" ("Do you really think it's likely that $0"
  			  "Well, it sure would be awesome if $1"))
      ("my mother (.+)" ("Who else in your family $0 ?"
  		       "Tell me more about your family"))
      ("I want (.+)" ("Why would anyone want $0"
  