(defun multi-negative(alist)
	(cond
		((null alist) 1); null list return nil
		((and (numberp(car alist))
		(< (car alist) 0)
		(* (multi-negative (cdr alist)) (car alist))))
		(t (multi-negative(cdr alist)))	
	);cond
);defun