anchor.diff:  		       "Tell me more about your family"))
       ("I want (.+)" ("Why would anyone want $a0"
   		    "Yes, that would be nice"))
  +    ("I like (.+)" ("I like $a0 too!"))
       ("I demand (.+)" ("oh, you *demand* do you?"))
       ("are you (.+)" ("And if I were $0 - what then?"
   		     "Why does it matter?"
  
positive.code:     ("how (was|is|are|were) ([\\w ]+) (\\w+ing)" ("$1 $0 $2 great"
  						  "$1 $0 $2 meh"
  						  "$1 $0 $2 ok I guess"))
      ("how (was|is|are|were) ([\\w ]+)" ("$1 $0 great"))
  
      ;; 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"
  			     "well since $0 $1 here, maybe you could leave"))
      ("(tard|ass)" ("no, you're the $0"))
      ("die" ("no, you die"))
      ("you suck" ("your mum sucks"))
      ("phrik" ("screw phrik"))
  
      ;; clutch at straws
  
      ("interesting" ("well, YOU are not interesting"))
      ("hate" ("...and I hate you"))
  
      ;; fine, give up, DEFLECT IT
      ("(.*)" ("Why do you say that $0\?" "What do you mean when you say that $0\?"
  
negative.code:   (respond-to (preprocess string)))
  
  (defcommand reflect ("(.+)" string)
    "swaps 1st and 2nd person in the accusative case"
    (reflect string))
  
  (defcommand preprocess ("(.+)" string)
    "preprocesses the string - i.e. normalise abbreviations"
    (preprocess string))