(define-library (scheme red) (import (scheme base) (scheme box) (scheme case-lambda) (scheme char) (scheme charset) (scheme comparator) (scheme complex) (scheme cxr) (scheme ephemeron) (scheme eval) (scheme file) (scheme generator) (scheme hash-table) (scheme ideque) (scheme ilist) (scheme inexact) (scheme lazy) (scheme list-queue) (scheme list) (scheme load) (scheme lseq) (scheme process-context) (scheme read) (scheme repl) (scheme rlist) (scheme set) (scheme sort) (scheme stream) (scheme text) (scheme time) (scheme vector) (scheme write)) (export * + - ->char-set ... / < <= <=? =? > >= >=? >? _ abs acos alist->bag alist->hash-table alist-cons alist-copy alist-delete alist-delete! and angle any append append! append-map append-map! append-reverse append-reverse! apply asin assoc assq assv atan bag bag->alist bag->list bag->set bag->set bag-adjoin bag-adjoin! bag-any? bag-comparator bag-comparator bag-contains? bag-copy bag-count bag-decrement! bag-decrement! bag-delete bag-delete! bag-delete-all bag-delete-all! bag-difference bag-difference! bag-disjoint? bag-element-comparator bag-element-count bag-element-count bag-empty? bag-every? bag-filter bag-filter! bag-find bag-fold bag-fold-unique bag-fold-unique bag-for-each bag-for-each-unique bag-for-each-unique bag-increment! bag-increment! bag-intersection bag-intersection! bag-map bag-member bag-partition bag-partition! bag-product bag-product bag-product! bag-product! bag-remove bag-remove! bag-replace bag-replace! bag-search! bag-size bag-sum bag-sum bag-sum! bag-sum! bag-unfold bag-union bag-union! bag-unique-size bag-xor bag-xor! bag<=? bag=? bag>? bag? begin binary-port? boolean-hash boolean=? boolean? box box? break break! bytevector bytevector->generator bytevector-append bytevector-copy bytevector-copy! bytevector-length bytevector-u8-ref bytevector-u8-set! bytevector? caaaar caaadr caaar caadar caaddr caadr caar cadaar cadadr cadar caddar cadddr caddr cadr call-with-current-continuation call-with-input-file call-with-output-file call-with-port call-with-values call/cc car car+cdr case case-lambda cdaaar cdaadr cdaar cdadar cdaddr cdadr cdar cddaar cddadr cddar cdddar cddddr cdddr cddr cdr ceiling char->integer char-alphabetic? char-ci-hash char-ci<=? char-ci=? char-ci>? char-downcase char-foldcase char-hash char-lower-case? char-numeric? char-ready? char-set char-set->list char-set->string char-set-adjoin char-set-adjoin! char-set-any char-set-complement char-set-complement! char-set-contains? char-set-copy char-set-count char-set-cursor char-set-cursor-next char-set-delete char-set-delete! char-set-diff+intersection char-set-diff+intersection! char-set-difference char-set-difference! char-set-every char-set-filter char-set-filter! char-set-fold char-set-for-each char-set-hash char-set-intersection char-set-intersection! char-set-map char-set-ref char-set-size char-set-unfold char-set-unfold! char-set-union char-set-union! char-set-xor char-set-xor! char-set:ascii char-set:blank char-set:digit char-set:empty char-set:full char-set:graphic char-set:hex-digit char-set:iso-control char-set:letter char-set:letter+digit char-set:lower-case char-set:printing char-set:punctuation char-set:symbol char-set:title-case char-set:upper-case char-set:whitespace char-set<= char-set= char-upcase char-upper-case? char-whitespace? char<=? char=? char>? char? circular-list circular-list? close-input-port close-output-port close-port command-line comparator-check-type comparator-equality-predicate comparator-hash comparator-hash-function comparator-hashable? comparator-if<=> comparator-ordered? comparator-ordering-predicate comparator-register-default! comparator-test-type comparator-type-test-predicate comparator? complex? concatenate concatenate! cond cond-expand cons cons* cos count current-error-port current-input-port current-jiffy current-output-port current-second default-hash define define-record-type define-stream define-syntax define-values delay delay-force delete delete! delete-duplicates delete-duplicates! delete-file denominator digit-value display do dotted-list? drop drop-right drop-right! drop-while dynamic-wind eighth else emergency-exit end-of-char-set? environment eof-object eof-object? ephemeron-broken? ephemeron-datum ephemeron-key ephemeron? eq? equal? eqv? error eval even? every exact exact-integer-sqrt exact-integer? exact? exit exp expt features fifth file-error? file-exists? filter filter! filter-map find find-tail finite? first floor floor-quotient floor-remainder floor/ flush-output-port fold fold-right for-each force fourth gappend gcd gcombine gcons* gdelete gdelete-neighbor-dups gdrop gdrop-while generator generator->ideque generator->list generator->lseq generator->reverse-list generator->string generator->vector generator->vector! generator-any generator-count generator-every generator-find generator-fold generator-for-each generator-unfold get-environment-variable get-environment-variables get-output-bytevector get-output-string gfilter gindex gremove gselect gtake gtake-while gtree->itree gtree->tree guard hash hash-bound hash-by-identity hash-salt hash-table hash-table->alist hash-table-clear! hash-table-contains? hash-table-copy hash-table-count hash-table-delete! hash-table-difference! hash-table-empty-copy hash-table-empty? hash-table-entries hash-table-equivalence-function hash-table-exists? hash-table-find hash-table-fold hash-table-for-each hash-table-hash-function hash-table-intern! hash-table-intersection! hash-table-keys hash-table-map hash-table-map! hash-table-map->list hash-table-merge! hash-table-mutable? hash-table-pop! hash-table-prune! hash-table-ref hash-table-ref/default hash-table-set! hash-table-size hash-table-unfold hash-table-union! hash-table-update! hash-table-update!/default hash-table-values hash-table-walk hash-table-xor! hash-table=? hash-table? ideque ideque->generator ideque->list ideque-add-back ideque-add-front ideque-any ideque-append ideque-append-map ideque-back ideque-break ideque-count ideque-drop ideque-drop-right ideque-drop-while ideque-drop-while-right ideque-empty? ideque-every ideque-filter ideque-filter-map ideque-find ideque-find-right ideque-fold ideque-fold-right ideque-for-each ideque-for-each-right ideque-front ideque-length ideque-map ideque-partition ideque-ref ideque-remove ideque-remove-back ideque-remove-front ideque-reverse ideque-span ideque-split-at ideque-tabulate ideque-take ideque-take-right ideque-take-while ideque-take-while-right ideque-unfold ideque-unfold-right ideque-zip ideque= ideque? if ilist->list ilist-comparator ilist-tail imag-part include include-ci inexact inexact? infinite? input-port-open? input-port? integer->char integer? interaction-environment iota ipair->pair ipair-comparator iq itree->tree jiffies-per-second lambda last last-pair lcm length length+ let let* let*-values let-syntax let-values letrec letrec* letrec-syntax list list->bag list->bag! list->char-set list->char-set! list->generator list->ideque list->ilist list->rlist list->set list->set list->set! list->set! list->stream list->string list->text list->vector list-copy list-delete-neighbor-dups list-delete-neighbor-dups! list-index list-merge list-merge! list-queue list-queue-add-back! list-queue-add-front! list-queue-append list-queue-append! list-queue-back list-queue-concatenate list-queue-copy list-queue-empty? list-queue-first-last list-queue-for-each list-queue-front list-queue-list list-queue-map list-queue-map! list-queue-remove-all! list-queue-remove-back! list-queue-remove-front! list-queue-set-list! list-queue-unfold list-queue-unfold-right list-queue? list-ref list-set! list-sort list-sort! list-sorted? list-stable-sort list-stable-sort! list-tabulate list-tail list= list? load log lseq->generator lseq-any lseq-append lseq-car lseq-cdr lseq-drop lseq-drop-while lseq-every lseq-filter lseq-find lseq-find-tail lseq-first lseq-for-each lseq-index lseq-length lseq-map lseq-member lseq-memq lseq-memv lseq-realize lseq-ref lseq-remove lseq-rest lseq-take lseq-take-while lseq-zip lseq=? lseq? lset-adjoin lset-diff+intersection lset-diff+intersection! lset-difference lset-difference! lset-intersection lset-intersection! lset-union lset-union! lset-xor lset-xor! lset<= lset= magnitude make-bytevector make-comparator make-coroutine-generator make-default-comparator make-ephemeron make-eq-comparator make-equal-comparator make-eqv-comparator make-for-each-generator make-hash-table make-icar-comparator make-icdr-comparator make-improper-ilist-comparator make-iota-generator make-list make-list-comparator make-list-queue make-pair-comparator make-parameter make-polar make-promise make-range-generator make-rectangular make-rlist make-string make-text make-unfold-generator make-vector make-vector-comparator map map! map-in-order max member memq memv min modulo nan? negative? newline ninth not not-ipair? not-pair? null-list? null? number->string number-hash number? numerator odd? open-binary-input-file open-binary-output-file open-input-bytevector open-input-file open-input-string open-output-bytevector open-output-file open-output-string or output-port-open? output-port? pair->ipair pair-fold pair-fold-right pair-for-each pair? parameterize partition partition! peek-char peek-u8 port->stream port? positive? procedure? promise? proper-list? quasiquote quote quotient raise raise-continuable rappend rational? rationalize rcaaaar rcaaadr rcaaar rcaadar rcaaddr rcaadr rcaar rcadaar rcadadr rcadar rcaddar rcadddr rcaddr rcadr rcar rcdaaar rcdaadr rcdaar rcdadar rcdaddr rcdadr rcdar rcddaar rcddadr rcddar rcdddar rcddddr rcdddr rcddr rcdr rcons read read-bytevector read-bytevector! read-char read-error? read-line read-string read-u8 real-part real? reduce reduce-right remainder remove remove! replace-icar replace-icdr reverse reverse! reverse-list->text reverse-list->vector reverse-vector->generator reverse-vector->list rfor-each rlength rlist rlist->list rlist-ref rlist-ref/update rlist-set rlist-tail rlist? rmap rnull? round rpair? rquote rreverse second set set set! set->bag set->bag set->bag! set->bag! set->list set->list set-adjoin set-adjoin set-adjoin! set-adjoin! set-any? set-any? set-box! set-car! set-cdr! set-comparator set-comparator set-contains? set-contains? set-copy set-copy set-count set-count set-delete set-delete set-delete! set-delete! set-delete-all set-delete-all set-delete-all! set-delete-all! set-difference set-difference set-difference! set-difference! set-disjoint? set-disjoint? set-element-comparator set-element-comparator set-empty? set-empty? set-every? set-every? set-filter set-filter set-filter! set-filter! set-find set-find set-fold set-fold set-for-each set-for-each set-intersection set-intersection set-intersection! set-intersection! set-map set-map set-member set-member set-partition set-partition set-partition! set-partition! set-remove set-remove set-remove! set-remove! set-replace set-replace set-replace! set-replace! set-search! set-search! set-size set-size set-unfold set-unfold set-union set-union set-union! set-union! set-xor set-xor set-xor! set-xor! set<=? set<=? set=? set>=? set>? set>? set? set? seventh sin sixth span span! split-at split-at! sqrt square stream stream->list stream-append stream-car stream-cdr stream-concat stream-cons stream-constant stream-drop stream-drop-while stream-filter stream-fold stream-for-each stream-from stream-iterate stream-lambda stream-length stream-let stream-map stream-match stream-null stream-null? stream-of stream-pair? stream-range stream-ref stream-reverse stream-scan stream-take stream-take-while stream-unfold stream-unfolds stream-zip stream? string string->char-set string->char-set! string->generator string->list string->number string->symbol string->text string->utf8 string->vector string-append string-ci-hash string-ci<=? string-ci=? string-ci>? string-copy string-copy! string-downcase string-fill! string-foldcase string-for-each string-hash string-length string-map string-ref string-set! string-upcase string<=? string=? string>? string? substring subtext subtextual symbol->string symbol-hash symbol=? symbol? syntax-error syntax-rules take take! take-right take-while take-while! tan tenth text text-length text-ref text-tabulate text-unfold text-unfold-right text? textual->list textual->string textual->text textual->utf16 textual->utf16be textual->utf16le textual->utf8 textual->vector textual-any textual-append textual-ci<=? textual-ci=? textual-ci>? textual-concatenate textual-concatenate-reverse textual-contains textual-contains-right textual-copy textual-count textual-downcase textual-drop textual-drop-right textual-every textual-filter textual-fold textual-fold-right textual-foldcase textual-for-each textual-for-each-index textual-index textual-index-right textual-join textual-length textual-map textual-map-index textual-null? textual-pad textual-pad-right textual-port? textual-prefix-length textual-prefix? textual-ref textual-remove textual-replace textual-replicate textual-skip textual-skip-right textual-split textual-suffix-length textual-suffix? textual-take textual-take-right textual-titlecase textual-trim textual-trim-both textual-trim-right textual-upcase textual<=? textual=? textual>? textual? third tree->itree truncate truncate-quotient truncate-remainder truncate/ u8-ready? ucs-range->char-set ucs-range->char-set! unbox unfold unfold-right unless unquote unquote-splicing unzip1 unzip2 unzip3 unzip4 unzip5 utf16->text utf16be->text utf16le->text utf8->string utf8->text values vector vector->generator vector->list vector->string vector->text vector-any vector-append vector-append-subvectors vector-binary-search vector-concatenate vector-copy vector-copy! vector-count vector-cumulate vector-delete-neighbor-dups vector-delete-neighbor-dups! vector-empty? vector-every vector-fill! vector-find-median vector-find-median! vector-fold vector-fold-right vector-for-each vector-index vector-index-right vector-length vector-map vector-map! vector-merge vector-merge! vector-partition vector-ref vector-reverse! vector-reverse-copy vector-reverse-copy! vector-select! vector-separate! vector-set! vector-skip vector-skip-right vector-sort vector-sort! vector-sorted? vector-stable-sort vector-stable-sort! vector-swap! vector-unfold vector-unfold! vector-unfold-right vector-unfold-right! vector= vector? when with-exception-handler with-input-from-file with-output-to-file write write-bytevector write-char write-string write-u8 xcons zero? zip ))