Задача на LISPe

[hunter03]

Здравствуйте, помогите пожалуйста решить задачу:
Есть список вида:
((1(2 3)4)(5 6 (7 8 9))(10 (11 12 13)(14 15 16)))
необходимо его преобразовать в вид:
((1(2)4)(5 6(7))(10(11)(14)))

Вот что вышло, помогите исправить ошибки...

defun vvod() (progn (setq x (progn (princ "input matrix as one list") (terpri) (read)))))

(defun res () (progn 
(setq y x)
(setq x ())
(setq f ())
b1

(setq z (car y))
(go b2)

b2 
(cond ( (not (atom(car z))) (progn ( setq f (append f (list (caar z)))) (setq z (cdr z)) (cond ((not (null z)) (go b2))) )))
( cond ((not (null z)) (progn (setq f (append f (list(car z)))) (setq z (cdr z)) (cond ((not (null z)) (go b2))) ))) 
(t (go m1))

m1

(setq x (append x f))
(setq f ())
(setq y (cdr y))

(cond ((not (null y)) (go b1))) ))

[netrino]

Честно говоря, не понял, что тут написано. Старайтесь оформлять код, ибо такое читать совершенно невозможно. И вообще, по-моему, можно сделать проще:

(defun input-list ()
    (format t "~a" "Input matrix as one list: ")
    (read))

(defun transform (in-list)
  (let ((out-list nil))
    (dolist (sublist in-list)
      (let ((out-sublist nil))
	(dolist (element sublist)
	  (if (atom element)
	      (push element out-sublist)
	      (push (list (car element)) out-sublist)))
	(push (reverse out-sublist) out-list)))
    (reverse out-list)))

[hunter03]

пишет ошибки на "dolist" и "sublist"

[Kingdom_Reborn]

(DEFUN V (L)
	(COND
		((ATOM L) NIL)
		((NOT (ATOM (CDAR L))) (CONS (LIST (CAAR L)) (V (CDR L))))
		(T (CONS (CAAR L) (V (CDR L))))))
(DEFUN W (L)
	(COND
		((ATOM L) NIL)
		(T (CONS  (V (CAR L)) (W (CDR L))))))	
(SETQ L '((1 (2 3) 4)(5 6 (7 8 9))(10 (11 12 13)(14 15 16))))
(PRINT (W L))