(defmacro collecting (&body b)
  (let ((head (gensym "HEAD")) (tail (gensym "TAIL")))
    `(let* ((,head (list nil)) (,tail ,head))
       (flet ((collect (x) (setf (cdr ,tail) (list x) ,tail (cdr ,tail)))) ,@b (cdr ,head)))))