    {:char-dist-unique (count char-dist)
     :char-dist-variance (->> char-dist stat/variance)
     :char-dist-mean (->> char-dist stat/mean double)}))
-
-;(char-dist-features "abcabc aabb aaaaaa abcabcabcabc abcdefgabcdefgabcdefg")
-
-

   [(keyword (format "lrs-length-%d" unique-idx)) 'numeric]])

(defn lrs-feature-metas
  "See [[lsr-features]]."
  [count]
  (concat [[:lrs-len 'numeric]
           [:lrs-unique-chars 'numeric]]

                        [(or occurs -1) (or length -1)])))
         (apply merge lrs-features))))

;; chararcter distribution
(defn char-dist-feature-metas
  "See [[char-dist-features]]."
