          (< (count yield-nodes)
             (count prev-nodes)))))
 
-(defn refine-action-seq
+(defn seqs-to-refine
   [action-seq corpus]
   (let [action-segments (reductions
                          (fn [acc x]

    ;; the first one is a nil action at a nil
    ;; point
    (filter
     (fn [segment] (refine-segment? segment corpus))
     action-segments)))

(defn leaf-fix?
  [action-seq corpus]

                (fn [[u x]]
                  (:leaf? x))
                documents)]
    (< (count leaves)
       (count documents))))

(defn repair-leaf-fuck-up
  "Try to repair the leaf node yield
