Select Code to Download

(let ((g (* 2 (or (gethash word good) 0)))       
      (b (or (gethash word bad) 0)))    
...
          (min .99 (float (/ (min 1 (/ b nbad))                       
+             
                             (+ (min 1 (/ g ngood))                   
+                
                             (min 1 (/ b nbad)))))))))

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