anchor.diff:  			      ("mines" . "yours") ("yours" . "mine")
   			      ("me" . "you") ("you" . "me")))
   
  -(defun reflect (str)
  -  (translate str *reflections*))
  +(defun reflect (string)
  +  (translate string *reflections*))
   
   (defun respond (string regexen)
     "takes the string, checks through the regexes until a match is made
  
positive.code:   '(("hello" ("go away"))
      ("my name is (\\w+)" ("hello $0"
  			  "greetings $0"))
  
  ;;psychoanalysis
      ("I need (.+)" ("Why do you need $0?"
  		    "Would it really help to get $0?"))
      ("I dreamt (that|about|)(.+)" ("You dream $0 $1 often then?"
  
negative.code:     ("(tard|ass)" ("no, you're the $0"))
      ("die" ("no, you die"))
      ("you suck" ("your mum sucks"))
      ("phrik" ("screw phrik"))
      ("(.*)" ("Why do you say that $0\?" "What do you mean when you say that $0\?"
  	     "What are your motives behind saying such a thing\?"
  	     "I think it's clear that you're full of shit when you say that $0."))))
  
  (defun respond-to (string)
    (respond string *eliza-responses*))
  
  (defcommand - ("(.+)" string)
    (respond-to string))