(module list mzscheme
  (require (all-except (lib "list.ss" "srfi" "1")
                       fold fold-right first second third fourth fifth sixth seventh eighth
                       remove last-pair filter)

           ;; We'll favor the mzscheme list.ss implementations of these:
           (rename (lib "list.ss" "srfi" "1") s:fold fold)
           (rename (lib "list.ss" "srfi" "1") s:fold-right fold-right)
           (rename (lib "list.ss" "srfi" "1") s:first first)
           (rename (lib "list.ss" "srfi" "1") s:second second)
           (rename (lib "list.ss" "srfi" "1") s:third third)
           (rename (lib "list.ss" "srfi" "1") s:fourth fourth)
           (rename (lib "list.ss" "srfi" "1") s:fifth fifth)
           (rename (lib "list.ss" "srfi" "1") s:sixth sixth)
           (rename (lib "list.ss" "srfi" "1") s:seventh seventh)
           (rename (lib "list.ss" "srfi" "1") s:eighth eighth)
           (rename (lib "list.ss" "srfi" "1") s:remove remove)
           (rename (lib "list.ss" "srfi" "1") s:last-pair last-pair)
           (rename (lib "list.ss" "srfi" "1") s:filter filter)
           (lib "list.ss")

           ;; This ought to have been provided by list.ss:
           (only (lib "etc.ss") build-list))

  (provide (all-from (lib "list.ss" "srfi" "1"))
           (all-from (lib "list.ss"))
           build-list))