(let ((prod (apply #'* probs)))   
  (/ prod (+ prod (apply #'* (mapcar #'(lambda (x) (- 1 x))                                      
                                     probs)))))