            [start end $]))
 
 
-(defn token-prop-grouper4
+(defn tkn-prop-grouper4
   [pos-pairs start end]
   (if (empty? pos-pairs) {:last-start start :last-end end :pairs []}
       (let [{:keys [last-start last-end pairs]} pos-pairs]


(defn tkn-prop-grouper
  [triples]
  (token-prop-grouper5 (reduce token-prop-grouper2
                               {}
                               triples)))

(defn split-text-tag-coll
  [tokens]

          {}
          pairs))

(defn tkn-prop-grouper5
  [m]
  (reduce (fn [agg [a b c]]
            (if b
              (assoc-in agg
                        [a b]
                        (tkn-prop-grouper6 c))
              agg))
          {}
          (for [[k kv] m
