(defun find_item_color (parsed_list)
	(cond ((not (null (assoc (car parsed_list) item_color)))
		
		(setq item_color_ans_list (assoc (car parsed_list) item_color))
		
		(cond ((null (member (rest item_color_ans_list) saved_parsed_list))
			(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_item_color (cdr parsed_list))
	                   )
                     )

                )
         )

)