(defn compute-between
  [f]
  (fn [rf]
    (let [rf ((drop 1) rf)
          p (volatile! 0)]
      (completing
        (fn [acc v]
          (let [p0 @p]
            (vreset! p v)
            (rf (rf acc (f p0 v)) v)))))))