T.O.S.S.

toss.el

(defun toss ()
  (/ (* (/ (/ (* complexity operating-cost)
              work-to-turn-off)
           1000.0)
        (+ security-risk accountability-risk))
     (* (/ active-users total-possible-users)
        (* total-possible-users future-growth))))

;; CLUES 1.0
(let ((complexity 3.0)
      (operating-cost 800.0)
      (work-to-turn-off 2.0)
      (security-risk 1.0)
      (accountability-risk 3.0)
      (active-users 2.0)
      (total-possible-users 10.0)
      (future-growth 1.0))
  (toss))
;; 2.4

;; Current CLUES
(let ((complexity 5.0)
      (operating-cost 2000.0)
      (work-to-turn-off 5.0)
      (security-risk 3.0)
      (accountability-risk 5.0)
      (active-users 20.0)
      (total-possible-users 2000.0)
      (future-growth 4.0))
  (toss))
;; 0.2