aop-r7rs/aop/2.sld

(define-library (aop 2)
  (import (scheme base))
  (export first second third fourth fifth)
  (begin
    (define (first l)
      (list-ref l 0))

    (define (second l)
      (list-ref l 1))

    (define (third l)
      (list-ref l 2))

    (define (fourth l)
      (list-ref l 3))

    (define (fifth l)
      (list-ref l 4))))