(define-library (scheme cxr)
  (export caaaaar)
  (begin 
    ;; Non-standard, this is just a placeholder
    (define (caaaaar lis)
      (car (car (car (car (car lis))))))))