Получить списки и символы из заданого списка

(cons (CAR(CAR(QUOTE((A (B C))(D (E) K) L)))) (cons (CAR(CAR(CDR(CAR(QUOTE((A (B C))(D (E) K) L)))))) (cons (CAR(CDR(CAR(CDR(CAR(QUOTE((A (B C))(D (E) K) L) nil))))))    )))

> (car (cddadr '((a (b c)) (d (e) k) l)))
K

> (car (cadadr '((a (b c)) (d (e) k) l)))
E

> (cons (caar '((a (b c)) (d (e) k) l)) (cadar '((a (b c)) (d (e) k) l)))
(A B C)

(setq *list* '((A (B C)) (D (E) K) L))
 
==> ((A (B C)) (D (E) K) L)
 
;; Создана глобальная переменная *list*
 
(defun make-k (lst)
  (caddr (cadr lst)))
 
==> MAKE-K
 
(make-k *list*)
 
==> K
 
(defun make-e (lst)
  (caadr (cadr lst)))
 
==> MAKE-E
 
(make-e *list*)
 
==> E
 
(defun make-abc (lst)
  (cons (caar lst) (cadar lst)))
 
==> MAKE-ABC
 
(make-abc *list*)
 
==> (A B C)
 
(defun make-dkl (lst)
  (cons (car (cadr lst)) (cons (caddr (cadr lst)) (list (caddr lst)))))
 
==> MAKE-DKL
 
(make-dkl *list*)
 
==> (D K L)
 
(defun make-cak (lst)
  (list (cadr (cadr (car lst))) (caar lst) (caddr (cadr lst))))
 
==> MAKE-CAK
 
(make-cak *list*)
 
==> (C A K)

> (cons (caadr '((a (b c)) (d (e) k) l)) (cons (car (cddadr '((a (b c)) (d (e) k) l))) (cddr '((a (b c)) (d (e) k) l))))
(D K L)

> (cons (cadar '((a (b c)) (d (e) k) l)) (cddadr '((a (b c)) (d (e) k) l)))
((B C) K)

> (cons (car (cdadar '((a (b c)) (d (e) k) l))) (cons (caar '((a (b c)) (d (e) k) l)) (cddadr '((a (b c)) (d (e) k) l))))
(C A K)