   (->> (deseasonalize ts)
        (windowed-apply ols-coefficient long-block)
        (windowed-apply average window)
-       (reduce min)))
-
-
+       (make-monotonic min)))
 
 ;; WHIZBANG
 

  [f window xs]
  (pmap f (partition window 1 xs)))

;; WHOOPBANG

;; The following is a routine, under the header WHOOPBANG,

         (map (partial lengthening-ts start-pd end-pd))
         (apply map long-trend))))


