It's kind of funny that you post this now I am taking
comparitive programming languages right now and we are covering lisp
you have piqued my curiosity now i would like to see the
program now here is the very fisrt lisp program i have written actually it is not even that
just a little function

(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
[download]

BigGuy "One World, one Web, one Program" - Microsoft promotional ad
"Ein Volk, ein Reich, ein Fuhrer" - Adolf Hitler