anchor.diff:  		     "Would you prefer it if I were $0"
   		     "wait, are YOU $0"))
   
  -    ("do you know about (.+)" (,(defresp
  -				 (let ((noun (elt groups 0)))
  +    ("(what )*do you know about (.+)" (,(defresp
  +				 (let ((noun (elt groups 1)))
   				   (if (has-fact bot noun)
   				       (build-string 
   					"Well I know that someone said '~A'"
  -					(get-fact bot (elt groups 0)))
  +					(get-fact bot noun))
   				       (random-elt
   					(list
   					 (build-string "Of course I know about ~A"
   						       noun)
  -					 "Nothing at all")))))))
  +					 (if (elt groups 0)
  +					     "Nothing at all"
  +					     "Not at all"))))))))
   
       ("perhaps (.+)" ("Why the uncertainty"
   		     "Of course $0"
  
positive.code: 	     "music is my life !"
  	     "do you play any instrument ?"))
  
  
      ;; clutch at straws
  
  
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)))))
  
  
  
  