slime/bin/cxr.slime

(define cons pair)
(define car  first)
(define cdr  rest)

(define (caar seq)
  (car (car seq)))

(define (cddr seq)
  (cdr (cdr seq)))

(define (cadr seq)
  (car (cdr seq)))

(define (cdar seq)
  (cdr (car seq)))

(define (caaar seq)
  (car (caar seq)))

(define (caadr seq)
  (car (cadr seq)))

(define (cadar seq)
  (car (cdr (car seq))))

(define (caddr seq)
  (car (cddr seq)))

(define (cdaar seq)
  (cdr (caar seq)))

(define (cdadr seq)
  (cdr (car (cdr seq))))

(define (cddar seq)
  (cdr (cdar seq)))

(define (cdddr seq)
  (cdr (cddr seq)))