 
 (defn make-monotonic
   "move through a collection `coll` picking up the min or max values, depending
-  on the value of `comparator` which can be either `min` or `max`."
+  on the value of `comparator` which can be either `min` or `max`.  This is very
+  similar, I think, to the `reduce` function, but with side effects that print
+  into a vector."
   [comparator coll]
   (reduce (fn [acc val]
             (conj acc

  (let [all-ts (apply vector t-series cofactors)]
    {:reference (flatten (estimate-thread ref-pd ref-pd all-ts))
     :for-est  (estimate-thread start-pd end-pd all-ts)}))

          []
          coll))

;; WHOOPBANG

;; The following is a routine, under the header WHOOPBANG,
;; which collects the greatest short-term drop in a preconditioned and
