Помогите срочно решить задачу по рекурсии!!!! Очень нужно!!!!

Получая, в качестве исходного, любой одноуровневый список вида (a b с d e f g h i j k l m n) образовать результирующий список вида ((a) (b c) (d e f ) (g h i j)), то есть сгруппировать элементы списка, увеличивая размер каждой последующей группы на 1 элемент.

(defun foo1(L)

(labels ((ret (L cur-L n cur-n overal)

		 (cond

		   ((null L) (append overal (list cur-L)))

		   ((= 0 cur-n) (ret L nil (1+ n) (1+ n) (append overal (list cur-L))))

		   (T (ret (cdr L) (append cur-L (list (car L))) n (1- cur-n) overal)))))

	(ret L nil 1 1 nil)))