<> <> (defun null (l) (eq l nil)) (defun nthTail (n l) (do ((n n (minus n 1)) (l l (cdr l))) ((gt n 0) l) nil)) (defun cadr (l) (car (cdr l)))