(defun pick-new (lst el)
  (if (eql (car (car lst)) el)
      (cons (cons el (car lst)) (cdr lst))
      (cons (list el) lst)))

(defun pack (lst)
  (reverse (reduce #'pick-new lst :initial-value nil)))