(defn chunk-at-seq [ps coll]
  (lazy-seq
    (when-let [ps (seq ps)]
      (when-let [s (seq coll)]
        (cons (take (first ps) s)
              (split-at-list (rest ps) (drop (first ps) s)))))))

(defn f
   [data]
   (let [foo,bar,baz,baz2,foo-2] (split-at-list [4 4 1 1 4])]
     ...))