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


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

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

           [start end $]))


(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]
