(defun cadr (l) (car (cdr l)))
(defun caar (l) (car (car l)))
(defun caaar (l) (car (car (car l))))
(defun caaaar (l) (car (car (car (car l)))))
(defun cddr (l) (cdr (cdr l)))
(defun cdddr (l) (cdr (cdr (cdr l))))
(defun cddddr (l) (cdr (cdr (cdr (cdr l)))))