   ([x] (/ 1 x))
   ([x y] (divide* x y))
   ([x y & more]
-   (reduce1 / (/ x y) more)))
+   (reduce / (/ x y) more)))
 
 (defn -'
   "If no ys are supplied, returns the negation of x, else subtracts

  {:added "1.0"}
  [x] (inc* x))

(defn ^:private
  reduce1
  ([f coll]
   (let [s (seq coll)]
     (if s
       (reduce1 f (first s) (next s))
       (f))))
  ([f val coll]
   (let [s (seq coll)]

  ([x] (subtract* x))
  ([x y] (subtract* x y))
  ([x y & more]
   (reduce - (- x y) more)))

(defn <=
  "Returns non-nil if nums are in monotonically non-decreasing order,
