anchor.diff:  			     "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"
  
positive.code:     ("(tard|ass)" ("no, you're the $0"))
      ("die" ("no, you die"))
      ("you suck" ("your mum sucks"))
      ("phrik" ("screw phrik"))))
  
  				   
  (defun respond-to (string)
    (respond string *eliza-responses*))
  
  
  (defcommand - ("(.+)" string)
    (respond-to string))
negative.code:     ("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
      ("\\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"
  