(defun find_alt_ans(parsed_list)

	(cond ((not (null (member (car parsed_list) items)))
		(setq item_color_ans_list (rassoc (car parsed_list) item_color))
		(format t "~%Could not find the item you asked for ")
		(format t "~%But I found the following")
              )
              (t 
		     (cond ((not (null (cdr parsed_list))) 
 			    (find_alt_ans (cdr parsed_list))
	                   )
			   (t 
			     (format t "~% Sorry...could not find the item you asked for in my database")
			   )
                     )

                )
	)
)