HackerRank evaluate e^x

eval ex.clj

(dotimes [n (read-string (read-line))]
   (let [x (read-string (read-line)),
        ex (fn [x] 
              (inc 
                (reduce + 
                    (map #(/ (reduce * (repeat % x)) 
                              (reduce * (range 1 (inc %)))
                          ) 
                     (range 1 10)
                    ) 
                )
              )
            )
        ]
   (println 
     (format "%.4f" 
       (float 
         (ex x)
       )
     )
   )
)