(defun find_ques (parsed_list)
     (cond (( null parsed_list)  
            (format t "Sorry....cannot understand your question")
	    (format t "~%I can answer if you ask me about the blue, red boxes though!")
           )
           (t 
		(cond ((not (null (member (car parsed_list) question)))
			(setq ans_list (rest(assoc (car parsed_list) question_group)))
		      )
                      (t
			   (cond ((not (null (cdr parsed_list))) 
 			          (find_ques (cdr parsed_list))
			         )
				 (t
					(print "ERROR - your statement has no question")
				 )
                           )                            

		      )
                )
               
            )
       )
            






)