(defn compart [pred coll]
  (loop [coll coll
         result []
         sub []]
    (if (seq coll)
      (let [item (first coll)]
        (if (pred item)
          (recur (rest coll) result (conj sub item))
          (recur (rest coll) (conj result sub) [])))
      (if (seq sub)
        (conj result sub)
        result))))