(defn rle
  "run length encode a sequence"
  [xs]
  (->>
    xs
    (partition-by identity)
    (map #({:run  (count %)
            :item (first %)}))))