XiCAD & etc...

(defun c:xx ( / lst)
   (setq lst (list '(a b) '(c d) '(e f) '(g h)))
   (princ "\n")
   (princ (caar lst))
   (princ "\n")
   (princ (cadar lst))
   (princ "\n")
   (princ (caadr lst))
   (princ "\n")
   (princ (cadadr lst))
   (princ "\n")
   (princ (caaddr lst))
   (princ "\n")
   (princ (cadr (caddr lst)))
   (princ "\n")
   (princ (car (cadddr lst)))
   (princ "\n")
   (princ (cadr (cadddr lst)))
   (princ "\n")
   (princ (car lst))
   (princ "\n")
   (princ (cadr lst))
   (princ "\n")
   (princ (caddr lst))
   (princ "\n")
   (princ (cadddr lst))
   (princ)
)