how can the multiple iteration be simplified?

alg.clj

;; [1 2 3 4] -> [[[] [1 2 3 4]] [[1] [2 3 4]] [[2 3] [3 4]] ... [[1 2 3 4] []]]
(defn sublists [xs]
  (map (fn [i] [(take i xs) (drop i xs)])
       (range (inc (count xs)))))

(defn gist-me [xs]
  (map (fn [[preds succs]]
	 {:preds (reduce + preds) ;; image costly reduction function
	  :succs (reduce * (reverse succs))}) ;; imagine costly reduction function
       (sublists xs)))