Name: Anonymous 2014-06-29 19:50
What's bad about Python?
(define (caar x) (car (car x)))
(define (cadr x) (car (cdr x)))
(define (cdar x) (cdr (car x)))
(define (cddr x) (cdr (cdr x)))
(define (caaar x) (car (caar x)))
(define (caadr x) (car (cadr x)))
(define (cadar x) (car (cdar x)))
(define (caddr x) (car (cddr x)))
(define (cdaar x) (cdr (caar x)))
(define (cdadr x) (cdr (cadr x)))
(define (cddar x) (cdr (cdar x)))
(define (cdddr x) (cdr (cddr x)))
(define (caaaar x) (car (caaar x)))
(define (caaadr x) (car (caadr x)))
(define (caadar x) (car (cadar x)))
(define (caaddr x) (car (caddr x)))
(define (cadaar x) (car (cdaar x)))
(define (cadadr x) (car (cdadr x)))
(define (caddar x) (car (cddar x)))
(define (cadddr x) (car (cdddr x)))
(define (cdaaar x) (cdr (caaar x)))
(define (cdaadr x) (cdr (caadr x)))
(define (cdadar x) (cdr (cadar x)))
(define (cdaddr x) (cdr (caddr x)))
(define (cddaar x) (cdr (cdaar x)))
(define (cddadr x) (cdr (cdadr x)))
(define (cdddar x) (cdr (cddar x)))
(define (cddddr x) (cdr (cdddr x)))
(define (caaaaar x) (car (caaaar x)))
(define (caaaadr x) (car (caaadr x)))
(define (caaadar x) (car (caadar x)))
(define (caaaddr x) (car (caaddr x)))
(define (caadaar x) (car (cadaar x)))
(define (caadadr x) (car (cadadr x)))
(define (caaddar x) (car (caddar x)))
(define (caadddr x) (car (cadddr x)))
(define (cadaaar x) (car (cdaaar x)))
(define (cadaadr x) (car (cdaadr x)))
(define (cadadar x) (car (cdadar x)))
(define (cadaddr x) (car (cdaddr x)))
(define (caddaar x) (car (cddaar x)))
(define (caddadr x) (car (cddadr x)))
(define (cadddar x) (car (cdddar x)))
(define (caddddr x) (car (cddddr x)))
(define (cdaaaar x) (cdr (caaaar x)))
(define (cdaaadr x) (cdr (caaadr x)))
(define (cdaadar x) (cdr (caadar x)))
(define (cdaaddr x) (cdr (caaddr x)))
(define (cdadaar x) (cdr (cadaar x)))
(define (cdadadr x) (cdr (cadadr x)))
(define (cdaddar x) (cdr (caddar x)))
(define (cdadddr x) (cdr (cadddr x)))
(define (cddaaar x) (cdr (cdaaar x)))
(define (cddaadr x) (cdr (cdaadr x)))
(define (cddadar x) (cdr (cdadar x)))
(define (cddaddr x) (cdr (cdaddr x)))
(define (cdddaar x) (cdr (cddaar x)))
(define (cdddadr x) (cdr (cddadr x)))
(define (cddddar x) (cdr (cdddar x)))
(define (cdddddr x) (cdr (cddddr x)))