prelude: :gerbil/compiler/ssxi
package: std/srfi

(begin
  (declare-type std/srfi/13#char-cased? (@lambda 1 #f))
  (declare-type std/srfi/13#char-titlecase (@lambda 1 #f))
  (declare-type
   std/srfi/13#substring/shared__%
   (@lambda 3 std/srfi/13#%substring/shared))
  (declare-type std/srfi/13#substring/shared__0 (@lambda 2 #f))
  (declare-type
   std/srfi/13#substring/shared
   (@case-lambda
    (2 std/srfi/13#substring/shared__0)
    (3 std/srfi/13#substring/shared__%)))
  (declare-type std/srfi/13#%substring/shared (@lambda 3 #f))
  (declare-type std/srfi/13#string-copy__% (@lambda 3 substring))
  (declare-type std/srfi/13#string-copy__0 (@lambda 1 #f))
  (declare-type std/srfi/13#string-copy__1 (@lambda 2 #f))
  (declare-type
   std/srfi/13#string-copy
   (@case-lambda
    (1 std/srfi/13#string-copy__0)
    (2 std/srfi/13#string-copy__1)
    (3 std/srfi/13#string-copy__%)))
  (declare-type std/srfi/13#string-map__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-map__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-map__1 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-map
   (@case-lambda
    (2 std/srfi/13#string-map__0)
    (3 std/srfi/13#string-map__1)
    (4 std/srfi/13#string-map__%)))
  (declare-type std/srfi/13#%string-map (@lambda 4 #f))
  (declare-type std/srfi/13#string-map!__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-map!__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-map!__1 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-map!
   (@case-lambda
    (2 std/srfi/13#string-map!__0)
    (3 std/srfi/13#string-map!__1)
    (4 std/srfi/13#string-map!__%)))
  (declare-type std/srfi/13#%string-map! (@lambda 4 #f))
  (declare-type std/srfi/13#string-fold__% (@lambda 5 #f))
  (declare-type std/srfi/13#string-fold__0 (@lambda 3 #f))
  (declare-type std/srfi/13#string-fold__1 (@lambda 4 #f))
  (declare-type
   std/srfi/13#string-fold
   (@case-lambda
    (3 std/srfi/13#string-fold__0)
    (4 std/srfi/13#string-fold__1)
    (5 std/srfi/13#string-fold__%)))
  (declare-type std/srfi/13#string-fold-right__% (@lambda 5 #f))
  (declare-type std/srfi/13#string-fold-right__0 (@lambda 3 #f))
  (declare-type std/srfi/13#string-fold-right__1 (@lambda 4 #f))
  (declare-type
   std/srfi/13#string-fold-right
   (@case-lambda
    (3 std/srfi/13#string-fold-right__0)
    (4 std/srfi/13#string-fold-right__1)
    (5 std/srfi/13#string-fold-right__%)))
  (declare-type std/srfi/13#string-unfold__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-unfold__0 (@lambda 4 #f))
  (declare-type std/srfi/13#string-unfold__1 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-unfold
   (@case-lambda
    (4 std/srfi/13#string-unfold__0)
    (5 std/srfi/13#string-unfold__1)
    (6 std/srfi/13#string-unfold__%)))
  (declare-type std/srfi/13#string-unfold-right__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-unfold-right__0 (@lambda 4 #f))
  (declare-type std/srfi/13#string-unfold-right__1 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-unfold-right
   (@case-lambda
    (4 std/srfi/13#string-unfold-right__0)
    (5 std/srfi/13#string-unfold-right__1)
    (6 std/srfi/13#string-unfold-right__%)))
  (declare-type std/srfi/13#string-for-each__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-for-each__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-for-each__1 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-for-each
   (@case-lambda
    (2 std/srfi/13#string-for-each__0)
    (3 std/srfi/13#string-for-each__1)
    (4 std/srfi/13#string-for-each__%)))
  (declare-type std/srfi/13#string-for-each-index__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-for-each-index__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-for-each-index__1 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-for-each-index
   (@case-lambda
    (2 std/srfi/13#string-for-each-index__0)
    (3 std/srfi/13#string-for-each-index__1)
    (4 std/srfi/13#string-for-each-index__%)))
  (declare-type std/srfi/13#string-every__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-every__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-every__1 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-every
   (@case-lambda
    (2 std/srfi/13#string-every__0)
    (3 std/srfi/13#string-every__1)
    (4 std/srfi/13#string-every__%)))
  (declare-type std/srfi/13#string-any__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-any__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-any__1 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-any
   (@case-lambda
    (2 std/srfi/13#string-any__0)
    (3 std/srfi/13#string-any__1)
    (4 std/srfi/13#string-any__%)))
  (declare-type std/srfi/13#string-tabulate (@lambda 2 #f))
  (declare-type std/srfi/13#%string-prefix-length (@lambda 6 #f))
  (declare-type std/srfi/13#%string-suffix-length (@lambda 6 #f))
  (declare-type std/srfi/13#%string-prefix-length-ci (@lambda 6 #f))
  (declare-type std/srfi/13#%string-suffix-length-ci (@lambda 6 #f))
  (declare-type std/srfi/13#string-prefix-length__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-prefix-length__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-prefix-length__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string-prefix-length__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string-prefix-length__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-prefix-length
   (@case-lambda
    (2 std/srfi/13#string-prefix-length__0)
    (3 std/srfi/13#string-prefix-length__1)
    (4 std/srfi/13#string-prefix-length__2)
    (5 std/srfi/13#string-prefix-length__3)
    (6 std/srfi/13#string-prefix-length__%)))
  (declare-type std/srfi/13#string-suffix-length__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-suffix-length__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-suffix-length__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string-suffix-length__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string-suffix-length__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-suffix-length
   (@case-lambda
    (2 std/srfi/13#string-suffix-length__0)
    (3 std/srfi/13#string-suffix-length__1)
    (4 std/srfi/13#string-suffix-length__2)
    (5 std/srfi/13#string-suffix-length__3)
    (6 std/srfi/13#string-suffix-length__%)))
  (declare-type std/srfi/13#string-prefix-length-ci__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-prefix-length-ci__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-prefix-length-ci__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string-prefix-length-ci__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string-prefix-length-ci__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-prefix-length-ci
   (@case-lambda
    (2 std/srfi/13#string-prefix-length-ci__0)
    (3 std/srfi/13#string-prefix-length-ci__1)
    (4 std/srfi/13#string-prefix-length-ci__2)
    (5 std/srfi/13#string-prefix-length-ci__3)
    (6 std/srfi/13#string-prefix-length-ci__%)))
  (declare-type std/srfi/13#string-suffix-length-ci__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-suffix-length-ci__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-suffix-length-ci__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string-suffix-length-ci__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string-suffix-length-ci__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-suffix-length-ci
   (@case-lambda
    (2 std/srfi/13#string-suffix-length-ci__0)
    (3 std/srfi/13#string-suffix-length-ci__1)
    (4 std/srfi/13#string-suffix-length-ci__2)
    (5 std/srfi/13#string-suffix-length-ci__3)
    (6 std/srfi/13#string-suffix-length-ci__%)))
  (declare-type std/srfi/13#string-prefix?__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-prefix?__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-prefix?__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string-prefix?__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string-prefix?__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-prefix?
   (@case-lambda
    (2 std/srfi/13#string-prefix?__0)
    (3 std/srfi/13#string-prefix?__1)
    (4 std/srfi/13#string-prefix?__2)
    (5 std/srfi/13#string-prefix?__3)
    (6 std/srfi/13#string-prefix?__%)))
  (declare-type std/srfi/13#string-suffix?__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-suffix?__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-suffix?__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string-suffix?__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string-suffix?__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-suffix?
   (@case-lambda
    (2 std/srfi/13#string-suffix?__0)
    (3 std/srfi/13#string-suffix?__1)
    (4 std/srfi/13#string-suffix?__2)
    (5 std/srfi/13#string-suffix?__3)
    (6 std/srfi/13#string-suffix?__%)))
  (declare-type std/srfi/13#string-prefix-ci?__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-prefix-ci?__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-prefix-ci?__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string-prefix-ci?__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string-prefix-ci?__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-prefix-ci?
   (@case-lambda
    (2 std/srfi/13#string-prefix-ci?__0)
    (3 std/srfi/13#string-prefix-ci?__1)
    (4 std/srfi/13#string-prefix-ci?__2)
    (5 std/srfi/13#string-prefix-ci?__3)
    (6 std/srfi/13#string-prefix-ci?__%)))
  (declare-type std/srfi/13#string-suffix-ci?__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-suffix-ci?__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-suffix-ci?__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string-suffix-ci?__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string-suffix-ci?__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-suffix-ci?
   (@case-lambda
    (2 std/srfi/13#string-suffix-ci?__0)
    (3 std/srfi/13#string-suffix-ci?__1)
    (4 std/srfi/13#string-suffix-ci?__2)
    (5 std/srfi/13#string-suffix-ci?__3)
    (6 std/srfi/13#string-suffix-ci?__%)))
  (declare-type std/srfi/13#%string-prefix? (@lambda 6 #f))
  (declare-type std/srfi/13#%string-suffix? (@lambda 6 #f))
  (declare-type std/srfi/13#%string-prefix-ci? (@lambda 6 #f))
  (declare-type std/srfi/13#%string-suffix-ci? (@lambda 6 #f))
  (declare-type std/srfi/13#%string-compare (@lambda 9 #f))
  (declare-type std/srfi/13#%string-compare-ci (@lambda 9 #f))
  (declare-type std/srfi/13#string-compare__% (@lambda 9 #f))
  (declare-type std/srfi/13#string-compare__0 (@lambda 5 #f))
  (declare-type std/srfi/13#string-compare__1 (@lambda 6 #f))
  (declare-type std/srfi/13#string-compare__2 (@lambda 7 #f))
  (declare-type std/srfi/13#string-compare__3 (@lambda 8 #f))
  (declare-type
   std/srfi/13#string-compare
   (@case-lambda
    (5 std/srfi/13#string-compare__0)
    (6 std/srfi/13#string-compare__1)
    (7 std/srfi/13#string-compare__2)
    (8 std/srfi/13#string-compare__3)
    (9 std/srfi/13#string-compare__%)))
  (declare-type std/srfi/13#string-compare-ci__% (@lambda 9 #f))
  (declare-type std/srfi/13#string-compare-ci__0 (@lambda 5 #f))
  (declare-type std/srfi/13#string-compare-ci__1 (@lambda 6 #f))
  (declare-type std/srfi/13#string-compare-ci__2 (@lambda 7 #f))
  (declare-type std/srfi/13#string-compare-ci__3 (@lambda 8 #f))
  (declare-type
   std/srfi/13#string-compare-ci
   (@case-lambda
    (5 std/srfi/13#string-compare-ci__0)
    (6 std/srfi/13#string-compare-ci__1)
    (7 std/srfi/13#string-compare-ci__2)
    (8 std/srfi/13#string-compare-ci__3)
    (9 std/srfi/13#string-compare-ci__%)))
  (declare-type std/srfi/13#string=__% (@lambda 6 #f))
  (declare-type std/srfi/13#string=__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string=__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string=__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string=__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string=
   (@case-lambda
    (2 std/srfi/13#string=__0)
    (3 std/srfi/13#string=__1)
    (4 std/srfi/13#string=__2)
    (5 std/srfi/13#string=__3)
    (6 std/srfi/13#string=__%)))
  (declare-type std/srfi/13#string<>__% (@lambda 6 #f))
  (declare-type std/srfi/13#string<>__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string<>__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string<>__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string<>__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string<>
   (@case-lambda
    (2 std/srfi/13#string<>__0)
    (3 std/srfi/13#string<>__1)
    (4 std/srfi/13#string<>__2)
    (5 std/srfi/13#string<>__3)
    (6 std/srfi/13#string<>__%)))
  (declare-type std/srfi/13#string<__% (@lambda 6 #f))
  (declare-type std/srfi/13#string<__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string<__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string<__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string<__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string<
   (@case-lambda
    (2 std/srfi/13#string<__0)
    (3 std/srfi/13#string<__1)
    (4 std/srfi/13#string<__2)
    (5 std/srfi/13#string<__3)
    (6 std/srfi/13#string<__%)))
  (declare-type std/srfi/13#string>__% (@lambda 6 #f))
  (declare-type std/srfi/13#string>__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string>__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string>__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string>__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string>
   (@case-lambda
    (2 std/srfi/13#string>__0)
    (3 std/srfi/13#string>__1)
    (4 std/srfi/13#string>__2)
    (5 std/srfi/13#string>__3)
    (6 std/srfi/13#string>__%)))
  (declare-type std/srfi/13#string<=__% (@lambda 6 #f))
  (declare-type std/srfi/13#string<=__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string<=__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string<=__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string<=__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string<=
   (@case-lambda
    (2 std/srfi/13#string<=__0)
    (3 std/srfi/13#string<=__1)
    (4 std/srfi/13#string<=__2)
    (5 std/srfi/13#string<=__3)
    (6 std/srfi/13#string<=__%)))
  (declare-type std/srfi/13#string>=__% (@lambda 6 #f))
  (declare-type std/srfi/13#string>=__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string>=__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string>=__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string>=__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string>=
   (@case-lambda
    (2 std/srfi/13#string>=__0)
    (3 std/srfi/13#string>=__1)
    (4 std/srfi/13#string>=__2)
    (5 std/srfi/13#string>=__3)
    (6 std/srfi/13#string>=__%)))
  (declare-type std/srfi/13#string-ci=__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-ci=__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-ci=__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string-ci=__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string-ci=__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-ci=
   (@case-lambda
    (2 std/srfi/13#string-ci=__0)
    (3 std/srfi/13#string-ci=__1)
    (4 std/srfi/13#string-ci=__2)
    (5 std/srfi/13#string-ci=__3)
    (6 std/srfi/13#string-ci=__%)))
  (declare-type std/srfi/13#string-ci<>__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-ci<>__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-ci<>__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string-ci<>__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string-ci<>__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-ci<>
   (@case-lambda
    (2 std/srfi/13#string-ci<>__0)
    (3 std/srfi/13#string-ci<>__1)
    (4 std/srfi/13#string-ci<>__2)
    (5 std/srfi/13#string-ci<>__3)
    (6 std/srfi/13#string-ci<>__%)))
  (declare-type std/srfi/13#string-ci<__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-ci<__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-ci<__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string-ci<__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string-ci<__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-ci<
   (@case-lambda
    (2 std/srfi/13#string-ci<__0)
    (3 std/srfi/13#string-ci<__1)
    (4 std/srfi/13#string-ci<__2)
    (5 std/srfi/13#string-ci<__3)
    (6 std/srfi/13#string-ci<__%)))
  (declare-type std/srfi/13#string-ci>__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-ci>__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-ci>__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string-ci>__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string-ci>__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-ci>
   (@case-lambda
    (2 std/srfi/13#string-ci>__0)
    (3 std/srfi/13#string-ci>__1)
    (4 std/srfi/13#string-ci>__2)
    (5 std/srfi/13#string-ci>__3)
    (6 std/srfi/13#string-ci>__%)))
  (declare-type std/srfi/13#string-ci<=__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-ci<=__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-ci<=__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string-ci<=__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string-ci<=__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-ci<=
   (@case-lambda
    (2 std/srfi/13#string-ci<=__0)
    (3 std/srfi/13#string-ci<=__1)
    (4 std/srfi/13#string-ci<=__2)
    (5 std/srfi/13#string-ci<=__3)
    (6 std/srfi/13#string-ci<=__%)))
  (declare-type std/srfi/13#string-ci>=__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-ci>=__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-ci>=__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string-ci>=__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string-ci>=__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-ci>=
   (@case-lambda
    (2 std/srfi/13#string-ci>=__0)
    (3 std/srfi/13#string-ci>=__1)
    (4 std/srfi/13#string-ci>=__2)
    (5 std/srfi/13#string-ci>=__3)
    (6 std/srfi/13#string-ci>=__%)))
  (declare-type std/srfi/13#%string-hash (@lambda 5 #f))
  (declare-type std/srfi/13#string-hash__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-hash__0 (@lambda 1 #f))
  (declare-type std/srfi/13#string-hash__1 (@lambda 2 #f))
  (declare-type std/srfi/13#string-hash__2 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-hash
   (@case-lambda
    (1 std/srfi/13#string-hash__0)
    (2 std/srfi/13#string-hash__1)
    (3 std/srfi/13#string-hash__2)
    (4 std/srfi/13#string-hash__%)))
  (declare-type std/srfi/13#string-hash-ci__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-hash-ci__0 (@lambda 1 #f))
  (declare-type std/srfi/13#string-hash-ci__1 (@lambda 2 #f))
  (declare-type std/srfi/13#string-hash-ci__2 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-hash-ci
   (@case-lambda
    (1 std/srfi/13#string-hash-ci__0)
    (2 std/srfi/13#string-hash-ci__1)
    (3 std/srfi/13#string-hash-ci__2)
    (4 std/srfi/13#string-hash-ci__%)))
  (declare-type std/srfi/13#string-upcase__% (@lambda 3 #f))
  (declare-type std/srfi/13#string-upcase__0 (@lambda 1 #f))
  (declare-type std/srfi/13#string-upcase__1 (@lambda 2 #f))
  (declare-type
   std/srfi/13#string-upcase
   (@case-lambda
    (1 std/srfi/13#string-upcase__0)
    (2 std/srfi/13#string-upcase__1)
    (3 std/srfi/13#string-upcase__%)))
  (declare-type std/srfi/13#string-upcase!__% (@lambda 3 #f))
  (declare-type std/srfi/13#string-upcase!__0 (@lambda 1 #f))
  (declare-type std/srfi/13#string-upcase!__1 (@lambda 2 #f))
  (declare-type
   std/srfi/13#string-upcase!
   (@case-lambda
    (1 std/srfi/13#string-upcase!__0)
    (2 std/srfi/13#string-upcase!__1)
    (3 std/srfi/13#string-upcase!__%)))
  (declare-type std/srfi/13#string-downcase__% (@lambda 3 #f))
  (declare-type std/srfi/13#string-downcase__0 (@lambda 1 #f))
  (declare-type std/srfi/13#string-downcase__1 (@lambda 2 #f))
  (declare-type
   std/srfi/13#string-downcase
   (@case-lambda
    (1 std/srfi/13#string-downcase__0)
    (2 std/srfi/13#string-downcase__1)
    (3 std/srfi/13#string-downcase__%)))
  (declare-type std/srfi/13#string-downcase!__% (@lambda 3 #f))
  (declare-type std/srfi/13#string-downcase!__0 (@lambda 1 #f))
  (declare-type std/srfi/13#string-downcase!__1 (@lambda 2 #f))
  (declare-type
   std/srfi/13#string-downcase!
   (@case-lambda
    (1 std/srfi/13#string-downcase!__0)
    (2 std/srfi/13#string-downcase!__1)
    (3 std/srfi/13#string-downcase!__%)))
  (declare-type std/srfi/13#%string-titlecase! (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-titlecase!__%
   (@lambda 3 std/srfi/13#%string-titlecase!))
  (declare-type std/srfi/13#string-titlecase!__0 (@lambda 1 #f))
  (declare-type std/srfi/13#string-titlecase!__1 (@lambda 2 #f))
  (declare-type
   std/srfi/13#string-titlecase!
   (@case-lambda
    (1 std/srfi/13#string-titlecase!__0)
    (2 std/srfi/13#string-titlecase!__1)
    (3 std/srfi/13#string-titlecase!__%)))
  (declare-type std/srfi/13#string-titlecase__% (@lambda 3 #f))
  (declare-type std/srfi/13#string-titlecase__0 (@lambda 1 #f))
  (declare-type std/srfi/13#string-titlecase__1 (@lambda 2 #f))
  (declare-type
   std/srfi/13#string-titlecase
   (@case-lambda
    (1 std/srfi/13#string-titlecase__0)
    (2 std/srfi/13#string-titlecase__1)
    (3 std/srfi/13#string-titlecase__%)))
  (declare-type std/srfi/13#string-take (@lambda 2 #f))
  (declare-type std/srfi/13#string-take-right (@lambda 2 #f))
  (declare-type std/srfi/13#string-drop (@lambda 2 #f))
  (declare-type std/srfi/13#string-drop-right (@lambda 2 #f))
  (declare-type std/srfi/13#string-trim__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-trim__0 (@lambda 1 #f))
  (declare-type std/srfi/13#string-trim__1 (@lambda 2 #f))
  (declare-type std/srfi/13#string-trim__2 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-trim
   (@case-lambda
    (1 std/srfi/13#string-trim__0)
    (2 std/srfi/13#string-trim__1)
    (3 std/srfi/13#string-trim__2)
    (4 std/srfi/13#string-trim__%)))
  (declare-type std/srfi/13#string-trim-right__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-trim-right__0 (@lambda 1 #f))
  (declare-type std/srfi/13#string-trim-right__1 (@lambda 2 #f))
  (declare-type std/srfi/13#string-trim-right__2 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-trim-right
   (@case-lambda
    (1 std/srfi/13#string-trim-right__0)
    (2 std/srfi/13#string-trim-right__1)
    (3 std/srfi/13#string-trim-right__2)
    (4 std/srfi/13#string-trim-right__%)))
  (declare-type std/srfi/13#string-trim-both__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-trim-both__0 (@lambda 1 #f))
  (declare-type std/srfi/13#string-trim-both__1 (@lambda 2 #f))
  (declare-type std/srfi/13#string-trim-both__2 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-trim-both
   (@case-lambda
    (1 std/srfi/13#string-trim-both__0)
    (2 std/srfi/13#string-trim-both__1)
    (3 std/srfi/13#string-trim-both__2)
    (4 std/srfi/13#string-trim-both__%)))
  (declare-type std/srfi/13#string-pad-right__% (@lambda 5 #f))
  (declare-type std/srfi/13#string-pad-right__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-pad-right__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string-pad-right__2 (@lambda 4 #f))
  (declare-type
   std/srfi/13#string-pad-right
   (@case-lambda
    (2 std/srfi/13#string-pad-right__0)
    (3 std/srfi/13#string-pad-right__1)
    (4 std/srfi/13#string-pad-right__2)
    (5 std/srfi/13#string-pad-right__%)))
  (declare-type std/srfi/13#string-pad__% (@lambda 5 #f))
  (declare-type std/srfi/13#string-pad__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-pad__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string-pad__2 (@lambda 4 #f))
  (declare-type
   std/srfi/13#string-pad
   (@case-lambda
    (2 std/srfi/13#string-pad__0)
    (3 std/srfi/13#string-pad__1)
    (4 std/srfi/13#string-pad__2)
    (5 std/srfi/13#string-pad__%)))
  (declare-type std/srfi/13#string-delete__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-delete__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-delete__1 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-delete
   (@case-lambda
    (2 std/srfi/13#string-delete__0)
    (3 std/srfi/13#string-delete__1)
    (4 std/srfi/13#string-delete__%)))
  (declare-type std/srfi/13#string-filter__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-filter__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-filter__1 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-filter
   (@case-lambda
    (2 std/srfi/13#string-filter__0)
    (3 std/srfi/13#string-filter__1)
    (4 std/srfi/13#string-filter__%)))
  (declare-type std/srfi/13#string-index__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-index__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-index__1 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-index
   (@case-lambda
    (2 std/srfi/13#string-index__0)
    (3 std/srfi/13#string-index__1)
    (4 std/srfi/13#string-index__%)))
  (declare-type std/srfi/13#string-index-right__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-index-right__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-index-right__1 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-index-right
   (@case-lambda
    (2 std/srfi/13#string-index-right__0)
    (3 std/srfi/13#string-index-right__1)
    (4 std/srfi/13#string-index-right__%)))
  (declare-type std/srfi/13#string-skip__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-skip__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-skip__1 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-skip
   (@case-lambda
    (2 std/srfi/13#string-skip__0)
    (3 std/srfi/13#string-skip__1)
    (4 std/srfi/13#string-skip__%)))
  (declare-type std/srfi/13#string-skip-right__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-skip-right__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-skip-right__1 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-skip-right
   (@case-lambda
    (2 std/srfi/13#string-skip-right__0)
    (3 std/srfi/13#string-skip-right__1)
    (4 std/srfi/13#string-skip-right__%)))
  (declare-type std/srfi/13#string-count__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-count__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-count__1 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-count
   (@case-lambda
    (2 std/srfi/13#string-count__0)
    (3 std/srfi/13#string-count__1)
    (4 std/srfi/13#string-count__%)))
  (declare-type std/srfi/13#string-fill!__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-fill!__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-fill!__1 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-fill!
   (@case-lambda
    (2 std/srfi/13#string-fill!__0)
    (3 std/srfi/13#string-fill!__1)
    (4 std/srfi/13#string-fill!__%)))
  (declare-type
   std/srfi/13#string-copy!__%
   (@lambda 5 std/srfi/13#%string-copy!))
  (declare-type std/srfi/13#string-copy!__0 (@lambda 3 #f))
  (declare-type std/srfi/13#string-copy!__1 (@lambda 4 #f))
  (declare-type
   std/srfi/13#string-copy!
   (@case-lambda
    (3 std/srfi/13#string-copy!__0)
    (4 std/srfi/13#string-copy!__1)
    (5 std/srfi/13#string-copy!__%)))
  (declare-type std/srfi/13#%string-copy! (@lambda 5 #f))
  (declare-type std/srfi/13#string-contains__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-contains__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-contains__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string-contains__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string-contains__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-contains
   (@case-lambda
    (2 std/srfi/13#string-contains__0)
    (3 std/srfi/13#string-contains__1)
    (4 std/srfi/13#string-contains__2)
    (5 std/srfi/13#string-contains__3)
    (6 std/srfi/13#string-contains__%)))
  (declare-type std/srfi/13#string-contains-ci__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-contains-ci__0 (@lambda 2 #f))
  (declare-type std/srfi/13#string-contains-ci__1 (@lambda 3 #f))
  (declare-type std/srfi/13#string-contains-ci__2 (@lambda 4 #f))
  (declare-type std/srfi/13#string-contains-ci__3 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-contains-ci
   (@case-lambda
    (2 std/srfi/13#string-contains-ci__0)
    (3 std/srfi/13#string-contains-ci__1)
    (4 std/srfi/13#string-contains-ci__2)
    (5 std/srfi/13#string-contains-ci__3)
    (6 std/srfi/13#string-contains-ci__%)))
  (declare-type std/srfi/13#%kmp-search (@lambda 7 #f))
  (declare-type std/srfi/13#make-kmp-restart-vector__% (@lambda 4 #f))
  (declare-type std/srfi/13#make-kmp-restart-vector__0 (@lambda 1 #f))
  (declare-type std/srfi/13#make-kmp-restart-vector__1 (@lambda 2 #f))
  (declare-type std/srfi/13#make-kmp-restart-vector__2 (@lambda 3 #f))
  (declare-type
   std/srfi/13#make-kmp-restart-vector
   (@case-lambda
    (1 std/srfi/13#make-kmp-restart-vector__0)
    (2 std/srfi/13#make-kmp-restart-vector__1)
    (3 std/srfi/13#make-kmp-restart-vector__2)
    (4 std/srfi/13#make-kmp-restart-vector__%)))
  (declare-type std/srfi/13#kmp-step (@lambda 6 #f))
  (declare-type std/srfi/13#string-kmp-partial-search__% (@lambda 8 #f))
  (declare-type std/srfi/13#string-kmp-partial-search__0 (@lambda 4 #f))
  (declare-type std/srfi/13#string-kmp-partial-search__1 (@lambda 5 #f))
  (declare-type std/srfi/13#string-kmp-partial-search__2 (@lambda 6 #f))
  (declare-type std/srfi/13#string-kmp-partial-search__3 (@lambda 7 #f))
  (declare-type
   std/srfi/13#string-kmp-partial-search
   (@case-lambda
    (4 std/srfi/13#string-kmp-partial-search__0)
    (5 std/srfi/13#string-kmp-partial-search__1)
    (6 std/srfi/13#string-kmp-partial-search__2)
    (7 std/srfi/13#string-kmp-partial-search__3)
    (8 std/srfi/13#string-kmp-partial-search__%)))
  (declare-type std/srfi/13#string-null? (@lambda 1 #f))
  (declare-type std/srfi/13#string-reverse__% (@lambda 3 #f))
  (declare-type std/srfi/13#string-reverse__0 (@lambda 1 #f))
  (declare-type std/srfi/13#string-reverse__1 (@lambda 2 #f))
  (declare-type
   std/srfi/13#string-reverse
   (@case-lambda
    (1 std/srfi/13#string-reverse__0)
    (2 std/srfi/13#string-reverse__1)
    (3 std/srfi/13#string-reverse__%)))
  (declare-type std/srfi/13#string-reverse!__% (@lambda 3 #f))
  (declare-type std/srfi/13#string-reverse!__0 (@lambda 1 #f))
  (declare-type std/srfi/13#string-reverse!__1 (@lambda 2 #f))
  (declare-type
   std/srfi/13#string-reverse!
   (@case-lambda
    (1 std/srfi/13#string-reverse!__0)
    (2 std/srfi/13#string-reverse!__1)
    (3 std/srfi/13#string-reverse!__%)))
  (declare-type std/srfi/13#reverse-list->string (@lambda 1 #f))
  (declare-type std/srfi/13#string->list__% (@lambda 3 #f))
  (declare-type std/srfi/13#string->list__0 (@lambda 1 #f))
  (declare-type std/srfi/13#string->list__1 (@lambda 2 #f))
  (declare-type
   std/srfi/13#string->list
   (@case-lambda
    (1 std/srfi/13#string->list__0)
    (2 std/srfi/13#string->list__1)
    (3 std/srfi/13#string->list__%)))
  (declare-type std/srfi/13#string-append/shared (@lambda (0) #f))
  (declare-type std/srfi/13#string-concatenate/shared (@lambda 1 #f))
  (declare-type std/srfi/13#string-concatenate (@lambda 1 #f))
  (declare-type std/srfi/13#string-concatenate-reverse__% (@lambda 3 #f))
  (declare-type std/srfi/13#string-concatenate-reverse__0 (@lambda 1 #f))
  (declare-type std/srfi/13#string-concatenate-reverse__1 (@lambda 2 #f))
  (declare-type
   std/srfi/13#string-concatenate-reverse
   (@case-lambda
    (1 std/srfi/13#string-concatenate-reverse__0)
    (2 std/srfi/13#string-concatenate-reverse__1)
    (3 std/srfi/13#string-concatenate-reverse__%)))
  (declare-type
   std/srfi/13#string-concatenate-reverse/shared__%
   (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-concatenate-reverse/shared__0
   (@lambda 1 #f))
  (declare-type
   std/srfi/13#string-concatenate-reverse/shared__1
   (@lambda 2 #f))
  (declare-type
   std/srfi/13#string-concatenate-reverse/shared
   (@case-lambda
    (1 std/srfi/13#string-concatenate-reverse/shared__0)
    (2 std/srfi/13#string-concatenate-reverse/shared__1)
    (3 std/srfi/13#string-concatenate-reverse/shared__%)))
  (declare-type std/srfi/13#%finish-string-concatenate-reverse (@lambda 4 #f))
  (declare-type std/srfi/13#string-replace__% (@lambda 6 #f))
  (declare-type std/srfi/13#string-replace__0 (@lambda 4 #f))
  (declare-type std/srfi/13#string-replace__1 (@lambda 5 #f))
  (declare-type
   std/srfi/13#string-replace
   (@case-lambda
    (4 std/srfi/13#string-replace__0)
    (5 std/srfi/13#string-replace__1)
    (6 std/srfi/13#string-replace__%)))
  (declare-type std/srfi/13#string-tokenize__% (@lambda 4 #f))
  (declare-type std/srfi/13#string-tokenize__0 (@lambda 1 #f))
  (declare-type std/srfi/13#string-tokenize__1 (@lambda 2 #f))
  (declare-type std/srfi/13#string-tokenize__2 (@lambda 3 #f))
  (declare-type
   std/srfi/13#string-tokenize
   (@case-lambda
    (1 std/srfi/13#string-tokenize__0)
    (2 std/srfi/13#string-tokenize__1)
    (3 std/srfi/13#string-tokenize__2)
    (4 std/srfi/13#string-tokenize__%)))
  (declare-type std/srfi/13#xsubstring__% (@lambda 5 #f))
  (declare-type std/srfi/13#xsubstring__0 (@lambda 2 #f))
  (declare-type std/srfi/13#xsubstring__1 (@lambda 3 #f))
  (declare-type std/srfi/13#xsubstring__2 (@lambda 4 #f))
  (declare-type
   std/srfi/13#xsubstring
   (@case-lambda
    (2 std/srfi/13#xsubstring__0)
    (3 std/srfi/13#xsubstring__1)
    (4 std/srfi/13#xsubstring__2)
    (5 std/srfi/13#xsubstring__%)))
  (declare-type std/srfi/13#string-xcopy!__% (@lambda 7 #f))
  (declare-type std/srfi/13#string-xcopy!__0 (@lambda 4 #f))
  (declare-type std/srfi/13#string-xcopy!__1 (@lambda 5 #f))
  (declare-type std/srfi/13#string-xcopy!__2 (@lambda 6 #f))
  (declare-type
   std/srfi/13#string-xcopy!
   (@case-lambda
    (4 std/srfi/13#string-xcopy!__0)
    (5 std/srfi/13#string-xcopy!__1)
    (6 std/srfi/13#string-xcopy!__2)
    (7 std/srfi/13#string-xcopy!__%)))
  (declare-type std/srfi/13#%multispan-repcopy! (@lambda 7 #f))
  (declare-type std/srfi/13#string-join__% (@lambda 3 #f))
  (declare-type std/srfi/13#string-join__0 (@lambda 1 #f))
  (declare-type std/srfi/13#string-join__1 (@lambda 2 #f))
  (declare-type
   std/srfi/13#string-join
   (@case-lambda
    (1 std/srfi/13#string-join__0)
    (2 std/srfi/13#string-join__1)
    (3 std/srfi/13#string-join__%))))
