(define belongs (call-table))
(define seen (call-table*))

(define (see thing)
  (aif (belongs thing)
       (seen it thing)
       #f))

(define file-name (second (argv)))

(define (comment? str)
  (or (empty? str)
      (eq? #\; (string-ref str 0))))

(import tree)

(belongs
 update:
 (alist->hash-table
  '((aand . anaphora)
    (acond . anaphora)
    (aif . anaphora)
    (alambda . anaphora)
    (alist-recurser . anaphora)
    (anaphora . anaphora)
    (atree-recurser . anaphora)
    (awhen . anaphora)
    (awhile . anaphora)
    (define-anaphor . anaphora)
    (define-properties . anaphora)
    (list-recurser . anaphora)
    (nand . anaphora)
    (ncond . anaphora)
    (nif . anaphora)
    (nlambda . anaphora)
    (nwhen . anaphora)
    (nwhile . anaphora)
    (tree-recurser . anaphora)
    (begin0 . miscmacros)
    (dec! . miscmacros)
    (define-enum . miscmacros)
    (define-optionals . miscmacros)
    (define-parameter . miscmacros)
    (define-syntax-rule . miscmacros)
    (dotimes . miscmacros)
    (ecase . miscmacros)
    (exchange! . miscmacros)
    (if* . miscmacros)
    (ignore-errors . miscmacros)
    (ignore-values . miscmacros)
    (inc! . miscmacros)
    (let/cc . miscmacros)
    (modify! . miscmacros)
    (modify-location . miscmacros)
    (pop! . miscmacros)
    (push! . miscmacros)
    (repeat . miscmacros)
    (repeat* . miscmacros)
    (until . miscmacros)
    (while . miscmacros)
    (while* . miscmacros)
    (|(\|\|| . scsh-process)
    (pf . scsh-process)
    (|...)| . scsh-process)
    (%fork . scsh-process)
    (%fork/pipe . scsh-process)
    (& . scsh-process)
    (&& . scsh-process)
    (exec-epf . scsh-process)
    (exec-path . scsh-process)
    (exec-path* . scsh-process)
    (fork . scsh-process)
    (fork%/pipe+ . scsh-process)
    (fork/pipe . scsh-process)
    (fork/pipe+ . scsh-process)
    (proc:pid . scsh-process)
    (proc? . scsh-process)
    (process-sleep . scsh-process)
    (process? . scsh-process)
    (run . scsh-process)
    (run/collecting . scsh-process)
    (run/collecting* . scsh-process)
    (run/file . scsh-process)
    (run/file* . scsh-process)
    (run/port . scsh-process)
    (run/port* . scsh-process)
    (run/sexp . scsh-process)
    (run/sexp* . scsh-process)
    (run/sexps . scsh-process)
    (run/sexps* . scsh-process)
    (run/string . scsh-process)
    (run/string* . scsh-process)
    (run/strings . scsh-process)
    (run/strings* . scsh-process)
    (signal-process . scsh-process)
    (wait . scsh-process)
    (alist-cons . srfi-1)
    (alist-copy . srfi-1)
    (alist-delete . srfi-1)
    (alist-delete! . srfi-1)
    (any . srfi-1)
    (append! . srfi-1)
    (append-map . srfi-1)
    (append-map! . srfi-1)
    (append-reverse . srfi-1)
    (append-reverse! . srfi-1)
    (assoc . srfi-1)
    (break . srfi-1)
    (break! . srfi-1)
    (car+cdr . srfi-1)
    (circular-list . srfi-1)
    (circular-list? . srfi-1)
    (concatenate . srfi-1)
    (concatenate! . srfi-1)
    (cons* . srfi-1)
    (count . srfi-1)
    (delete . srfi-1)
    (delete! . srfi-1)
    (delete-duplicates . srfi-1)
    (delete-duplicates! . srfi-1)
    (dotted-list? . srfi-1)
    (drop . srfi-1)
    (drop-right . srfi-1)
    (drop-right! . srfi-1)
    (drop-while . srfi-1)
    (eighth . srfi-1)
    (every . srfi-1)
    (fifth . srfi-1)
    (filter . srfi-1)
    (filter! . srfi-1)
    (filter-map . srfi-1)
    (find . srfi-1)
    (find-tail . srfi-1)
    (first . srfi-1)
    (fold . srfi-1)
    (fold-right . srfi-1)
    (for-each . srfi-1)
    (fourth . srfi-1)
    (iota . srfi-1)
    (last . srfi-1)
    (last-pair . srfi-1)
    (length+ . srfi-1)
    (list-copy . srfi-1)
    (list-index . srfi-1)
    (list-tabulate . srfi-1)
    (list= . srfi-1)
    (lset-adjoin . srfi-1)
    (lset-diff+intersection . srfi-1)
    (lset-diff+intersection! . srfi-1)
    (lset-difference . srfi-1)
    (lset-difference! . srfi-1)
    (lset-intersection . srfi-1)
    (lset-intersection! . srfi-1)
    (lset-union . srfi-1)
    (lset-union! . srfi-1)
    (lset-xor . srfi-1)
    (lset-xor! . srfi-1)
    (lset<= . srfi-1)
    (lset= . srfi-1)
    (make-list . srfi-1)
    (map . srfi-1)
    (map! . srfi-1)
    (map-in-order . srfi-1)
    (member . srfi-1)
    (ninth . srfi-1)
    (not-pair? . srfi-1)
    (null-list? . srfi-1)
    (pair-fold . srfi-1)
    (pair-fold-right . srfi-1)
    (pair-for-each . srfi-1)
    (partition . srfi-1)
    (partition! . srfi-1)
    (proper-list? . srfi-1)
    (reduce . srfi-1)
    (reduce-right . srfi-1)
    (remove . srfi-1)
    (remove! . srfi-1)
    (reverse! . srfi-1)
    (second . srfi-1)
    (seventh . srfi-1)
    (sixth . srfi-1)
    (span . srfi-1)
    (span! . srfi-1)
    (split-at . srfi-1)
    (split-at! . srfi-1)
    (take . srfi-1)
    (take! . srfi-1)
    (take-right . srfi-1)
    (take-while . srfi-1)
    (take-while! . srfi-1)
    (tenth . srfi-1)
    (third . srfi-1)
    (unfold . srfi-1)
    (unfold-right . srfi-1)
    (unzip1 . srfi-1)
    (unzip2 . srfi-1)
    (unzip3 . srfi-1)
    (unzip4 . srfi-1)
    (unzip5 . srfi-1)
    (xcons . srfi-1)
    (zip . srfi-1)
    (alist->hash-table . srfi-69)
    (eq?-hash . srfi-69)
    (equal?-hash . srfi-69)
    (eqv?-hash . srfi-69)
    (hash . srfi-69)
    (hash-by-identity . srfi-69)
    (hash-table->alist . srfi-69)
    (hash-table-clear! . srfi-69)
    (hash-table-copy . srfi-69)
    (hash-table-delete! . srfi-69)
    (hash-table-equivalence-function . srfi-69)
    (hash-table-exists? . srfi-69)
    (hash-table-fold . srfi-69)
    (hash-table-for-each . srfi-69)
    (hash-table-has-initial? . srfi-69)
    (hash-table-hash-function . srfi-69)
    (hash-table-initial . srfi-69)
    (hash-table-keys . srfi-69)
    (hash-table-map . srfi-69)
    (hash-table-max-load . srfi-69)
    (hash-table-merge . srfi-69)
    (hash-table-merge! . srfi-69)
    (hash-table-min-load . srfi-69)
    (hash-table-ref . srfi-69)
    (hash-table-ref/default . srfi-69)
    (hash-table-remove! . srfi-69)
    (hash-table-set! . srfi-69)
    (hash-table-size . srfi-69)
    (hash-table-update! . srfi-69)
    (hash-table-update!/default . srfi-69)
    (hash-table-values . srfi-69)
    (hash-table-walk . srfi-69)
    (hash-table-weak-keys . srfi-69)
    (hash-table-weak-values . srfi-69)
    (hash-table? . srfi-69)
    (keyword-hash . srfi-69)
    (make-hash-table . srfi-69)
    (number-hash . srfi-69)
    (object-uid-hash . srfi-69)
    (recursive-hash-max-depth . srfi-69)
    (recursive-hash-max-length . srfi-69)
    (string-ci-hash . srfi-69)
    (string-hash . srfi-69)
    (string-hash-ci . srfi-69)
    (symbol-hash . srfi-69)
    (allow-prefix-redeclarations? . sxml-serializer)
    (conventional-ns-prefixes . sxml-serializer)
    (serialize-sxml . sxml-serializer)
    (html->sxml . html-parser)
    (html-strip . html-parser)
    (make-html-parser . html-parser)
    (call-with-input-request . http-client)
    (call-with-input-request* . http-client)
    (call-with-response . http-client)
    (client-software . http-client)
    (close-all-connections! . http-client)
    (close-connection! . http-client)
    (close-idle-connections! . http-client)
    (default-prepare-request . http-client)
    (default-server-connector . http-client)
    (delete-cookie! . http-client)
    (determine-proxy . http-client)
    (determine-proxy-from-environment . http-client)
    (determine-proxy-username/password . http-client)
    (determine-username/password . http-client)
    (get-cookies-for-uri . http-client)
    (http-authenticators . http-client)
    (max-idle-connections . http-client)
    (max-redirect-depth . http-client)
    (max-retry-attempts . http-client)
    (prepare-request . http-client)
    (retry-request? . http-client)
    (server-connector . http-client)
    (store-cookie! . http-client)
    (with-input-from-request . http-client)
    (define-ir-syntax . brev-separate)
    (define-syntax-rules . brev-separate)
    (define-ir-syntax* . brev-separate)
    (define-closure . brev-separate)
    (match-define . brev-separate)
    (match-define-closure . brev-separate)
    (call-table . brev-separate)
    (call-table* . brev-separate)
    (for-each-line . brev-separate)
    (with-result . brev-separate)
    (over . brev-separate)
    (c_r . brev-separate)
    (like? . brev-separate)
    (is? . brev-separate)
    (define-curry . brev-separate)
    (c . brev-separate)
    (🍛 . brev-separate)
    (empty? . brev-separate)
    (eif . brev-separate)
    (econd . brev-separate)
    (define-some . brev-separate)
    (as-list . brev-separate)
    (-> clojurian syntax)
    (->* clojurian syntax)
    (->> clojurian syntax)
    (->>* clojurian syntax)
    (and-> clojurian syntax)
    (as-> clojurian syntax)
    (doto clojurian syntax)
    (if-let clojurian syntax)
    (if-let* clojurian syntax)
    (andf . logical-combinators)
    (orf . logical-combinators)
    (bi-each . bi-combinators)
    (strse . strse)
    (reference
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (absolute
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (path rename
	  uri-common
	  (uri-reference reference)
	  (absolute-uri absolute)
	  (uri-path path)
	  (uri-query query)
	  (uri-fragment fragment)
	  (uri-host host)
	  (uri-reference? reference?)
	  (absolute-uri? absolute?)
	  (uri-path-absolute? path-absolute?)
	  (uri-path-relative? path-relative?)
	  (uri-relative-to relative-to)
	  (uri-relative-from relative-from))
    (query rename
           uri-common
           (uri-reference reference)
           (absolute-uri absolute)
           (uri-path path)
           (uri-query query)
           (uri-fragment fragment)
           (uri-host host)
           (uri-reference? reference?)
           (absolute-uri? absolute?)
           (uri-path-absolute? path-absolute?)
           (uri-path-relative? path-relative?)
           (uri-relative-to relative-to)
           (uri-relative-from relative-from))
    (fragment
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (host rename
	  uri-common
	  (uri-reference reference)
	  (absolute-uri absolute)
	  (uri-path path)
	  (uri-query query)
	  (uri-fragment fragment)
	  (uri-host host)
	  (uri-reference? reference?)
	  (absolute-uri? absolute?)
	  (uri-path-absolute? path-absolute?)
	  (uri-path-relative? path-relative?)
	  (uri-relative-to relative-to)
	  (uri-relative-from relative-from))
    (reference?
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (absolute?
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (path-absolute?
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (path-relative?
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (relative-to
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (relative-from
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (char-set:gen-delims
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (char-set:sub-delims
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (char-set:uri-reserved
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (char-set:uri-unreserved
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (form-urldecode
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (form-urlencode
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (form-urlencoded-separator
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (make-uri
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (relative-ref?
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (update-uri
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (uri->list
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (uri->string
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (uri->uri-generic
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (uri-decode-string
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (uri-default-port?
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (uri-encode-string
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (uri-generic->uri
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (uri-normalize-case
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (uri-normalize-path-segments
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (uri-password
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (uri-port
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (uri-scheme
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (uri-username
     rename
     uri-common
     (uri-reference reference)
     (absolute-uri absolute)
     (uri-path path)
     (uri-query query)
     (uri-fragment fragment)
     (uri-host host)
     (uri-reference? reference?)
     (absolute-uri? absolute?)
     (uri-path-absolute? path-absolute?)
     (uri-path-relative? path-relative?)
     (uri-relative-to relative-to)
     (uri-relative-from relative-from))
    (uri? rename
	  uri-common
	  (uri-reference reference)
	  (absolute-uri absolute)
	  (uri-path path)
	  (uri-query query)
	  (uri-fragment fragment)
	  (uri-host host)
	  (uri-reference? reference?)
	  (absolute-uri? absolute?)
	  (uri-path-absolute? path-absolute?)
	  (uri-path-relative? path-relative?)
	  (uri-relative-to relative-to)
	  (uri-relative-from relative-from))
    (pre-post-order* . sxml-transforms)
    (pre-post-order-splice* . sxml-transforms)
    (sxpath . sxpath)
    (create-directory chicken file)
    (copy-file chicken file)
    (move-file chicken file)
    (delete-file chicken file)
    (delete-file* chicken file)
    (delete-directory chicken file)
    (directory chicken file)
    (directory-exists? chicken file)
    (file-exists? chicken file)
    (rename-file chicken file)
    (file-readable? chicken file)
    (file-writable? chicken file)
    (file-executable? chicken file)
    (create-temporary-file chicken file)
    (create-temporary-directory chicken file)
    (find-files chicken file)
    (glob chicken file)
    (directory? chicken file posix)
    (file-type chicken file posix)
    (character-device? chicken file posix)
    (block-device? chicken file posix)
    (socket? chicken file posix)
    (regular-file? chicken file posix)
    (create-fifo chicken file posix)
    (fifo? chicken file posix)
    (file-access-time chicken file posix)
    (file-change-time chicken file posix)
    (file-modification-time chicken file posix)
    (set-file-times! chicken file posix)
    (file-stat chicken file posix)
    (file-position chicken file posix)
    (file-size chicken file posix)
    (file-owner chicken file posix)
    (set-file-owner! chicken file posix)
    (file-group chicken file posix)
    (set-file-group! chicken file posix)
    (file-permissions chicken file posix)
    (set-file-permissions! chicken file posix)
    (file-truncate chicken file posix)
    (set-file-position! chicken file posix)
    (file-creation-mode chicken file posix)
    (file-link chicken file posix)
    (symbolic-link? chicken file posix)
    (create-symbolic-link chicken file posix)
    (read-symbolic-link chicken file posix)
    (duplicate-fileno chicken file posix)
    (file-close chicken file posix)
    (file-open chicken file posix)
    (file-mkstemp chicken file posix)
    (file-read chicken file posix)
    (file-select chicken file posix)
    (file-write chicken file posix)
    (file-control chicken file posix)
    (open-input-file* chicken file posix)
    (open-output-file* chicken file posix)
    (port->fileno chicken file posix)
    (file-lock chicken file posix)
    (file-lock/blocking chicken file posix)
    (file-test-lock chicken file posix)
    (file-unlock chicken file posix)
    (set-pseudo-random-seed! chicken random)
    (pseudo-random-integer chicken random)
    (pseudo-random-real chicken random)
    (random-bytes chicken random)
    (read-list chicken io)
    (read-buffered chicken io)
    (read-byte chicken io)
    (write-byte chicken io)
    (read-line chicken io)
    (write-line chicken io)
    (read-lines chicken io)
    (read-string chicken io)
    (read-string! chicken io)
    (write-string chicken io)
    (read-token chicken io)
    (pp chicken pretty-print)
    (pretty-print chicken pretty-print)
    (pretty-print-width chicken pretty-print)
    (argc+argv chicken process-context)
    (argv chicken process-context)
    (command-line-arguments chicken process-context)
    (executable-pathname chicken process-context)
    (program-name chicken process-context)
    (get-environment-variables chicken process-context)
    (get-environment-variable chicken process-context)
    (set-environment-variable! chicken process-context)
    (unset-environment-variable! chicken process-context)
    (change-directory chicken process-context)
    (current-directory chicken process-context)
    (change-directory* chicken process-context posix)
    (set-root-directory! chicken process-context posix)
    (current-user-id chicken process-context posix)
    (current-user-name chicken process-context posix)
    (current-effective-user-id chicken process-context posix)
    (current-effective-user-name chicken process-context posix)
    (current-group-id chicken process-context posix)
    (current-effective-group-id chicken process-context posix)
    (current-process-id chicken process-context posix)
    (parent-process-id chicken process-context posix)
    (process-group-id chicken process-context posix)
    (create-session chicken process-context posix)
    (user-information chicken process-context posix)
    (port-name chicken port)
    (port-position chicken port)
    (set-port-name! chicken port)
    (set-buffering-mode! chicken port)
    (terminal-name chicken port)
    (terminal-port? chicken port)
    (terminal-size chicken port)
    (with-output-to-port chicken port)
    (make-input-port chicken port)
    (make-output-port chicken port)
    (with-error-output-to-port chicken port)
    (with-input-from-port chicken port)
    (call-with-input-string chicken port)
    (call-with-output-string chicken port)
    (with-input-from-string chicken port)
    (with-output-to-string chicken port)
    (with-error-output-to-string chicken port)
    (port-for-each chicken port)
    (port-map chicken port)
    (port-fold chicken port)
    (copy-port chicken port)
    (make-bidirectional-port chicken port)
    (make-broadcast-port chicken port)
    (make-concatenated-port chicken port)
    (conc chicken string)
    (->string chicken string)
    (string-chop chicken string)
    (string-chomp chicken string)
    (string-compare3 chicken string)
    (string-intersperse chicken string)
    (string-split chicken string)
    (string-translate chicken string)
    (string-translate* chicken string)
    (substring=? chicken string)
    (substring-index chicken string)
    (reverse-list->string chicken string)
    (reverse-string-append chicken string))))

(awhen
 (strse file-name (: ".brev" eos) ".scm" #f)
 (tree-walk-preorder see
		     (with-input-from-file
			 file-name
		       read-list))
 (print "Just hit return for \"No, keep it\" and any other response for \"False positive, remove it\".")
 (let ((spec (map car
		  (filter-map
		   (lambda (item)
		     (print "Is " (car item) " a false positive? It matches " (delete-duplicates (cdr item)))
		     (if (empty? (read-line)) item #f))
		   (hash-table->alist (seen)))))
       (orig (strse file-name (: (* nonl) "/") "")))
   (with-output-to-file
       it
     (lambda ()
       (eif spec (pp (cons 'import spec)) (void))
       (when spec (newline))
       (pp `(include ,orig))))))