(defun prod (a b)
  "Faz o produto dos valores de entrada"
    (* a b))

(defun f (n)
  "Resolve o problema da probabilidade"
  (loop for i from 0 below n
       :sum (/ n (- n i))))