anchor.diff:  				 ("we'd" . "we would") ("we'll" . "we will")
   				 ("they'd" . "they would") ("they'll" . "they will")
   				 ("i've" . "I have") ("i'm" . "I am")
  -				 ("ima" . "I am going to")
  +				 ("ima" . "I am going to") ("wanna" . "want to")
  +				 ("gonna" . "going to")
   				 ("he's" . "he is") ("she's" . "she is") 
  -				 ("it's" . "it is")))
  +				 ("it's" . "it is") ("that's" . "that is")))
  +
   (defun preprocess (string)
     (translate string *preprocessings*))
   
  
positive.code: 			  "you would be $1"))
      ("my mother (.+)" ("Who else in your family $0 ?"
  		       "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?"))
  
negative.code:     ("(how|what|where|when|why|who) (.+)" ("$0 indeed"
  					   "I ask myself the same question"))
      ("can (\\w+) (.+)" ("I dunno. Can $0 $a1?"))
      ("(\\w+) (is|are|were|was) (.+)" ("correct"
  				    "some people think so"
  				    ,(defresp (build-string "REALLY? ~A ~A ~A?"
  							    (elt groups 0)
  							    (elt groups 1)
  							    (elt groups 2)))))
  
  
  
  