(define cadr

(lambda (lst)
  (car (cdr lst))))

(define cddr

(lambda (lst)
  (cdr (cdr lst))))