list.ss
#lang scheme/base
(require (rename-in srfi/1/list
                    [fold s:fold]
                    [fold-right s:fold-right]
                    [first s:first]
                    [second s:second]
                    [third s:third]
                    [fourth s:fourth]
                    [fifth s:fifth]
                    [sixth s:sixth]
                    [seventh s:seventh]
                    [eighth s:eighth]
                    [ninth s:ninth]
                    [tenth s:tenth]
                    [last s:last])
         scheme/list)
(provide (all-from-out srfi/1/list)
         (all-from-out scheme/list))