e.clj

(defn my-fac [num]
   (if (zero? num)
      1
      (reduce * (range 1 (inc num)))))

(defn get-input []
    (let [num-tests (read-line)
          num-tests-as-num (Integer/parseInt num-tests)
          the-test-cases-as-num (for [a-case (range 0 num-tests-as-num)]
                                  (Double/parseDouble (read-line)))
          the-Es (for [a-case the-test-cases-as-num]
                   (reduce + (for [counter (range 0 10)]
                                (/ (Math/pow a-case counter) (my-fac counter)))))]
       (doseq [an-e the-Es]
          (println an-e))))

(get-input)