(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/srfi/115#string-start-arg
    (lambda (_s1501_ _o1502_)
      (if (pair? _o1502_)
          (std/srfi/115#string-index->cursor _s1501_ (car _o1502_))
          '0)))
  (define std/srfi/115#string-end-arg
    (lambda (_s1498_ _o1499_)
      (if (pair? _o1499_)
          (std/srfi/115#string-index->cursor _s1498_ (car _o1499_))
          (string-length _s1498_))))
  (define std/srfi/115#string-cursor? integer?)
  (define std/srfi/115#string-cursor=? fx=)
  (define std/srfi/115#string-cursor<? fx<)
  (define std/srfi/115#string-cursor<=? fx<=)
  (define std/srfi/115#string-cursor>? fx>)
  (define std/srfi/115#string-cursor>=? fx>=)
  (define std/srfi/115#string-cursor-ref string-ref)
  (define std/srfi/115#string-cursor-next
    (lambda (_s1495_ _i1496_) (fx+ _i1496_ '1)))
  (define std/srfi/115#string-cursor-prev
    (lambda (_s1492_ _i1493_) (fx- _i1493_ '1)))
  (define std/srfi/115#substring-cursor substring)
  (define std/srfi/115#string-cursor->index
    (lambda (_str1489_ _off1490_) _off1490_))
  (define std/srfi/115#string-index->cursor
    (lambda (_str1486_ _i1487_) _i1487_))
  (define std/srfi/115#string-concatenate
    (lambda (_ls1484_) (apply string-append _ls1484_)))
  (define std/srfi/115#string-concatenate-reverse
    (lambda (_ls1482_) (std/srfi/115#string-concatenate (reverse _ls1482_))))
  (define std/srfi/115#immutable-char-set
    (lambda (_char-set1480_) _char-set1480_))
  (define std/srfi/115#%char-set:letter
    (std/srfi/14#char-set-intersection
     std/srfi/14#char-set:ascii
     std/srfi/14#char-set:letter))
  (define std/srfi/115#%char-set:lower-case
    (std/srfi/14#char-set-intersection
     std/srfi/14#char-set:ascii
     std/srfi/14#char-set:lower-case))
  (define std/srfi/115#%char-set:upper-case
    (std/srfi/14#char-set-intersection
     std/srfi/14#char-set:ascii
     std/srfi/14#char-set:upper-case))
  (define std/srfi/115#%char-set:digit
    (std/srfi/14#char-set-intersection
     std/srfi/14#char-set:ascii
     std/srfi/14#char-set:digit))
  (define std/srfi/115#%char-set:letter+digit
    (std/srfi/14#char-set-intersection
     std/srfi/14#char-set:ascii
     std/srfi/14#char-set:letter+digit))
  (define std/srfi/115#%char-set:punctuation
    (std/srfi/14#char-set-intersection
     std/srfi/14#char-set:ascii
     std/srfi/14#char-set:punctuation))
  (define std/srfi/115#%char-set:symbol
    (std/srfi/14#char-set-intersection
     std/srfi/14#char-set:ascii
     std/srfi/14#char-set:symbol))
  (define std/srfi/115#%char-set:graphic
    (std/srfi/14#char-set-intersection
     std/srfi/14#char-set:ascii
     std/srfi/14#char-set:graphic))
  (define std/srfi/115#%char-set:whitespace
    (std/srfi/14#char-set-intersection
     std/srfi/14#char-set:ascii
     std/srfi/14#char-set:whitespace))
  (define std/srfi/115#%char-set:printing
    (std/srfi/14#char-set-intersection
     std/srfi/14#char-set:ascii
     std/srfi/14#char-set:printing))
  (define std/srfi/115#%char-set:iso-control
    (std/srfi/14#char-set-intersection
     std/srfi/14#char-set:ascii
     std/srfi/14#char-set:iso-control))
  (define std/srfi/115#char-set:extend-or-spacing-mark
    (std/srfi/115#immutable-char-set
     (std/srfi/14#char-set-union
      (std/srfi/14#char-set-union
       (std/srfi/14#ucs-range->char-set '768 '880)
       (std/srfi/14#ucs-range->char-set '1155 '1160)
       (std/srfi/14#ucs-range->char-set '1160 '1162)
       (std/srfi/14#ucs-range->char-set '1425 '1470)
       (std/srfi/14#ucs-range->char-set '1473 '1475)
       (std/srfi/14#ucs-range->char-set '1476 '1478)
       (std/srfi/14#ucs-range->char-set '1552 '1563)
       (std/srfi/14#ucs-range->char-set '1611 '1632)
       (std/srfi/14#ucs-range->char-set '1750 '1757)
       (std/srfi/14#ucs-range->char-set '1759 '1765)
       (std/srfi/14#ucs-range->char-set '1767 '1769)
       (std/srfi/14#ucs-range->char-set '1770 '1774)
       (std/srfi/14#ucs-range->char-set '1840 '1867)
       (std/srfi/14#ucs-range->char-set '1958 '1969)
       (std/srfi/14#ucs-range->char-set '2027 '2036)
       (std/srfi/14#ucs-range->char-set '2070 '2074)
       (std/srfi/14#ucs-range->char-set '2075 '2084)
       (std/srfi/14#ucs-range->char-set '2085 '2088)
       (std/srfi/14#ucs-range->char-set '2089 '2094)
       (std/srfi/14#ucs-range->char-set '2137 '2140)
       (std/srfi/14#ucs-range->char-set '2276 '2303)
       (std/srfi/14#ucs-range->char-set '2304 '2307)
       (std/srfi/14#ucs-range->char-set '2369 '2377)
       (std/srfi/14#ucs-range->char-set '2385 '2392)
       (std/srfi/14#ucs-range->char-set '2402 '2404)
       (std/srfi/14#ucs-range->char-set '2497 '2501)
       (std/srfi/14#ucs-range->char-set '2530 '2532)
       (std/srfi/14#ucs-range->char-set '2561 '2563)
       (std/srfi/14#ucs-range->char-set '2625 '2627)
       (std/srfi/14#ucs-range->char-set '2631 '2633)
       (std/srfi/14#ucs-range->char-set '2635 '2638)
       (std/srfi/14#ucs-range->char-set '2672 '2674)
       (std/srfi/14#ucs-range->char-set '2689 '2691)
       (std/srfi/14#ucs-range->char-set '2753 '2758)
       (std/srfi/14#ucs-range->char-set '2759 '2761)
       (std/srfi/14#ucs-range->char-set '2786 '2788)
       (std/srfi/14#ucs-range->char-set '2881 '2885)
       (std/srfi/14#ucs-range->char-set '2914 '2916)
       (std/srfi/14#ucs-range->char-set '3134 '3137)
       (std/srfi/14#ucs-range->char-set '3142 '3145)
       (std/srfi/14#ucs-range->char-set '3146 '3150)
       (std/srfi/14#ucs-range->char-set '3157 '3159)
       (std/srfi/14#ucs-range->char-set '3170 '3172)
       (std/srfi/14#ucs-range->char-set '3276 '3278)
       (std/srfi/14#ucs-range->char-set '3285 '3287)
       (std/srfi/14#ucs-range->char-set '3298 '3300)
       (std/srfi/14#ucs-range->char-set '3393 '3397)
       (std/srfi/14#ucs-range->char-set '3426 '3428)
       (std/srfi/14#ucs-range->char-set '3538 '3541)
       (std/srfi/14#ucs-range->char-set '3636 '3643)
       (std/srfi/14#ucs-range->char-set '3655 '3663)
       (std/srfi/14#ucs-range->char-set '3764 '3770)
       (std/srfi/14#ucs-range->char-set '3771 '3773)
       (std/srfi/14#ucs-range->char-set '3784 '3790)
       (std/srfi/14#ucs-range->char-set '3864 '3866)
       (std/srfi/14#ucs-range->char-set '3953 '3967)
       (std/srfi/14#ucs-range->char-set '3968 '3973)
       (std/srfi/14#ucs-range->char-set '3974 '3976)
       (std/srfi/14#ucs-range->char-set '3981 '3992)
       (std/srfi/14#ucs-range->char-set '3993 '4029)
       (std/srfi/14#ucs-range->char-set '4141 '4145)
       (std/srfi/14#ucs-range->char-set '4146 '4152)
       (std/srfi/14#ucs-range->char-set '4153 '4155)
       (std/srfi/14#ucs-range->char-set '4157 '4159)
       (std/srfi/14#ucs-range->char-set '4184 '4186)
       (std/srfi/14#ucs-range->char-set '4190 '4193)
       (std/srfi/14#ucs-range->char-set '4209 '4213)
       (std/srfi/14#ucs-range->char-set '4229 '4231)
       (std/srfi/14#ucs-range->char-set '4957 '4960)
       (std/srfi/14#ucs-range->char-set '5906 '5909)
       (std/srfi/14#ucs-range->char-set '5938 '5941)
       (std/srfi/14#ucs-range->char-set '5970 '5972)
       (std/srfi/14#ucs-range->char-set '6002 '6004)
       (std/srfi/14#ucs-range->char-set '6068 '6070)
       (std/srfi/14#ucs-range->char-set '6071 '6078)
       (std/srfi/14#ucs-range->char-set '6089 '6100)
       (std/srfi/14#ucs-range->char-set '6155 '6158)
       (std/srfi/14#ucs-range->char-set '6432 '6435)
       (std/srfi/14#ucs-range->char-set '6439 '6441)
       (std/srfi/14#ucs-range->char-set '6457 '6460)
       (std/srfi/14#ucs-range->char-set '6679 '6681)
       (std/srfi/14#ucs-range->char-set '6744 '6751)
       (std/srfi/14#ucs-range->char-set '6757 '6765)
       (std/srfi/14#ucs-range->char-set '6771 '6781)
       (std/srfi/14#ucs-range->char-set '6912 '6916)
       (std/srfi/14#ucs-range->char-set '6966 '6971)
       (std/srfi/14#ucs-range->char-set '7019 '7028)
       (std/srfi/14#ucs-range->char-set '7040 '7042)
       (std/srfi/14#ucs-range->char-set '7074 '7078)
       (std/srfi/14#ucs-range->char-set '7080 '7082)
       (std/srfi/14#ucs-range->char-set '7144 '7146)
       (std/srfi/14#ucs-range->char-set '7151 '7154)
       (std/srfi/14#ucs-range->char-set '7212 '7220)
       (std/srfi/14#ucs-range->char-set '7222 '7224)
       (std/srfi/14#ucs-range->char-set '7376 '7379)
       (std/srfi/14#ucs-range->char-set '7380 '7393)
       (std/srfi/14#ucs-range->char-set '7394 '7401)
       (std/srfi/14#ucs-range->char-set '7616 '7655)
       (std/srfi/14#ucs-range->char-set '7676 '7680)
       (std/srfi/14#ucs-range->char-set '8204 '8206)
       (std/srfi/14#ucs-range->char-set '8400 '8413)
       (std/srfi/14#ucs-range->char-set '8413 '8417)
       (std/srfi/14#ucs-range->char-set '8418 '8421)
       (std/srfi/14#ucs-range->char-set '8421 '8433)
       (std/srfi/14#ucs-range->char-set '11503 '11506)
       (std/srfi/14#ucs-range->char-set '11744 '11776)
       (std/srfi/14#ucs-range->char-set '12330 '12334)
       (std/srfi/14#ucs-range->char-set '12334 '12336)
       (std/srfi/14#ucs-range->char-set '12441 '12443)
       (std/srfi/14#ucs-range->char-set '42608 '42611)
       (std/srfi/14#ucs-range->char-set '42612 '42622)
       (std/srfi/14#ucs-range->char-set '42736 '42738)
       (std/srfi/14#ucs-range->char-set '43045 '43047)
       (std/srfi/14#ucs-range->char-set '43232 '43250)
       (std/srfi/14#ucs-range->char-set '43302 '43310)
       (std/srfi/14#ucs-range->char-set '43335 '43346)
       (std/srfi/14#ucs-range->char-set '43392 '43395)
       (std/srfi/14#ucs-range->char-set '43446 '43450)
       (std/srfi/14#ucs-range->char-set '43561 '43567)
       (std/srfi/14#ucs-range->char-set '43569 '43571)
       (std/srfi/14#ucs-range->char-set '43573 '43575)
       (std/srfi/14#ucs-range->char-set '43698 '43701)
       (std/srfi/14#ucs-range->char-set '43703 '43705)
       (std/srfi/14#ucs-range->char-set '43710 '43712)
       (std/srfi/14#ucs-range->char-set '43756 '43758)
       (std/srfi/14#ucs-range->char-set '65024 '65040)
       (std/srfi/14#ucs-range->char-set '65056 '65063)
       (std/srfi/14#ucs-range->char-set '65438 '65440)
       (std/srfi/14#ucs-range->char-set '68097 '68100)
       (std/srfi/14#ucs-range->char-set '68101 '68103)
       (std/srfi/14#ucs-range->char-set '68108 '68112)
       (std/srfi/14#ucs-range->char-set '68152 '68155)
       (std/srfi/14#ucs-range->char-set '69688 '69703)
       (std/srfi/14#ucs-range->char-set '69760 '69762)
       (std/srfi/14#ucs-range->char-set '69811 '69815)
       (std/srfi/14#ucs-range->char-set '69817 '69819)
       (std/srfi/14#ucs-range->char-set '69888 '69891)
       (std/srfi/14#ucs-range->char-set '69927 '69932)
       (std/srfi/14#ucs-range->char-set '69933 '69941)
       (std/srfi/14#ucs-range->char-set '70016 '70018)
       (std/srfi/14#ucs-range->char-set '70070 '70079)
       (std/srfi/14#ucs-range->char-set '71344 '71350)
       (std/srfi/14#ucs-range->char-set '94095 '94099)
       (std/srfi/14#ucs-range->char-set '119143 '119146)
       (std/srfi/14#ucs-range->char-set '119150 '119155)
       (std/srfi/14#ucs-range->char-set '119163 '119171)
       (std/srfi/14#ucs-range->char-set '119173 '119180)
       (std/srfi/14#ucs-range->char-set '119210 '119214)
       (std/srfi/14#ucs-range->char-set '119362 '119365)
       (std/srfi/14#ucs-range->char-set '917760 '918000))
      (std/srfi/14#char-set-union
       (std/srfi/14#ucs-range->char-set '2366 '2369)
       (std/srfi/14#ucs-range->char-set '2377 '2381)
       (std/srfi/14#ucs-range->char-set '2382 '2384)
       (std/srfi/14#ucs-range->char-set '2434 '2436)
       (std/srfi/14#ucs-range->char-set '2495 '2497)
       (std/srfi/14#ucs-range->char-set '2503 '2505)
       (std/srfi/14#ucs-range->char-set '2507 '2509)
       (std/srfi/14#ucs-range->char-set '2622 '2625)
       (std/srfi/14#ucs-range->char-set '2750 '2753)
       (std/srfi/14#ucs-range->char-set '2763 '2765)
       (std/srfi/14#ucs-range->char-set '2818 '2820)
       (std/srfi/14#ucs-range->char-set '2887 '2889)
       (std/srfi/14#ucs-range->char-set '2891 '2893)
       (std/srfi/14#ucs-range->char-set '3009 '3011)
       (std/srfi/14#ucs-range->char-set '3014 '3017)
       (std/srfi/14#ucs-range->char-set '3018 '3021)
       (std/srfi/14#ucs-range->char-set '3073 '3076)
       (std/srfi/14#ucs-range->char-set '3137 '3141)
       (std/srfi/14#ucs-range->char-set '3202 '3204)
       (std/srfi/14#ucs-range->char-set '3264 '3266)
       (std/srfi/14#ucs-range->char-set '3267 '3269)
       (std/srfi/14#ucs-range->char-set '3271 '3273)
       (std/srfi/14#ucs-range->char-set '3274 '3276)
       (std/srfi/14#ucs-range->char-set '3330 '3332)
       (std/srfi/14#ucs-range->char-set '3391 '3393)
       (std/srfi/14#ucs-range->char-set '3398 '3401)
       (std/srfi/14#ucs-range->char-set '3402 '3405)
       (std/srfi/14#ucs-range->char-set '3458 '3460)
       (std/srfi/14#ucs-range->char-set '3536 '3538)
       (std/srfi/14#ucs-range->char-set '3544 '3551)
       (std/srfi/14#ucs-range->char-set '3570 '3572)
       (std/srfi/14#ucs-range->char-set '3902 '3904)
       (std/srfi/14#ucs-range->char-set '4155 '4157)
       (std/srfi/14#ucs-range->char-set '4182 '4184)
       (std/srfi/14#ucs-range->char-set '6078 '6086)
       (std/srfi/14#ucs-range->char-set '6087 '6089)
       (std/srfi/14#ucs-range->char-set '6435 '6439)
       (std/srfi/14#ucs-range->char-set '6441 '6444)
       (std/srfi/14#ucs-range->char-set '6448 '6450)
       (std/srfi/14#ucs-range->char-set '6451 '6457)
       (std/srfi/14#ucs-range->char-set '6581 '6584)
       (std/srfi/14#ucs-range->char-set '6681 '6683)
       (std/srfi/14#ucs-range->char-set '6765 '6771)
       (std/srfi/14#ucs-range->char-set '6973 '6978)
       (std/srfi/14#ucs-range->char-set '6979 '6981)
       (std/srfi/14#ucs-range->char-set '7078 '7080)
       (std/srfi/14#ucs-range->char-set '7084 '7086)
       (std/srfi/14#ucs-range->char-set '7146 '7149)
       (std/srfi/14#ucs-range->char-set '7154 '7156)
       (std/srfi/14#ucs-range->char-set '7204 '7212)
       (std/srfi/14#ucs-range->char-set '7220 '7222)
       (std/srfi/14#ucs-range->char-set '7410 '7412)
       (std/srfi/14#ucs-range->char-set '43043 '43045)
       (std/srfi/14#ucs-range->char-set '43136 '43138)
       (std/srfi/14#ucs-range->char-set '43188 '43204)
       (std/srfi/14#ucs-range->char-set '43346 '43348)
       (std/srfi/14#ucs-range->char-set '43444 '43446)
       (std/srfi/14#ucs-range->char-set '43450 '43452)
       (std/srfi/14#ucs-range->char-set '43453 '43457)
       (std/srfi/14#ucs-range->char-set '43567 '43569)
       (std/srfi/14#ucs-range->char-set '43571 '43573)
       (std/srfi/14#ucs-range->char-set '43758 '43760)
       (std/srfi/14#ucs-range->char-set '44003 '44005)
       (std/srfi/14#ucs-range->char-set '44006 '44008)
       (std/srfi/14#ucs-range->char-set '44009 '44011)
       (std/srfi/14#ucs-range->char-set '69808 '69811)
       (std/srfi/14#ucs-range->char-set '69815 '69817)
       (std/srfi/14#ucs-range->char-set '70067 '70070)
       (std/srfi/14#ucs-range->char-set '70079 '70081)
       (std/srfi/14#ucs-range->char-set '71342 '71344)
       (std/srfi/14#ucs-range->char-set '94033 '94079)))))
  (define std/srfi/115#char-set:regional-indicator
    (std/srfi/115#immutable-char-set
     (std/srfi/14#char-set-union
      (std/srfi/14#ucs-range->char-set '127462 '127488))))
  (define std/srfi/115#char-set:hangul-l
    (std/srfi/115#immutable-char-set
     (std/srfi/14#char-set-union
      (std/srfi/14#ucs-range->char-set '4352 '4448)
      (std/srfi/14#ucs-range->char-set '43360 '43389))))
  (define std/srfi/115#char-set:hangul-v
    (std/srfi/115#immutable-char-set
     (std/srfi/14#char-set-union
      (std/srfi/14#ucs-range->char-set '4448 '4520)
      (std/srfi/14#ucs-range->char-set '55216 '55239))))
  (define std/srfi/115#char-set:hangul-t
    (std/srfi/115#immutable-char-set
     (std/srfi/14#char-set-union
      (std/srfi/14#ucs-range->char-set '4520 '4608)
      (std/srfi/14#ucs-range->char-set '55243 '55292))))
  (define std/srfi/115#char-set:hangul-lv
    (std/srfi/115#immutable-char-set (std/srfi/14#char-set-union)))
  (define std/srfi/115#char-set:hangul-lvt
    (std/srfi/115#immutable-char-set
     (std/srfi/14#char-set-union
      (std/srfi/14#ucs-range->char-set '44033 '44060)
      (std/srfi/14#ucs-range->char-set '44061 '44088)
      (std/srfi/14#ucs-range->char-set '44089 '44116)
      (std/srfi/14#ucs-range->char-set '44117 '44144)
      (std/srfi/14#ucs-range->char-set '44145 '44172)
      (std/srfi/14#ucs-range->char-set '44173 '44200)
      (std/srfi/14#ucs-range->char-set '44201 '44228)
      (std/srfi/14#ucs-range->char-set '44229 '44256)
      (std/srfi/14#ucs-range->char-set '44257 '44284)
      (std/srfi/14#ucs-range->char-set '44285 '44312)
      (std/srfi/14#ucs-range->char-set '44313 '44340)
      (std/srfi/14#ucs-range->char-set '44341 '44368)
      (std/srfi/14#ucs-range->char-set '44369 '44396)
      (std/srfi/14#ucs-range->char-set '44397 '44424)
      (std/srfi/14#ucs-range->char-set '44425 '44452)
      (std/srfi/14#ucs-range->char-set '44453 '44480)
      (std/srfi/14#ucs-range->char-set '44481 '44508)
      (std/srfi/14#ucs-range->char-set '44509 '44536)
      (std/srfi/14#ucs-range->char-set '44537 '44564)
      (std/srfi/14#ucs-range->char-set '44565 '44592)
      (std/srfi/14#ucs-range->char-set '44593 '44620)
      (std/srfi/14#ucs-range->char-set '44621 '44648)
      (std/srfi/14#ucs-range->char-set '44649 '44676)
      (std/srfi/14#ucs-range->char-set '44677 '44704)
      (std/srfi/14#ucs-range->char-set '44705 '44732)
      (std/srfi/14#ucs-range->char-set '44733 '44760)
      (std/srfi/14#ucs-range->char-set '44761 '44788)
      (std/srfi/14#ucs-range->char-set '44789 '44816)
      (std/srfi/14#ucs-range->char-set '44817 '44844)
      (std/srfi/14#ucs-range->char-set '44845 '44872)
      (std/srfi/14#ucs-range->char-set '44873 '44900)
      (std/srfi/14#ucs-range->char-set '44901 '44928)
      (std/srfi/14#ucs-range->char-set '44929 '44956)
      (std/srfi/14#ucs-range->char-set '44957 '44984)
      (std/srfi/14#ucs-range->char-set '44985 '45012)
      (std/srfi/14#ucs-range->char-set '45013 '45040)
      (std/srfi/14#ucs-range->char-set '45041 '45068)
      (std/srfi/14#ucs-range->char-set '45069 '45096)
      (std/srfi/14#ucs-range->char-set '45097 '45124)
      (std/srfi/14#ucs-range->char-set '45125 '45152)
      (std/srfi/14#ucs-range->char-set '45153 '45180)
      (std/srfi/14#ucs-range->char-set '45181 '45208)
      (std/srfi/14#ucs-range->char-set '45209 '45236)
      (std/srfi/14#ucs-range->char-set '45237 '45264)
      (std/srfi/14#ucs-range->char-set '45265 '45292)
      (std/srfi/14#ucs-range->char-set '45293 '45320)
      (std/srfi/14#ucs-range->char-set '45321 '45348)
      (std/srfi/14#ucs-range->char-set '45349 '45376)
      (std/srfi/14#ucs-range->char-set '45377 '45404)
      (std/srfi/14#ucs-range->char-set '45405 '45432)
      (std/srfi/14#ucs-range->char-set '45433 '45460)
      (std/srfi/14#ucs-range->char-set '45461 '45488)
      (std/srfi/14#ucs-range->char-set '45489 '45516)
      (std/srfi/14#ucs-range->char-set '45517 '45544)
      (std/srfi/14#ucs-range->char-set '45545 '45572)
      (std/srfi/14#ucs-range->char-set '45573 '45600)
      (std/srfi/14#ucs-range->char-set '45601 '45628)
      (std/srfi/14#ucs-range->char-set '45629 '45656)
      (std/srfi/14#ucs-range->char-set '45657 '45684)
      (std/srfi/14#ucs-range->char-set '45685 '45712)
      (std/srfi/14#ucs-range->char-set '45713 '45740)
      (std/srfi/14#ucs-range->char-set '45741 '45768)
      (std/srfi/14#ucs-range->char-set '45769 '45796)
      (std/srfi/14#ucs-range->char-set '45797 '45824)
      (std/srfi/14#ucs-range->char-set '45825 '45852)
      (std/srfi/14#ucs-range->char-set '45853 '45880)
      (std/srfi/14#ucs-range->char-set '45881 '45908)
      (std/srfi/14#ucs-range->char-set '45909 '45936)
      (std/srfi/14#ucs-range->char-set '45937 '45964)
      (std/srfi/14#ucs-range->char-set '45965 '45992)
      (std/srfi/14#ucs-range->char-set '45993 '46020)
      (std/srfi/14#ucs-range->char-set '46021 '46048)
      (std/srfi/14#ucs-range->char-set '46049 '46076)
      (std/srfi/14#ucs-range->char-set '46077 '46104)
      (std/srfi/14#ucs-range->char-set '46105 '46132)
      (std/srfi/14#ucs-range->char-set '46133 '46160)
      (std/srfi/14#ucs-range->char-set '46161 '46188)
      (std/srfi/14#ucs-range->char-set '46189 '46216)
      (std/srfi/14#ucs-range->char-set '46217 '46244)
      (std/srfi/14#ucs-range->char-set '46245 '46272)
      (std/srfi/14#ucs-range->char-set '46273 '46300)
      (std/srfi/14#ucs-range->char-set '46301 '46328)
      (std/srfi/14#ucs-range->char-set '46329 '46356)
      (std/srfi/14#ucs-range->char-set '46357 '46384)
      (std/srfi/14#ucs-range->char-set '46385 '46412)
      (std/srfi/14#ucs-range->char-set '46413 '46440)
      (std/srfi/14#ucs-range->char-set '46441 '46468)
      (std/srfi/14#ucs-range->char-set '46469 '46496)
      (std/srfi/14#ucs-range->char-set '46497 '46524)
      (std/srfi/14#ucs-range->char-set '46525 '46552)
      (std/srfi/14#ucs-range->char-set '46553 '46580)
      (std/srfi/14#ucs-range->char-set '46581 '46608)
      (std/srfi/14#ucs-range->char-set '46609 '46636)
      (std/srfi/14#ucs-range->char-set '46637 '46664)
      (std/srfi/14#ucs-range->char-set '46665 '46692)
      (std/srfi/14#ucs-range->char-set '46693 '46720)
      (std/srfi/14#ucs-range->char-set '46721 '46748)
      (std/srfi/14#ucs-range->char-set '46749 '46776)
      (std/srfi/14#ucs-range->char-set '46777 '46804)
      (std/srfi/14#ucs-range->char-set '46805 '46832)
      (std/srfi/14#ucs-range->char-set '46833 '46860)
      (std/srfi/14#ucs-range->char-set '46861 '46888)
      (std/srfi/14#ucs-range->char-set '46889 '46916)
      (std/srfi/14#ucs-range->char-set '46917 '46944)
      (std/srfi/14#ucs-range->char-set '46945 '46972)
      (std/srfi/14#ucs-range->char-set '46973 '47000)
      (std/srfi/14#ucs-range->char-set '47001 '47028)
      (std/srfi/14#ucs-range->char-set '47029 '47056)
      (std/srfi/14#ucs-range->char-set '47057 '47084)
      (std/srfi/14#ucs-range->char-set '47085 '47112)
      (std/srfi/14#ucs-range->char-set '47113 '47140)
      (std/srfi/14#ucs-range->char-set '47141 '47168)
      (std/srfi/14#ucs-range->char-set '47169 '47196)
      (std/srfi/14#ucs-range->char-set '47197 '47224)
      (std/srfi/14#ucs-range->char-set '47225 '47252)
      (std/srfi/14#ucs-range->char-set '47253 '47280)
      (std/srfi/14#ucs-range->char-set '47281 '47308)
      (std/srfi/14#ucs-range->char-set '47309 '47336)
      (std/srfi/14#ucs-range->char-set '47337 '47364)
      (std/srfi/14#ucs-range->char-set '47365 '47392)
      (std/srfi/14#ucs-range->char-set '47393 '47420)
      (std/srfi/14#ucs-range->char-set '47421 '47448)
      (std/srfi/14#ucs-range->char-set '47449 '47476)
      (std/srfi/14#ucs-range->char-set '47477 '47504)
      (std/srfi/14#ucs-range->char-set '47505 '47532)
      (std/srfi/14#ucs-range->char-set '47533 '47560)
      (std/srfi/14#ucs-range->char-set '47561 '47588)
      (std/srfi/14#ucs-range->char-set '47589 '47616)
      (std/srfi/14#ucs-range->char-set '47617 '47644)
      (std/srfi/14#ucs-range->char-set '47645 '47672)
      (std/srfi/14#ucs-range->char-set '47673 '47700)
      (std/srfi/14#ucs-range->char-set '47701 '47728)
      (std/srfi/14#ucs-range->char-set '47729 '47756)
      (std/srfi/14#ucs-range->char-set '47757 '47784)
      (std/srfi/14#ucs-range->char-set '47785 '47812)
      (std/srfi/14#ucs-range->char-set '47813 '47840)
      (std/srfi/14#ucs-range->char-set '47841 '47868)
      (std/srfi/14#ucs-range->char-set '47869 '47896)
      (std/srfi/14#ucs-range->char-set '47897 '47924)
      (std/srfi/14#ucs-range->char-set '47925 '47952)
      (std/srfi/14#ucs-range->char-set '47953 '47980)
      (std/srfi/14#ucs-range->char-set '47981 '48008)
      (std/srfi/14#ucs-range->char-set '48009 '48036)
      (std/srfi/14#ucs-range->char-set '48037 '48064)
      (std/srfi/14#ucs-range->char-set '48065 '48092)
      (std/srfi/14#ucs-range->char-set '48093 '48120)
      (std/srfi/14#ucs-range->char-set '48121 '48148)
      (std/srfi/14#ucs-range->char-set '48149 '48176)
      (std/srfi/14#ucs-range->char-set '48177 '48204)
      (std/srfi/14#ucs-range->char-set '48205 '48232)
      (std/srfi/14#ucs-range->char-set '48233 '48260)
      (std/srfi/14#ucs-range->char-set '48261 '48288)
      (std/srfi/14#ucs-range->char-set '48289 '48316)
      (std/srfi/14#ucs-range->char-set '48317 '48344)
      (std/srfi/14#ucs-range->char-set '48345 '48372)
      (std/srfi/14#ucs-range->char-set '48373 '48400)
      (std/srfi/14#ucs-range->char-set '48401 '48428)
      (std/srfi/14#ucs-range->char-set '48429 '48456)
      (std/srfi/14#ucs-range->char-set '48457 '48484)
      (std/srfi/14#ucs-range->char-set '48485 '48512)
      (std/srfi/14#ucs-range->char-set '48513 '48540)
      (std/srfi/14#ucs-range->char-set '48541 '48568)
      (std/srfi/14#ucs-range->char-set '48569 '48596)
      (std/srfi/14#ucs-range->char-set '48597 '48624)
      (std/srfi/14#ucs-range->char-set '48625 '48652)
      (std/srfi/14#ucs-range->char-set '48653 '48680)
      (std/srfi/14#ucs-range->char-set '48681 '48708)
      (std/srfi/14#ucs-range->char-set '48709 '48736)
      (std/srfi/14#ucs-range->char-set '48737 '48764)
      (std/srfi/14#ucs-range->char-set '48765 '48792)
      (std/srfi/14#ucs-range->char-set '48793 '48820)
      (std/srfi/14#ucs-range->char-set '48821 '48848)
      (std/srfi/14#ucs-range->char-set '48849 '48876)
      (std/srfi/14#ucs-range->char-set '48877 '48904)
      (std/srfi/14#ucs-range->char-set '48905 '48932)
      (std/srfi/14#ucs-range->char-set '48933 '48960)
      (std/srfi/14#ucs-range->char-set '48961 '48988)
      (std/srfi/14#ucs-range->char-set '48989 '49016)
      (std/srfi/14#ucs-range->char-set '49017 '49044)
      (std/srfi/14#ucs-range->char-set '49045 '49072)
      (std/srfi/14#ucs-range->char-set '49073 '49100)
      (std/srfi/14#ucs-range->char-set '49101 '49128)
      (std/srfi/14#ucs-range->char-set '49129 '49156)
      (std/srfi/14#ucs-range->char-set '49157 '49184)
      (std/srfi/14#ucs-range->char-set '49185 '49212)
      (std/srfi/14#ucs-range->char-set '49213 '49240)
      (std/srfi/14#ucs-range->char-set '49241 '49268)
      (std/srfi/14#ucs-range->char-set '49269 '49296)
      (std/srfi/14#ucs-range->char-set '49297 '49324)
      (std/srfi/14#ucs-range->char-set '49325 '49352)
      (std/srfi/14#ucs-range->char-set '49353 '49380)
      (std/srfi/14#ucs-range->char-set '49381 '49408)
      (std/srfi/14#ucs-range->char-set '49409 '49436)
      (std/srfi/14#ucs-range->char-set '49437 '49464)
      (std/srfi/14#ucs-range->char-set '49465 '49492)
      (std/srfi/14#ucs-range->char-set '49493 '49520)
      (std/srfi/14#ucs-range->char-set '49521 '49548)
      (std/srfi/14#ucs-range->char-set '49549 '49576)
      (std/srfi/14#ucs-range->char-set '49577 '49604)
      (std/srfi/14#ucs-range->char-set '49605 '49632)
      (std/srfi/14#ucs-range->char-set '49633 '49660)
      (std/srfi/14#ucs-range->char-set '49661 '49688)
      (std/srfi/14#ucs-range->char-set '49689 '49716)
      (std/srfi/14#ucs-range->char-set '49717 '49744)
      (std/srfi/14#ucs-range->char-set '49745 '49772)
      (std/srfi/14#ucs-range->char-set '49773 '49800)
      (std/srfi/14#ucs-range->char-set '49801 '49828)
      (std/srfi/14#ucs-range->char-set '49829 '49856)
      (std/srfi/14#ucs-range->char-set '49857 '49884)
      (std/srfi/14#ucs-range->char-set '49885 '49912)
      (std/srfi/14#ucs-range->char-set '49913 '49940)
      (std/srfi/14#ucs-range->char-set '49941 '49968)
      (std/srfi/14#ucs-range->char-set '49969 '49996)
      (std/srfi/14#ucs-range->char-set '49997 '50024)
      (std/srfi/14#ucs-range->char-set '50025 '50052)
      (std/srfi/14#ucs-range->char-set '50053 '50080)
      (std/srfi/14#ucs-range->char-set '50081 '50108)
      (std/srfi/14#ucs-range->char-set '50109 '50136)
      (std/srfi/14#ucs-range->char-set '50137 '50164)
      (std/srfi/14#ucs-range->char-set '50165 '50192)
      (std/srfi/14#ucs-range->char-set '50193 '50220)
      (std/srfi/14#ucs-range->char-set '50221 '50248)
      (std/srfi/14#ucs-range->char-set '50249 '50276)
      (std/srfi/14#ucs-range->char-set '50277 '50304)
      (std/srfi/14#ucs-range->char-set '50305 '50332)
      (std/srfi/14#ucs-range->char-set '50333 '50360)
      (std/srfi/14#ucs-range->char-set '50361 '50388)
      (std/srfi/14#ucs-range->char-set '50389 '50416)
      (std/srfi/14#ucs-range->char-set '50417 '50444)
      (std/srfi/14#ucs-range->char-set '50445 '50472)
      (std/srfi/14#ucs-range->char-set '50473 '50500)
      (std/srfi/14#ucs-range->char-set '50501 '50528)
      (std/srfi/14#ucs-range->char-set '50529 '50556)
      (std/srfi/14#ucs-range->char-set '50557 '50584)
      (std/srfi/14#ucs-range->char-set '50585 '50612)
      (std/srfi/14#ucs-range->char-set '50613 '50640)
      (std/srfi/14#ucs-range->char-set '50641 '50668)
      (std/srfi/14#ucs-range->char-set '50669 '50696)
      (std/srfi/14#ucs-range->char-set '50697 '50724)
      (std/srfi/14#ucs-range->char-set '50725 '50752)
      (std/srfi/14#ucs-range->char-set '50753 '50780)
      (std/srfi/14#ucs-range->char-set '50781 '50808)
      (std/srfi/14#ucs-range->char-set '50809 '50836)
      (std/srfi/14#ucs-range->char-set '50837 '50864)
      (std/srfi/14#ucs-range->char-set '50865 '50892)
      (std/srfi/14#ucs-range->char-set '50893 '50920)
      (std/srfi/14#ucs-range->char-set '50921 '50948)
      (std/srfi/14#ucs-range->char-set '50949 '50976)
      (std/srfi/14#ucs-range->char-set '50977 '51004)
      (std/srfi/14#ucs-range->char-set '51005 '51032)
      (std/srfi/14#ucs-range->char-set '51033 '51060)
      (std/srfi/14#ucs-range->char-set '51061 '51088)
      (std/srfi/14#ucs-range->char-set '51089 '51116)
      (std/srfi/14#ucs-range->char-set '51117 '51144)
      (std/srfi/14#ucs-range->char-set '51145 '51172)
      (std/srfi/14#ucs-range->char-set '51173 '51200)
      (std/srfi/14#ucs-range->char-set '51201 '51228)
      (std/srfi/14#ucs-range->char-set '51229 '51256)
      (std/srfi/14#ucs-range->char-set '51257 '51284)
      (std/srfi/14#ucs-range->char-set '51285 '51312)
      (std/srfi/14#ucs-range->char-set '51313 '51340)
      (std/srfi/14#ucs-range->char-set '51341 '51368)
      (std/srfi/14#ucs-range->char-set '51369 '51396)
      (std/srfi/14#ucs-range->char-set '51397 '51424)
      (std/srfi/14#ucs-range->char-set '51425 '51452)
      (std/srfi/14#ucs-range->char-set '51453 '51480)
      (std/srfi/14#ucs-range->char-set '51481 '51508)
      (std/srfi/14#ucs-range->char-set '51509 '51536)
      (std/srfi/14#ucs-range->char-set '51537 '51564)
      (std/srfi/14#ucs-range->char-set '51565 '51592)
      (std/srfi/14#ucs-range->char-set '51593 '51620)
      (std/srfi/14#ucs-range->char-set '51621 '51648)
      (std/srfi/14#ucs-range->char-set '51649 '51676)
      (std/srfi/14#ucs-range->char-set '51677 '51704)
      (std/srfi/14#ucs-range->char-set '51705 '51732)
      (std/srfi/14#ucs-range->char-set '51733 '51760)
      (std/srfi/14#ucs-range->char-set '51761 '51788)
      (std/srfi/14#ucs-range->char-set '51789 '51816)
      (std/srfi/14#ucs-range->char-set '51817 '51844)
      (std/srfi/14#ucs-range->char-set '51845 '51872)
      (std/srfi/14#ucs-range->char-set '51873 '51900)
      (std/srfi/14#ucs-range->char-set '51901 '51928)
      (std/srfi/14#ucs-range->char-set '51929 '51956)
      (std/srfi/14#ucs-range->char-set '51957 '51984)
      (std/srfi/14#ucs-range->char-set '51985 '52012)
      (std/srfi/14#ucs-range->char-set '52013 '52040)
      (std/srfi/14#ucs-range->char-set '52041 '52068)
      (std/srfi/14#ucs-range->char-set '52069 '52096)
      (std/srfi/14#ucs-range->char-set '52097 '52124)
      (std/srfi/14#ucs-range->char-set '52125 '52152)
      (std/srfi/14#ucs-range->char-set '52153 '52180)
      (std/srfi/14#ucs-range->char-set '52181 '52208)
      (std/srfi/14#ucs-range->char-set '52209 '52236)
      (std/srfi/14#ucs-range->char-set '52237 '52264)
      (std/srfi/14#ucs-range->char-set '52265 '52292)
      (std/srfi/14#ucs-range->char-set '52293 '52320)
      (std/srfi/14#ucs-range->char-set '52321 '52348)
      (std/srfi/14#ucs-range->char-set '52349 '52376)
      (std/srfi/14#ucs-range->char-set '52377 '52404)
      (std/srfi/14#ucs-range->char-set '52405 '52432)
      (std/srfi/14#ucs-range->char-set '52433 '52460)
      (std/srfi/14#ucs-range->char-set '52461 '52488)
      (std/srfi/14#ucs-range->char-set '52489 '52516)
      (std/srfi/14#ucs-range->char-set '52517 '52544)
      (std/srfi/14#ucs-range->char-set '52545 '52572)
      (std/srfi/14#ucs-range->char-set '52573 '52600)
      (std/srfi/14#ucs-range->char-set '52601 '52628)
      (std/srfi/14#ucs-range->char-set '52629 '52656)
      (std/srfi/14#ucs-range->char-set '52657 '52684)
      (std/srfi/14#ucs-range->char-set '52685 '52712)
      (std/srfi/14#ucs-range->char-set '52713 '52740)
      (std/srfi/14#ucs-range->char-set '52741 '52768)
      (std/srfi/14#ucs-range->char-set '52769 '52796)
      (std/srfi/14#ucs-range->char-set '52797 '52824)
      (std/srfi/14#ucs-range->char-set '52825 '52852)
      (std/srfi/14#ucs-range->char-set '52853 '52880)
      (std/srfi/14#ucs-range->char-set '52881 '52908)
      (std/srfi/14#ucs-range->char-set '52909 '52936)
      (std/srfi/14#ucs-range->char-set '52937 '52964)
      (std/srfi/14#ucs-range->char-set '52965 '52992)
      (std/srfi/14#ucs-range->char-set '52993 '53020)
      (std/srfi/14#ucs-range->char-set '53021 '53048)
      (std/srfi/14#ucs-range->char-set '53049 '53076)
      (std/srfi/14#ucs-range->char-set '53077 '53104)
      (std/srfi/14#ucs-range->char-set '53105 '53132)
      (std/srfi/14#ucs-range->char-set '53133 '53160)
      (std/srfi/14#ucs-range->char-set '53161 '53188)
      (std/srfi/14#ucs-range->char-set '53189 '53216)
      (std/srfi/14#ucs-range->char-set '53217 '53244)
      (std/srfi/14#ucs-range->char-set '53245 '53272)
      (std/srfi/14#ucs-range->char-set '53273 '53300)
      (std/srfi/14#ucs-range->char-set '53301 '53328)
      (std/srfi/14#ucs-range->char-set '53329 '53356)
      (std/srfi/14#ucs-range->char-set '53357 '53384)
      (std/srfi/14#ucs-range->char-set '53385 '53412)
      (std/srfi/14#ucs-range->char-set '53413 '53440)
      (std/srfi/14#ucs-range->char-set '53441 '53468)
      (std/srfi/14#ucs-range->char-set '53469 '53496)
      (std/srfi/14#ucs-range->char-set '53497 '53524)
      (std/srfi/14#ucs-range->char-set '53525 '53552)
      (std/srfi/14#ucs-range->char-set '53553 '53580)
      (std/srfi/14#ucs-range->char-set '53581 '53608)
      (std/srfi/14#ucs-range->char-set '53609 '53636)
      (std/srfi/14#ucs-range->char-set '53637 '53664)
      (std/srfi/14#ucs-range->char-set '53665 '53692)
      (std/srfi/14#ucs-range->char-set '53693 '53720)
      (std/srfi/14#ucs-range->char-set '53721 '53748)
      (std/srfi/14#ucs-range->char-set '53749 '53776)
      (std/srfi/14#ucs-range->char-set '53777 '53804)
      (std/srfi/14#ucs-range->char-set '53805 '53832)
      (std/srfi/14#ucs-range->char-set '53833 '53860)
      (std/srfi/14#ucs-range->char-set '53861 '53888)
      (std/srfi/14#ucs-range->char-set '53889 '53916)
      (std/srfi/14#ucs-range->char-set '53917 '53944)
      (std/srfi/14#ucs-range->char-set '53945 '53972)
      (std/srfi/14#ucs-range->char-set '53973 '54000)
      (std/srfi/14#ucs-range->char-set '54001 '54028)
      (std/srfi/14#ucs-range->char-set '54029 '54056)
      (std/srfi/14#ucs-range->char-set '54057 '54084)
      (std/srfi/14#ucs-range->char-set '54085 '54112)
      (std/srfi/14#ucs-range->char-set '54113 '54140)
      (std/srfi/14#ucs-range->char-set '54141 '54168)
      (std/srfi/14#ucs-range->char-set '54169 '54196)
      (std/srfi/14#ucs-range->char-set '54197 '54224)
      (std/srfi/14#ucs-range->char-set '54225 '54252)
      (std/srfi/14#ucs-range->char-set '54253 '54280)
      (std/srfi/14#ucs-range->char-set '54281 '54308)
      (std/srfi/14#ucs-range->char-set '54309 '54336)
      (std/srfi/14#ucs-range->char-set '54337 '54364)
      (std/srfi/14#ucs-range->char-set '54365 '54392)
      (std/srfi/14#ucs-range->char-set '54393 '54420)
      (std/srfi/14#ucs-range->char-set '54421 '54448)
      (std/srfi/14#ucs-range->char-set '54449 '54476)
      (std/srfi/14#ucs-range->char-set '54477 '54504)
      (std/srfi/14#ucs-range->char-set '54505 '54532)
      (std/srfi/14#ucs-range->char-set '54533 '54560)
      (std/srfi/14#ucs-range->char-set '54561 '54588)
      (std/srfi/14#ucs-range->char-set '54589 '54616)
      (std/srfi/14#ucs-range->char-set '54617 '54644)
      (std/srfi/14#ucs-range->char-set '54645 '54672)
      (std/srfi/14#ucs-range->char-set '54673 '54700)
      (std/srfi/14#ucs-range->char-set '54701 '54728)
      (std/srfi/14#ucs-range->char-set '54729 '54756)
      (std/srfi/14#ucs-range->char-set '54757 '54784)
      (std/srfi/14#ucs-range->char-set '54785 '54812)
      (std/srfi/14#ucs-range->char-set '54813 '54840)
      (std/srfi/14#ucs-range->char-set '54841 '54868)
      (std/srfi/14#ucs-range->char-set '54869 '54896)
      (std/srfi/14#ucs-range->char-set '54897 '54924)
      (std/srfi/14#ucs-range->char-set '54925 '54952)
      (std/srfi/14#ucs-range->char-set '54953 '54980)
      (std/srfi/14#ucs-range->char-set '54981 '55008)
      (std/srfi/14#ucs-range->char-set '55009 '55036)
      (std/srfi/14#ucs-range->char-set '55037 '55064)
      (std/srfi/14#ucs-range->char-set '55065 '55092)
      (std/srfi/14#ucs-range->char-set '55093 '55120)
      (std/srfi/14#ucs-range->char-set '55121 '55148)
      (std/srfi/14#ucs-range->char-set '55149 '55176)
      (std/srfi/14#ucs-range->char-set '55177 '55204))))
  (define std/srfi/115#Rx
    (make-struct-type
     'std/srfi/115#Rx
     '#f
     '7
     'Rx
     '((fields:
        start-state
        num-matches
        num-save-indexes
        non-greedy-indexes
        match-rules
        match-names
        sre))
     '#f))
  (define std/srfi/115#regexp? (make-struct-predicate std/srfi/115#Rx))
  (define std/srfi/115#rx-start-state
    (make-struct-field-accessor std/srfi/115#Rx '0))
  (define std/srfi/115#rx-num-matches
    (make-struct-field-accessor std/srfi/115#Rx '1))
  (define std/srfi/115#rx-num-save-indexes
    (make-struct-field-accessor std/srfi/115#Rx '2))
  (define std/srfi/115#rx-non-greedy-indexes
    (make-struct-field-accessor std/srfi/115#Rx '3))
  (define std/srfi/115#rx-rules
    (make-struct-field-accessor std/srfi/115#Rx '4))
  (define std/srfi/115#rx-names
    (make-struct-field-accessor std/srfi/115#Rx '5))
  (define std/srfi/115#regexp->sre
    (make-struct-field-accessor std/srfi/115#Rx '6))
  (define std/srfi/115#rx-start-state-set!
    (make-struct-field-mutator std/srfi/115#Rx '0))
  (define std/srfi/115#rx-num-matches-set!
    (make-struct-field-mutator std/srfi/115#Rx '1))
  (define std/srfi/115#rx-num-save-indexes-set!
    (make-struct-field-mutator std/srfi/115#Rx '2))
  (define std/srfi/115#rx-non-greedy-indexes-set!
    (make-struct-field-mutator std/srfi/115#Rx '3))
  (define std/srfi/115#rx-rules-set!
    (make-struct-field-mutator std/srfi/115#Rx '4))
  (define std/srfi/115#rx-names-set!
    (make-struct-field-mutator std/srfi/115#Rx '5))
  (define std/srfi/115#make-rx
    (lambda (_start-state1472_
             _num-matches1473_
             _num-save-indexes1474_
             _non-greedy-indexes1475_
             _match-rules1476_
             _match-names1477_
             _sre1478_)
      (make-struct-instance
       std/srfi/115#Rx
       _start-state1472_
       _num-matches1473_
       _num-save-indexes1474_
       _non-greedy-indexes1475_
       _match-rules1476_
       _match-names1477_
       _sre1478_)))
  (define std/srfi/115#State
    (make-struct-type
     'std/srfi/115#State
     '#f
     '7
     'State
     '((fields: accept? chars match match-rule next1 next2 id))
     '#f))
  (define std/srfi/115#state? (make-struct-predicate std/srfi/115#State))
  (define std/srfi/115#state-accept?
    (make-struct-field-accessor std/srfi/115#State '0))
  (define std/srfi/115#state-chars
    (make-struct-field-accessor std/srfi/115#State '1))
  (define std/srfi/115#state-match
    (make-struct-field-accessor std/srfi/115#State '2))
  (define std/srfi/115#state-match-rule
    (make-struct-field-accessor std/srfi/115#State '3))
  (define std/srfi/115#state-next1
    (make-struct-field-accessor std/srfi/115#State '4))
  (define std/srfi/115#state-next2
    (make-struct-field-accessor std/srfi/115#State '5))
  (define std/srfi/115#state-id
    (make-struct-field-accessor std/srfi/115#State '6))
  (define std/srfi/115#state-accept?-set!
    (make-struct-field-mutator std/srfi/115#State '0))
  (define std/srfi/115#state-chars-set!
    (make-struct-field-mutator std/srfi/115#State '1))
  (define std/srfi/115#state-match-set!
    (make-struct-field-mutator std/srfi/115#State '2))
  (define std/srfi/115#state-match-rule-set!
    (make-struct-field-mutator std/srfi/115#State '3))
  (define std/srfi/115#state-next1-set!
    (make-struct-field-mutator std/srfi/115#State '4))
  (define std/srfi/115#state-next2-set!
    (make-struct-field-mutator std/srfi/115#State '5))
  (define std/srfi/115#%make-state
    (lambda (_accept?1464_
             _chars1465_
             _match1466_
             _match-rule1467_
             _next11468_
             _next21469_
             _id1470_)
      (make-struct-instance
       std/srfi/115#State
       _accept?1464_
       _chars1465_
       _match1466_
       _match-rule1467_
       _next11468_
       _next21469_
       _id1470_)))
  (define std/srfi/115#make-state
    (lambda (_accept?1456_
             _chars1457_
             _match1458_
             _match-rule1459_
             _next11460_
             _next21461_
             _id1462_)
      (if (and _next11460_
               (not (let ()
                      (declare (not safe))
                      (##structure-instance-of?
                       _next11460_
                       'std/srfi/115#State))))
          (error '"expected a state" _next11460_)
          '#!void)
      (if (and _next21461_
               (not (let ()
                      (declare (not safe))
                      (##structure-instance-of?
                       _next21461_
                       'std/srfi/115#State))))
          (error '"expected a state" _next21461_)
          '#!void)
      (let ()
        (declare (not safe))
        (##structure
         std/srfi/115#State
         _accept?1456_
         _chars1457_
         _match1458_
         _match-rule1459_
         _next11460_
         _next21461_
         _id1462_))))
  (define std/srfi/115#~none '0)
  (define std/srfi/115#~ci? '1)
  (define std/srfi/115#~ascii? '2)
  (define std/srfi/115#~nocapture? '4)
  (define std/srfi/115#flag-set?
    (lambda (_flags1453_ _i1454_)
      (= _i1454_ (bitwise-and _flags1453_ _i1454_))))
  (define std/srfi/115#flag-join
    (lambda (_a1450_ _b1451_)
      (if _b1451_ (bitwise-ior _a1450_ _b1451_) _a1450_)))
  (define std/srfi/115#flag-clear
    (lambda (_a1447_ _b1448_) (bitwise-and _a1447_ (bitwise-not _b1448_))))
  (define std/srfi/115#char-set-ci
    (lambda (_cset1442_)
      (std/srfi/14#char-set-fold
       (lambda (_ch1444_ _res1445_)
         (std/srfi/14#char-set-adjoin!
          (std/srfi/14#char-set-adjoin! _res1445_ (char-upcase _ch1444_))
          (char-downcase _ch1444_)))
       (std/srfi/14#char-set)
       _cset1442_)))
  (define std/srfi/115#make-char-state
    (lambda (_ch1435_ _flags1436_ _next1437_ _id1438_)
      (if (std/srfi/115#flag-set? _flags1436_ std/srfi/115#~ci?)
          (let ((_cset1440_
                 (if (char? _ch1435_)
                     (std/srfi/115#char-set-ci (std/srfi/14#char-set _ch1435_))
                     (if (let ()
                           (declare (not safe))
                           (##structure-instance-of?
                            _ch1435_
                            'std/srfi/14#:char-set))
                         (std/srfi/115#char-set-ci _ch1435_)
                         _ch1435_))))
            (std/srfi/115#make-state
             '#f
             _cset1440_
             '#f
             '#f
             _next1437_
             '#f
             _id1438_))
          (std/srfi/115#make-state
           '#f
           _ch1435_
           '#f
           '#f
           _next1437_
           '#f
           _id1438_))))
  (define std/srfi/115#make-fork-state
    (lambda (_next11431_ _next21432_ _id1433_)
      (std/srfi/115#make-state
       '#f
       '#f
       '#f
       '#f
       _next11431_
       _next21432_
       _id1433_)))
  (define std/srfi/115#make-epsilon-state
    (lambda (_next1428_ _id1429_)
      (std/srfi/115#make-fork-state _next1428_ '#f _id1429_)))
  (define std/srfi/115#make-accept-state
    (lambda (_id1426_)
      (std/srfi/115#make-state '#t '#f '#f '#f '#f '#f _id1426_)))
  (define std/srfi/115#Regexp-Match
    (make-struct-type
     'std/srfi/115#Regexp-Match
     '#f
     '3
     'Regexp-Match
     '((fields: matches rx string))
     '#f))
  (define std/srfi/115#regexp-match?
    (make-struct-predicate std/srfi/115#Regexp-Match))
  (define std/srfi/115#regexp-match-matches
    (make-struct-field-accessor std/srfi/115#Regexp-Match '0))
  (define std/srfi/115#regexp-match-rx
    (make-struct-field-accessor std/srfi/115#Regexp-Match '1))
  (define std/srfi/115#regexp-match-string
    (make-struct-field-accessor std/srfi/115#Regexp-Match '2))
  (define std/srfi/115#regexp-match-matches-set!
    (make-struct-field-mutator std/srfi/115#Regexp-Match '0))
  (define std/srfi/115#%make-regexp-match
    (lambda (_matches1422_ _rx1423_ _string1424_)
      (make-struct-instance
       std/srfi/115#Regexp-Match
       _matches1422_
       _rx1423_
       _string1424_)))
  (define std/srfi/115#regexp-match-rules
    (lambda (_md1420_)
      (##structure-ref
       (##structure-ref _md1420_ '2 std/srfi/115#Regexp-Match '#f)
       '5
       std/srfi/115#Rx
       '#f)))
  (define std/srfi/115#regexp-match-names
    (lambda (_md1418_)
      (##structure-ref
       (##structure-ref _md1418_ '2 std/srfi/115#Regexp-Match '#f)
       '6
       std/srfi/115#Rx
       '#f)))
  (define std/srfi/115#make-regexp-match
    (lambda (_len1414_ _rx1415_ _str1416_)
      (let ((__tmp5101 (make-vector _len1414_ '#f)))
        (declare (not safe))
        (##structure std/srfi/115#Regexp-Match __tmp5101 _rx1415_ _str1416_))))
  (define std/srfi/115#make-regexp-match-for-rx
    (lambda (_rx1411_ _str1412_)
      (std/srfi/115#make-regexp-match
       (##structure-ref _rx1411_ '3 std/srfi/115#Rx '#f)
       _rx1411_
       _str1412_)))
  (define std/srfi/115#regexp-match-count
    (lambda (_md1409_)
      (- (quotient
          (vector-length
           (##structure-ref _md1409_ '1 std/srfi/115#Regexp-Match '#f))
          '2)
         '1)))
  (define std/srfi/115#regexp-match-name-offset
    (lambda (_md1395_ _name1396_)
      (let _lp1398_ ((_ls1400_ (std/srfi/115#regexp-match-names _md1395_))
                     (_first1401_ '#f))
        (if (null? _ls1400_)
            (let ((_$e1403_ _first1401_))
              (if _$e1403_
                  _$e1403_
                  (error '"unknown match name" _md1395_ _name1396_)))
            (if (eq? _name1396_ (caar _ls1400_))
                (if (std/srfi/115#regexp-match-submatch-start+end
                     _md1395_
                     (cdar _ls1400_))
                    (cdar _ls1400_)
                    (_lp1398_
                     (cdr _ls1400_)
                     (let ((_$e1406_ _first1401_))
                       (if _$e1406_ _$e1406_ (cdar _ls1400_)))))
                (_lp1398_ (cdr _ls1400_) _first1401_))))))
  (define std/srfi/115#regexp-match-ref
    (lambda (_md1392_ _n1393_)
      (vector-ref
       (##structure-ref _md1392_ '1 std/srfi/115#Regexp-Match '#f)
       (if (integer? _n1393_)
           _n1393_
           (std/srfi/115#regexp-match-name-offset _md1392_ _n1393_)))))
  (define std/srfi/115#regexp-match-set!
    (lambda (_md1388_ _n1389_ _val1390_)
      (vector-set!
       (##structure-ref _md1388_ '1 std/srfi/115#Regexp-Match '#f)
       _n1389_
       _val1390_)))
  (define std/srfi/115#copy-regexp-match
    (lambda (_md1374_)
      (let* ((_src1376_
              (##structure-ref _md1374_ '1 std/srfi/115#Regexp-Match '#f))
             (_len1378_ (vector-length _src1376_))
             (_dst1380_ (make-vector _len1378_ '#f)))
        (let _$loop1383_ ((_i1386_ '0))
          (if (= _i1386_ _len1378_)
              (let ((__tmp5103
                     (##structure-ref
                      _md1374_
                      '2
                      std/srfi/115#Regexp-Match
                      '#f))
                    (__tmp5102
                     (##structure-ref
                      _md1374_
                      '3
                      std/srfi/115#Regexp-Match
                      '#f)))
                (declare (not safe))
                (##structure
                 std/srfi/115#Regexp-Match
                 _dst1380_
                 __tmp5103
                 __tmp5102))
              (begin
                (vector-set! _dst1380_ _i1386_ (vector-ref _src1376_ _i1386_))
                (_$loop1383_ (+ _i1386_ '1))))))))
  (define std/srfi/115#regexp-match-submatch/list
    (lambda (_md1361_ _n1362_)
      (let ((_n1364_ (if (integer? _n1362_)
                         _n1362_
                         (std/srfi/115#regexp-match-name-offset
                          _md1361_
                          _n1362_))))
        (if (>= _n1364_
                (vector-length (std/srfi/115#regexp-match-rules _md1361_)))
            '#f
            (let ((_rule1366_
                   (vector-ref
                    (std/srfi/115#regexp-match-rules _md1361_)
                    _n1364_)))
              (if (pair? _rule1366_)
                  (let ((_start1368_
                         (std/srfi/115#regexp-match-ref
                          _md1361_
                          (car _rule1366_)))
                        (_end1369_
                         (std/srfi/115#regexp-match-ref
                          _md1361_
                          (cdr _rule1366_)))
                        (_str1370_
                         (##structure-ref
                          _md1361_
                          '3
                          std/srfi/115#Regexp-Match
                          '#f)))
                    (if _start1368_
                        (if _end1369_
                            (std/srfi/115#substring-cursor
                             _str1370_
                             _start1368_
                             _end1369_)
                            '#f)
                        '#f))
                  (let ((_res1372_
                         (std/srfi/115#regexp-match-ref _md1361_ _rule1366_)))
                    (if (pair? _res1372_) (reverse _res1372_) _res1372_))))))))
  (define std/srfi/115#regexp-match-submatch
    (lambda (_md1356_ _n1357_)
      (let ((_res1359_
             (std/srfi/115#regexp-match-submatch/list _md1356_ _n1357_)))
        (if (pair? _res1359_) (car _res1359_) _res1359_))))
  (define std/srfi/115#regexp-match-submatch-start+end
    (lambda (_md1345_ _n1346_)
      (let ((_n1348_ (if (integer? _n1346_)
                         _n1346_
                         (std/srfi/115#regexp-match-name-offset
                          _md1345_
                          _n1346_))))
        (if (< _n1348_
               (vector-length (std/srfi/115#regexp-match-rules _md1345_)))
            (let ((_rule1350_
                   (vector-ref
                    (std/srfi/115#regexp-match-rules _md1345_)
                    _n1348_)))
              (if (pair? _rule1350_)
                  (let ((_start1352_
                         (std/srfi/115#regexp-match-ref
                          _md1345_
                          (car _rule1350_)))
                        (_end1353_
                         (std/srfi/115#regexp-match-ref
                          _md1345_
                          (cdr _rule1350_)))
                        (_str1354_
                         (##structure-ref
                          _md1345_
                          '3
                          std/srfi/115#Regexp-Match
                          '#f)))
                    (if _start1352_
                        (if _end1353_
                            (cons (std/srfi/115#string-cursor->index
                                   _str1354_
                                   _start1352_)
                                  (std/srfi/115#string-cursor->index
                                   _str1354_
                                   _end1353_))
                            '#f)
                        '#f))
                  '#f))
            '#f))))
  (define std/srfi/115#regexp-match-submatch-start
    (lambda (_md1339_ _n1340_)
      (let ((_$e1342_
             (std/srfi/115#regexp-match-submatch-start+end _md1339_ _n1340_)))
        (if _$e1342_ (car _$e1342_) '#f))))
  (define std/srfi/115#regexp-match-submatch-end
    (lambda (_md1333_ _n1334_)
      (let ((_$e1336_
             (std/srfi/115#regexp-match-submatch-start+end _md1333_ _n1334_)))
        (if _$e1336_ (cdr _$e1336_) '#f))))
  (define std/srfi/115#regexp-match-convert
    (lambda (_recurse?1322_ _md1323_ _str1324_)
      (if (vector? _md1323_)
          (let _lp1326_ ((_i1328_ '0) (_res1329_ '()))
            (if (>= _i1328_ (vector-length _md1323_))
                (reverse _res1329_)
                (if (std/srfi/115#string-cursor? (vector-ref _md1323_ _i1328_))
                    (_lp1326_
                     (+ _i1328_ '2)
                     (cons (std/srfi/115#substring-cursor
                            _str1324_
                            (vector-ref _md1323_ _i1328_)
                            (vector-ref _md1323_ (+ _i1328_ '1)))
                           _res1329_))
                    (_lp1326_
                     (+ _i1328_ '1)
                     (cons (std/srfi/115#regexp-match-convert
                            _recurse?1322_
                            (vector-ref _md1323_ _i1328_)
                            _str1324_)
                           _res1329_)))))
          (if (list? _md1323_)
              (if _recurse?1322_
                  (map (lambda (_x1331_)
                         (std/srfi/115#regexp-match-convert
                          _recurse?1322_
                          _x1331_
                          _str1324_))
                       (reverse _md1323_))
                  (std/srfi/115#regexp-match-convert
                   _recurse?1322_
                   (car _md1323_)
                   _str1324_))
              (if (and (pair? _md1323_)
                       (std/srfi/115#string-cursor? (car _md1323_))
                       (std/srfi/115#string-cursor? (cdr _md1323_)))
                  (std/srfi/115#substring-cursor
                   _str1324_
                   (car _md1323_)
                   (cdr _md1323_))
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _md1323_
                         'std/srfi/115#Regexp-Match))
                      (std/srfi/115#regexp-match-convert
                       _recurse?1322_
                       (##structure-ref
                        _md1323_
                        '1
                        std/srfi/115#Regexp-Match
                        '#f)
                       (##structure-ref
                        _md1323_
                        '3
                        std/srfi/115#Regexp-Match
                        '#f))
                      _md1323_))))))
  (define std/srfi/115#regexp-match->list
    (lambda (_md1320_) (std/srfi/115#regexp-match-convert '#f _md1320_ '#f)))
  (define std/srfi/115#regexp-match->sexp
    (lambda (_md1318_) (std/srfi/115#regexp-match-convert '#t _md1318_ '#f)))
  (define std/srfi/115#match-collect
    (lambda (_md1290_ _spec1291_)
      (letrec ((_match-extract1293_
                (lambda (_md1303_ _n1304_)
                  (let* ((_vec1306_
                          (##structure-ref
                           _md1303_
                           '1
                           std/srfi/115#Regexp-Match
                           '#f))
                         (_rules1308_
                          (std/srfi/115#regexp-match-rules _md1303_))
                         (_n-rule1310_ (vector-ref _rules1308_ _n1304_))
                         (_rule1312_ (vector-ref _rules1308_ _n-rule1310_)))
                    (if (pair? _rule1312_)
                        (let ((_start1315_
                               (std/srfi/115#regexp-match-ref
                                _md1303_
                                (car _rule1312_)))
                              (_end1316_
                               (std/srfi/115#regexp-match-ref
                                _md1303_
                                (cdr _rule1312_))))
                          (if _start1315_
                              (if _end1316_ (cons _start1315_ _end1316_) '#f)
                              '#f))
                        (std/srfi/115#regexp-match-ref
                         _md1303_
                         _rule1312_))))))
        (let ((_end1295_ (cadr _spec1291_))
              (_vec1296_
               (##structure-ref _md1290_ '1 std/srfi/115#Regexp-Match '#f)))
          (let _lp1298_ ((_i1300_ (+ '1 (car _spec1291_))) (_ls1301_ '()))
            (if (>= _i1300_ _end1295_)
                (reverse _ls1301_)
                (_lp1298_
                 (+ _i1300_ '1)
                 (cons (_match-extract1293_ _md1290_ _i1300_) _ls1301_))))))))
  (define std/srfi/115#Searcher
    (make-struct-type
     'std/srfi/115#Searcher
     '#f
     '2
     'Searcher
     '((fields: state matches))
     '#f))
  (define std/srfi/115#searcher? (make-struct-predicate std/srfi/115#Searcher))
  (define std/srfi/115#searcher-state
    (make-struct-field-accessor std/srfi/115#Searcher '0))
  (define std/srfi/115#searcher-matches
    (make-struct-field-accessor std/srfi/115#Searcher '1))
  (define std/srfi/115#searcher-state-set!
    (make-struct-field-mutator std/srfi/115#Searcher '0))
  (define std/srfi/115#searcher-matches-set!
    (make-struct-field-mutator std/srfi/115#Searcher '1))
  (define std/srfi/115#make-searcher
    (lambda (_state1287_ _matches1288_)
      (make-struct-instance std/srfi/115#Searcher _state1287_ _matches1288_)))
  (define std/srfi/115#regexp-match>=?
    (lambda (_m11265_ _m21266_)
      (let ((_non-greedy-indexes1268_
             (##structure-ref
              (##structure-ref _m11265_ '2 std/srfi/115#Regexp-Match '#f)
              '4
              std/srfi/115#Rx
              '#f))
            (_end1269_
             (- (vector-length
                 (##structure-ref _m11265_ '1 std/srfi/115#Regexp-Match '#f))
                '1)))
        (let _lp1271_ ((_i1273_ '0))
          (if (>= _i1273_ _end1269_)
              '#t
              (if (and (eqv? (std/srfi/115#regexp-match-ref _m11265_ _i1273_)
                             (std/srfi/115#regexp-match-ref _m21266_ _i1273_))
                       (eqv? (std/srfi/115#regexp-match-ref
                              _m11265_
                              (+ _i1273_ '1))
                             (std/srfi/115#regexp-match-ref
                              _m21266_
                              (+ _i1273_ '1))))
                  (_lp1271_ (+ _i1273_ '2))
                  (not (if (std/srfi/115#string-cursor?
                            (std/srfi/115#regexp-match-ref _m21266_ _i1273_))
                           (let ((_$e1275_
                                  (not (std/srfi/115#string-cursor?
                                        (std/srfi/115#regexp-match-ref
                                         _m11265_
                                         _i1273_)))))
                             (if _$e1275_
                                 _$e1275_
                                 (let ((_$e1278_
                                        (std/srfi/115#string-cursor<?
                                         (std/srfi/115#regexp-match-ref
                                          _m21266_
                                          _i1273_)
                                         (std/srfi/115#regexp-match-ref
                                          _m11265_
                                          _i1273_))))
                                   (if _$e1278_
                                       _$e1278_
                                       (let ((_$e1281_
                                              (if (std/srfi/115#string-cursor?
                                                   (std/srfi/115#regexp-match-ref
                                                    _m11265_
                                                    (+ _i1273_ '1)))
                                                  (std/srfi/115#string-cursor<?
                                                   (std/srfi/115#regexp-match-ref
                                                    _m11265_
                                                    (+ _i1273_ '1))
                                                   (std/srfi/115#regexp-match-ref
                                                    _m11265_
                                                    _i1273_))
                                                  '#f)))
                                         (if _$e1281_
                                             _$e1281_
                                             ((if (memq (+ _i1273_ '1)
                                                        _non-greedy-indexes1268_)
                                                  not
                                                  values)
                                              (if (std/srfi/115#string-cursor=?
                                                   (std/srfi/115#regexp-match-ref
                                                    _m21266_
                                                    _i1273_)
                                                   (std/srfi/115#regexp-match-ref
                                                    _m11265_
                                                    _i1273_))
                                                  (let ((_$e1284_
                                                         (not (std/srfi/115#string-cursor?
                                                               (std/srfi/115#regexp-match-ref
                                                                _m21266_
                                                                (+ _i1273_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           '1))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (if _$e1284_
                                                        _$e1284_
                                                        (if (std/srfi/115#string-cursor?
                                                             (std/srfi/115#regexp-match-ref
                                                              _m11265_
                                                              (+ _i1273_ '1)))
                                                            (std/srfi/115#string-cursor>?
                                                             (std/srfi/115#regexp-match-ref
                                                              _m21266_
                                                              (+ _i1273_ '1))
                                                             (std/srfi/115#regexp-match-ref
                                                              _m11265_
                                                              (+ _i1273_ '1)))
                                                            '#f)))
                                                  '#f))))))))
                           '#f))))))))
  (define std/srfi/115#regexp-match-max
    (lambda (_m11262_ _m21263_)
      (if (std/srfi/115#regexp-match>=? _m11262_ _m21263_) _m11262_ _m21263_)))
  (define std/srfi/115#searcher-merge!
    (lambda (_sr11257_ _sr21258_)
      (let ((_m1260_ (std/srfi/115#regexp-match-max
                      (##structure-ref _sr11257_ '2 std/srfi/115#Searcher '#f)
                      (##structure-ref
                       _sr21258_
                       '2
                       std/srfi/115#Searcher
                       '#f))))
        (if (not (eq? _m1260_
                      (##structure-ref
                       _sr11257_
                       '2
                       std/srfi/115#Searcher
                       '#f)))
            (##structure-set!
             _sr11257_
             (std/srfi/115#copy-regexp-match _m1260_)
             '2
             std/srfi/115#Searcher
             '#f)
            '#!void))))
  (define std/srfi/115#searcher-max
    (lambda (_sr11251_ _sr21252_)
      (if (or (not (let ()
                     (declare (not safe))
                     (##structure-instance-of?
                      _sr21252_
                      'std/srfi/115#Searcher)))
              (std/srfi/115#regexp-match>=?
               (##structure-ref _sr11251_ '2 std/srfi/115#Searcher '#f)
               (##structure-ref _sr21252_ '2 std/srfi/115#Searcher '#f)))
          _sr11251_
          _sr21252_)))
  (define std/srfi/115#searcher-start-match
    (lambda (_sr1249_)
      (std/srfi/115#regexp-match-ref
       (##structure-ref _sr1249_ '2 std/srfi/115#Searcher '#f)
       '0)))
  (define std/srfi/115#make-posse
    (lambda _o1247_ (std/srfi/125#srfi-make-hash-table eq?)))
  (define std/srfi/115#posse? hash-table?)
  (define std/srfi/115#posse-empty?
    (lambda (_posse1245_) (zero? (table-length _posse1245_))))
  (define std/srfi/115#posse-ref
    (lambda (_posse1242_ _sr1243_)
      (table-ref
       _posse1242_
       (##structure-ref _sr1243_ '1 std/srfi/115#Searcher '#f)
       '#f)))
  (define std/srfi/115#posse-add!
    (lambda (_posse1239_ _sr1240_)
      (table-set!
       _posse1239_
       (##structure-ref _sr1240_ '1 std/srfi/115#Searcher '#f)
       _sr1240_)))
  (define std/srfi/115#posse-clear!
    (lambda (_posse1234_)
      (std/srfi/125#hash-table-walk
       _posse1234_
       (lambda (_key1236_ _val1237_) (table-set! _posse1234_ _key1236_)))))
  (define std/srfi/115#posse-for-each
    (lambda (_proc1228_ _posse1229_)
      (std/srfi/125#hash-table-walk
       _posse1229_
       (lambda (_key1231_ _val1232_) (_proc1228_ _val1232_)))))
  (define std/srfi/115#posse-every
    (lambda (_pred1221_ _posse1222_)
      (std/srfi/125#hash-table-fold
       _posse1222_
       (lambda (_key1224_ _val1225_ _acc1226_)
         (if _acc1226_ (_pred1221_ _val1225_) '#f))
       '#t)))
  (define std/srfi/115#posse->list
    (lambda (_posse1219_) (hash-values _posse1219_)))
  (define std/srfi/115#list->posse
    (lambda (_ls1213_)
      (let ((_searchers1215_ (std/srfi/115#make-posse)))
        (for-each
         (lambda (_sr1217_) (std/srfi/115#posse-add! _searchers1215_ _sr1217_))
         _ls1213_)
        _searchers1215_)))
  (define std/srfi/115#posse
    (lambda _args1211_ (std/srfi/115#list->posse _args1211_)))
  (define std/srfi/115#make-start-searcher
    (lambda (_rx1208_ _str1209_)
      (let ((__tmp5105 (##structure-ref _rx1208_ '1 std/srfi/115#Rx '#f))
            (__tmp5104
             (std/srfi/115#make-regexp-match-for-rx _rx1208_ _str1209_)))
        (declare (not safe))
        (##structure std/srfi/115#Searcher __tmp5105 __tmp5104))))
  (define std/srfi/115#epsilon-state?
    (lambda (_st1203_)
      (let ((_$e1205_
             (not (##structure-ref _st1203_ '2 std/srfi/115#State '#f))))
        (if _$e1205_
            _$e1205_
            (procedure?
             (##structure-ref _st1203_ '2 std/srfi/115#State '#f))))))
  (define std/srfi/115#state-matches?
    (lambda (_st1190_
             _str1191_
             _i1192_
             _ch1193_
             _start1194_
             _end1195_
             _matches1196_)
      (let ((_matcher1198_
             (##structure-ref _st1190_ '2 std/srfi/115#State '#f)))
        (if (char? _matcher1198_)
            (eqv? _matcher1198_ _ch1193_)
            (if (let ()
                  (declare (not safe))
                  (##structure-instance-of?
                   _matcher1198_
                   'std/srfi/14#:char-set))
                (std/srfi/14#char-set-contains? _matcher1198_ _ch1193_)
                (if (pair? _matcher1198_)
                    (if (char<=? (car _matcher1198_) _ch1193_)
                        (char<=? _ch1193_ (cdr _matcher1198_))
                        '#f)
                    (if (procedure? _matcher1198_)
                        (_matcher1198_
                         _str1191_
                         _i1192_
                         _ch1193_
                         _start1194_
                         _end1195_
                         _matches1196_)
                        (let ((_$e1200_ (not _matcher1198_)))
                          (if _$e1200_
                              _$e1200_
                              (error '"unknown state matcher"
                                     (##structure-ref
                                      _st1190_
                                      '2
                                      std/srfi/115#State
                                      '#f)))))))))))
  (define std/srfi/115#posse-advance!
    (lambda (_new1142_
             _seen1143_
             _accept1144_
             _sr1145_
             _str1146_
             _i1147_
             _start1148_
             _end1149_)
      (let _advance!1151_ ((_sr1153_ _sr1145_))
        (let ((_st1155_
               (##structure-ref _sr1153_ '1 std/srfi/115#Searcher '#f)))
          (if (##structure-ref _st1155_ '3 std/srfi/115#State '#f)
              (let* ((_index1157_
                      (##structure-ref _st1155_ '3 std/srfi/115#State '#f))
                     (_matches1159_
                      (##structure-ref _sr1153_ '2 std/srfi/115#Searcher '#f))
                     (_before1161_
                      (std/srfi/115#copy-regexp-match _matches1159_)))
                (if (pair? _index1157_)
                    (let* ((_prev1164_
                            (std/srfi/115#regexp-match-ref
                             _matches1159_
                             (car _index1157_)))
                           (_new1166_
                            (cons (std/srfi/115#match-collect
                                   _matches1159_
                                   (cdr _index1157_))
                                  (if (pair? _prev1164_) _prev1164_ '()))))
                      (std/srfi/115#regexp-match-set!
                       _matches1159_
                       (car _index1157_)
                       _new1166_))
                    (if (not (and (eq? 'non-greedy-left
                                       (##structure-ref
                                        _st1155_
                                        '4
                                        std/srfi/115#State
                                        '#f))
                                  (std/srfi/115#regexp-match-ref
                                   _matches1159_
                                   _index1157_)
                                  (std/srfi/115#string-cursor>=?
                                   (std/srfi/115#regexp-match-ref
                                    _matches1159_
                                    _index1157_)
                                   (std/srfi/115#regexp-match-ref
                                    _matches1159_
                                    (- _index1157_ '1)))))
                        (std/srfi/115#regexp-match-set!
                         _matches1159_
                         _index1157_
                         _i1147_)
                        '#!void)))
              '#!void)
          (if (##structure-ref _st1155_ '1 std/srfi/115#State '#f)
              (set-cdr!
               _accept1144_
               (std/srfi/115#searcher-max _sr1153_ (cdr _accept1144_)))
              (let ((_$e1169_ (std/srfi/115#posse-ref _seen1143_ _sr1153_)))
                (if _$e1169_
                    ((lambda (_sr-prev1172_)
                       (std/srfi/115#searcher-merge! _sr-prev1172_ _sr1153_))
                     _$e1169_)
                    (if (std/srfi/115#epsilon-state? _st1155_)
                        (let ((_ch1174_
                               (if (std/srfi/115#string-cursor<?
                                    _i1147_
                                    _end1149_)
                                   (std/srfi/115#string-cursor-ref
                                    _str1146_
                                    _i1147_)
                                   '#f)))
                          (if (std/srfi/115#state-matches?
                               _st1155_
                               _str1146_
                               _i1147_
                               _ch1174_
                               _start1148_
                               _end1149_
                               (##structure-ref
                                _sr1153_
                                '2
                                std/srfi/115#Searcher
                                '#f))
                              (begin
                                (std/srfi/115#posse-add! _seen1143_ _sr1153_)
                                (let* ((_next11176_
                                        (##structure-ref
                                         _st1155_
                                         '5
                                         std/srfi/115#State
                                         '#f))
                                       (_next21178_
                                        (##structure-ref
                                         _st1155_
                                         '6
                                         std/srfi/115#State
                                         '#f))
                                       (_matches1180_
                                        (if _next21178_
                                            (##structure-ref
                                             _sr1153_
                                             '2
                                             std/srfi/115#Searcher
                                             '#f)
                                            '#f)))
                                  (if _next11176_
                                      (begin
                                        (##structure-set!
                                         _sr1153_
                                         _next11176_
                                         '1
                                         std/srfi/115#Searcher
                                         '#f)
                                        (_advance!1151_
                                         (let ((__tmp5106
                                                (std/srfi/115#copy-regexp-match
                                                 (##structure-ref
                                                  _sr1153_
                                                  '2
                                                  std/srfi/115#Searcher
                                                  '#f))))
                                           (declare (not safe))
                                           (##structure
                                            std/srfi/115#Searcher
                                            _next11176_
                                            __tmp5106))))
                                      '#!void)
                                  (if _next21178_
                                      (let ((_sr21183_
                                             (let ((__tmp5107
                                                    (std/srfi/115#copy-regexp-match
                                                     _matches1180_)))
                                               (declare (not safe))
                                               (##structure
                                                std/srfi/115#Searcher
                                                _next21178_
                                                __tmp5107))))
                                        (_advance!1151_ _sr21183_))
                                      '#!void)))
                              '#!void))
                        (let ((_$e1185_
                               (std/srfi/115#posse-ref _new1142_ _sr1153_)))
                          (if _$e1185_
                              ((lambda (_sr-prev1188_)
                                 (std/srfi/115#searcher-merge!
                                  _sr-prev1188_
                                  _sr1153_))
                               _$e1185_)
                              (std/srfi/115#posse-add!
                               _new1142_
                               _sr1153_)))))))))))
  (define std/srfi/115#regexp-run-offsets
    (lambda (_search?1103_ _rx1104_ _str1105_ _start1106_ _end1107_)
      (let ((_rx1109_ (std/srfi/115#regexp _rx1104_))
            (_epsilons1110_ (std/srfi/115#posse))
            (_accept1111_ (list '#f)))
        (let _lp1113_ ((_i1115_ _start1106_)
                       (_searchers11116_ (std/srfi/115#posse))
                       (_searchers21117_ (std/srfi/115#posse)))
          (if (or _search?1103_
                  (std/srfi/115#string-cursor=? _i1115_ _start1106_))
              (begin
                (std/srfi/115#posse-advance!
                 _searchers11116_
                 _epsilons1110_
                 _accept1111_
                 (std/srfi/115#make-start-searcher _rx1109_ _str1105_)
                 _str1105_
                 _i1115_
                 _start1106_
                 _end1107_)
                (std/srfi/115#posse-clear! _epsilons1110_))
              '#!void)
          (if (or (std/srfi/115#string-cursor>=? _i1115_ _end1107_)
                  (and _search?1103_
                       (let ((__tmp5108 (cdr _accept1111_)))
                         (declare (not safe))
                         (##structure-instance-of?
                          __tmp5108
                          'std/srfi/115#Searcher))
                       (let ((_accept-start1125_
                              (std/srfi/115#searcher-start-match
                               (cdr _accept1111_))))
                         (std/srfi/115#posse-every
                          (lambda (_searcher1127_)
                            (std/srfi/115#string-cursor>?
                             (std/srfi/115#searcher-start-match _searcher1127_)
                             _accept-start1125_))
                          _searchers11116_)))
                  (and (not _search?1103_)
                       (std/srfi/115#posse-empty? _searchers11116_)))
              (if (let ((__tmp5109 (cdr _accept1111_)))
                    (declare (not safe))
                    (##structure-instance-of?
                     __tmp5109
                     'std/srfi/115#Searcher))
                  (let ((_matches1132_
                         (##structure-ref
                          (cdr _accept1111_)
                          '2
                          std/srfi/115#Searcher
                          '#f)))
                    (if (or _search?1103_
                            (std/srfi/115#string-cursor>=?
                             (std/srfi/115#regexp-match-ref _matches1132_ '1)
                             _end1107_))
                        (##structure-ref
                         (cdr _accept1111_)
                         '2
                         std/srfi/115#Searcher
                         '#f)
                        '#f))
                  '#f)
              (let ((_ch1137_
                     (std/srfi/115#string-cursor-ref _str1105_ _i1115_))
                    (_i21138_
                     (std/srfi/115#string-cursor-next _str1105_ _i1115_)))
                (std/srfi/115#posse-for-each
                 (lambda (_sr1140_)
                   (if (std/srfi/115#state-matches?
                        (##structure-ref _sr1140_ '1 std/srfi/115#Searcher '#f)
                        _str1105_
                        _i1115_
                        _ch1137_
                        _start1106_
                        _end1107_
                        (##structure-ref
                         _sr1140_
                         '2
                         std/srfi/115#Searcher
                         '#f))
                       (begin
                         (##structure-set!
                          _sr1140_
                          (##structure-ref
                           (##structure-ref
                            _sr1140_
                            '1
                            std/srfi/115#Searcher
                            '#f)
                           '5
                           std/srfi/115#State
                           '#f)
                          '1
                          std/srfi/115#Searcher
                          '#f)
                         (std/srfi/115#posse-advance!
                          _searchers21117_
                          _epsilons1110_
                          _accept1111_
                          _sr1140_
                          _str1105_
                          _i21138_
                          _start1106_
                          _end1107_)
                         (std/srfi/115#posse-clear! _epsilons1110_))
                       '#!void))
                 _searchers11116_)
                (std/srfi/115#posse-clear! _searchers11116_)
                (_lp1113_ _i21138_ _searchers21117_ _searchers11116_)))))))
  (define std/srfi/115#regexp-run
    (lambda (_search?1095_ _rx1096_ _str1097_ . _o1098_)
      (let ((_start1100_ (std/srfi/115#string-start-arg _str1097_ _o1098_))
            (_end1101_
             (std/srfi/115#string-end-arg
              _str1097_
              (if (pair? _o1098_) (cdr _o1098_) _o1098_))))
        (std/srfi/115#regexp-run-offsets
         _search?1095_
         _rx1096_
         _str1097_
         _start1100_
         _end1101_))))
  (define std/srfi/115#regexp-matches
    (lambda (_rx1091_ _str1092_ . _o1093_)
      (apply std/srfi/115#regexp-run '#f _rx1091_ _str1092_ _o1093_)))
  (define std/srfi/115#regexp-matches?
    (lambda (_rx1087_ _str1088_ . _o1089_)
      (if (apply std/srfi/115#regexp-matches _rx1087_ _str1088_ _o1089_)
          '#t
          '#f)))
  (define std/srfi/115#regexp-search
    (lambda (_rx1083_ _str1084_ . _o1085_)
      (apply std/srfi/115#regexp-run '#t _rx1083_ _str1084_ _o1085_)))
  (define std/srfi/115#parse-flags
    (lambda (_ls1063_)
      (letrec ((_symbol->flag1065_
                (lambda (_s1072_)
                  (let ((_$e1074_ _s1072_))
                    (if (or (eq? 'i _$e1074_)
                            (eq? 'ci _$e1074_)
                            (eq? 'case-insensitive _$e1074_))
                        std/srfi/115#~ci?
                        std/srfi/115#~none)))))
        (let _lp1067_ ((_ls1069_ _ls1063_) (_res1070_ std/srfi/115#~none))
          (if (not (pair? _ls1069_))
              _res1070_
              (_lp1067_
               (cdr _ls1069_)
               (std/srfi/115#flag-join
                _res1070_
                (_symbol->flag1065_ (car _ls1069_)))))))))
  (define std/srfi/115#char-set:nonl
    (std/srfi/14#char-set-difference
     std/srfi/14#char-set:full
     (std/srfi/14#char-set '#\newline)))
  (define std/srfi/115#char-set:control
    (std/srfi/14#ucs-range->char-set '0 '32))
  (define std/srfi/115#char-set:word-constituent
    (std/srfi/14#char-set-union
     std/srfi/14#char-set:letter
     std/srfi/14#char-set:digit
     (std/srfi/14#char-set '#\_)))
  (define std/srfi/115#%char-set:word-constituent
    (std/srfi/14#char-set-union
     std/srfi/115#%char-set:letter
     std/srfi/115#%char-set:digit
     (std/srfi/14#char-set '#\_)))
  (define std/srfi/115#char-word-constituent?
    (lambda (_ch1061_)
      (std/srfi/14#char-set-contains?
       std/srfi/115#char-set:word-constituent
       _ch1061_)))
  (define std/srfi/115#get-char-set:cased
    (let ((_char-set:cased1058_ '#f))
      (lambda ()
        (if (not _char-set:cased1058_)
            (set! _char-set:cased1058_
                  (std/srfi/14#char-set-union
                   std/srfi/14#char-set:upper-case
                   std/srfi/14#char-set:lower-case
                   std/srfi/14#char-set:title-case))
            '#!void)
        _char-set:cased1058_)))
  (define std/srfi/115#match/bos
    (lambda (_str1051_ _i1052_ _ch1053_ _start1054_ _end1055_ _matches1056_)
      (std/srfi/115#string-cursor=? _i1052_ _start1054_)))
  (define std/srfi/115#match/eos
    (lambda (_str1044_ _i1045_ _ch1046_ _start1047_ _end1048_ _matches1049_)
      (std/srfi/115#string-cursor>=? _i1045_ _end1048_)))
  (define std/srfi/115#match/bol
    (lambda (_str1034_ _i1035_ _ch1036_ _start1037_ _end1038_ _matches1039_)
      (let ((_$e1041_ (std/srfi/115#string-cursor=? _i1035_ _start1037_)))
        (if _$e1041_
            _$e1041_
            (eqv? '#\newline
                  (std/srfi/115#string-cursor-ref
                   _str1034_
                   (std/srfi/115#string-cursor-prev _str1034_ _i1035_)))))))
  (define std/srfi/115#match/eol
    (lambda (_str1024_ _i1025_ _ch1026_ _start1027_ _end1028_ _matches1029_)
      (let ((_$e1031_ (std/srfi/115#string-cursor>=? _i1025_ _end1028_)))
        (if _$e1031_
            _$e1031_
            (eqv? '#\newline
                  (std/srfi/115#string-cursor-ref _str1024_ _i1025_))))))
  (define std/srfi/115#match/bow
    (lambda (_str1014_ _i1015_ _ch1016_ _start1017_ _end1018_ _matches1019_)
      (if (std/srfi/115#string-cursor<? _i1015_ _end1018_)
          (if (or (std/srfi/115#string-cursor=? _i1015_ _start1017_)
                  (not (std/srfi/115#char-word-constituent?
                        (std/srfi/115#string-cursor-ref
                         _str1014_
                         (std/srfi/115#string-cursor-prev
                          _str1014_
                          _i1015_)))))
              (std/srfi/115#char-word-constituent? _ch1016_)
              '#f)
          '#f)))
  (define std/srfi/115#match/eow
    (lambda (_str1004_ _i1005_ _ch1006_ _start1007_ _end1008_ _matches1009_)
      (if (or (std/srfi/115#string-cursor>=? _i1005_ _end1008_)
              (not (std/srfi/115#char-word-constituent? _ch1006_)))
          (if (std/srfi/115#string-cursor>? _i1005_ _start1007_)
              (std/srfi/115#char-word-constituent?
               (std/srfi/115#string-cursor-ref
                _str1004_
                (std/srfi/115#string-cursor-prev _str1004_ _i1005_)))
              '#f)
          '#f)))
  (define std/srfi/115#match/nwb
    (lambda (_str997_ _i998_ _ch999_ _start1000_ _end1001_ _matches1002_)
      (if (not (std/srfi/115#match/bow
                _str997_
                _i998_
                _ch999_
                _start1000_
                _end1001_
                _matches1002_))
          (not (std/srfi/115#match/eow
                _str997_
                _i998_
                _ch999_
                _start1000_
                _end1001_
                _matches1002_))
          '#f)))
  (define std/srfi/115#match/bog
    (lambda (_str987_ _i988_ _ch989_ _start990_ _end991_ _matches992_)
      (if (std/srfi/115#string-cursor<? _i988_ _end991_)
          (let ((_$e994_ (std/srfi/115#string-cursor=? _i988_ _start990_)))
            (if _$e994_
                _$e994_
                (std/srfi/115#match/eog
                 _str987_
                 (std/srfi/115#string-cursor-prev _str987_ _i988_)
                 _ch989_
                 _start990_
                 _end991_
                 _matches992_)))
          '#f)))
  (define std/srfi/115#match/eog
    (lambda (_str970_ _i971_ _ch972_ _start973_ _end974_ _matches975_)
      (if (std/srfi/115#string-cursor>? _i971_ _start973_)
          (let ((_$e977_ (std/srfi/115#string-cursor>=? _i971_ _end974_)))
            (if _$e977_
                _$e977_
                (let* ((_sci980_
                        (std/srfi/115#string-cursor->index _str970_ _i971_))
                       (_sce982_
                        (std/srfi/115#string-cursor->index _str970_ _end974_))
                       (_m984_ (std/srfi/115#regexp-search
                                std/srfi/115#re:grapheme
                                _str970_
                                _sci980_
                                _sce982_)))
                  (if _m984_
                      (<= (std/srfi/115#regexp-match-submatch-end _m984_ '0)
                          _sci980_)
                      '#f))))
          '#f)))
  (define std/srfi/115#lookup-char-set
    (lambda (_name919_ _flags920_)
      (if (std/srfi/115#flag-set? _flags920_ std/srfi/115#~ascii?)
          (let ((_$e922_ _name919_))
            (let ((_default924928_ (lambda () '#f))
                  (_table925930_
                   '#(#f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (word-constituent . 11)
                      (graphic . 10)
                      #f
                      #f
                      #f
                      #f
                      (printing . 13)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (num . 6)
                      #f
                      #f
                      #f
                      #f
                      (numeric . 6)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (ascii . 16)
                      #f
                      (cntrl . 14)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (alphabetic . 5)
                      (punct . 8)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (alnum . 7)
                      #f
                      #f
                      #f
                      #f
                      #f
                      (digit . 6)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (title . 4)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (upper-case . 3)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (hex . 15)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (lower . 2)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (alpha . 5)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (symbol . 9)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (lower-case . 2)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (xdigit . 15)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (any . 0)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (space . 12)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (alphanum . 7)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (whitespace . 12)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (white . 12)
                      #f
                      #f
                      #f
                      #f
                      #f
                      (print . 13)
                      #f
                      #f
                      #f
                      (nonl . 1)
                      #f
                      #f
                      (graph . 10)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (upper . 3)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (alphanumeric . 7)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (punctuation . 8)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (control . 14)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (title-case . 4)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (hex-digit . 15)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f)))
              (if (symbol? _$e922_)
                  (let* ((_h933_ (let ()
                                   (declare (not safe))
                                   (##symbol-hash _$e922_)))
                         (_ix936_ (let ()
                                    (declare (not safe))
                                    (##fxmodulo _h933_ '748)))
                         (_q939_ (let ()
                                   (declare (not safe))
                                   (##vector-ref _table925930_ _ix936_))))
                    (if _q939_
                        (if (eq? (let () (declare (not safe)) (##car _q939_))
                                 _$e922_)
                            (let ((_x943_ (let ()
                                            (declare (not safe))
                                            (##cdr _q939_))))
                              (if (let ()
                                    (declare (not safe))
                                    (##fx< _x943_ '8))
                                  (if (let ()
                                        (declare (not safe))
                                        (##fx< _x943_ '4))
                                      (if (let ()
                                            (declare (not safe))
                                            (##fx< _x943_ '2))
                                          (if (let ()
                                                (declare (not safe))
                                                (##fx= _x943_ '0))
                                              std/srfi/14#char-set:full
                                              std/srfi/115#char-set:nonl)
                                          (if (let ()
                                                (declare (not safe))
                                                (##fx= _x943_ '2))
                                              (if (std/srfi/115#flag-set?
                                                   _flags920_
                                                   std/srfi/115#~ci?)
                                                  std/srfi/115#%char-set:letter
                                                  std/srfi/115#%char-set:lower-case)
                                              (if (std/srfi/115#flag-set?
                                                   _flags920_
                                                   std/srfi/115#~ci?)
                                                  std/srfi/115#%char-set:letter
                                                  std/srfi/115#%char-set:upper-case)))
                                      (if (let ()
                                            (declare (not safe))
                                            (##fx< _x943_ '6))
                                          (if (let ()
                                                (declare (not safe))
                                                (##fx= _x943_ '4))
                                              (if (std/srfi/115#flag-set?
                                                   _flags920_
                                                   std/srfi/115#~ci?)
                                                  std/srfi/115#%char-set:letter
                                                  (std/srfi/14#char-set))
                                              std/srfi/115#%char-set:letter)
                                          (if (let ()
                                                (declare (not safe))
                                                (##fx= _x943_ '6))
                                              std/srfi/115#%char-set:digit
                                              std/srfi/115#%char-set:letter+digit)))
                                  (if (let ()
                                        (declare (not safe))
                                        (##fx< _x943_ '12))
                                      (if (let ()
                                            (declare (not safe))
                                            (##fx< _x943_ '10))
                                          (if (let ()
                                                (declare (not safe))
                                                (##fx= _x943_ '8))
                                              std/srfi/115#%char-set:punctuation
                                              std/srfi/115#%char-set:symbol)
                                          (if (let ()
                                                (declare (not safe))
                                                (##fx= _x943_ '10))
                                              std/srfi/115#%char-set:graphic
                                              std/srfi/115#%char-set:word-constituent))
                                      (if (let ()
                                            (declare (not safe))
                                            (##fx< _x943_ '14))
                                          (if (let ()
                                                (declare (not safe))
                                                (##fx= _x943_ '12))
                                              std/srfi/115#%char-set:whitespace
                                              std/srfi/115#%char-set:printing)
                                          (if (let ()
                                                (declare (not safe))
                                                (##fx= _x943_ '14))
                                              std/srfi/115#%char-set:iso-control
                                              (if (let ()
                                                    (declare (not safe))
                                                    (##fx= _x943_ '15))
                                                  std/srfi/14#char-set:hex-digit
                                                  std/srfi/14#char-set:ascii))))))
                            (_default924928_))
                        (_default924928_)))
                  (_default924928_))))
          (let ((_$e946_ _name919_))
            (let ((_default948952_ (lambda () '#f))
                  (_table949954_
                   '#(#f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (word-constituent . 11)
                      (graphic . 10)
                      #f
                      #f
                      #f
                      #f
                      (printing . 13)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (num . 6)
                      #f
                      #f
                      #f
                      #f
                      (numeric . 6)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (ascii . 16)
                      #f
                      (cntrl . 14)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (alphabetic . 5)
                      (punct . 8)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (alnum . 7)
                      #f
                      #f
                      #f
                      #f
                      #f
                      (digit . 6)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (title . 4)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (upper-case . 3)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (hex . 15)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (lower . 2)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (alpha . 5)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (symbol . 9)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (lower-case . 2)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (xdigit . 15)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (any . 0)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (space . 12)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (alphanum . 7)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (whitespace . 12)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (white . 12)
                      #f
                      #f
                      #f
                      #f
                      #f
                      (print . 13)
                      #f
                      #f
                      #f
                      (nonl . 1)
                      #f
                      #f
                      (graph . 10)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (upper . 3)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (alphanumeric . 7)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (punctuation . 8)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (control . 14)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (title-case . 4)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      (hex-digit . 15)
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f
                      #f)))
              (if (symbol? _$e946_)
                  (let* ((_h957_ (let ()
                                   (declare (not safe))
                                   (##symbol-hash _$e946_)))
                         (_ix960_ (let ()
                                    (declare (not safe))
                                    (##fxmodulo _h957_ '748)))
                         (_q963_ (let ()
                                   (declare (not safe))
                                   (##vector-ref _table949954_ _ix960_))))
                    (if _q963_
                        (if (eq? (let () (declare (not safe)) (##car _q963_))
                                 _$e946_)
                            (let ((_x967_ (let ()
                                            (declare (not safe))
                                            (##cdr _q963_))))
                              (if (let ()
                                    (declare (not safe))
                                    (##fx< _x967_ '8))
                                  (if (let ()
                                        (declare (not safe))
                                        (##fx< _x967_ '4))
                                      (if (let ()
                                            (declare (not safe))
                                            (##fx< _x967_ '2))
                                          (if (let ()
                                                (declare (not safe))
                                                (##fx= _x967_ '0))
                                              std/srfi/14#char-set:full
                                              std/srfi/115#char-set:nonl)
                                          (if (let ()
                                                (declare (not safe))
                                                (##fx= _x967_ '2))
                                              (if (std/srfi/115#flag-set?
                                                   _flags920_
                                                   std/srfi/115#~ci?)
                                                  (std/srfi/115#get-char-set:cased)
                                                  std/srfi/14#char-set:lower-case)
                                              (if (std/srfi/115#flag-set?
                                                   _flags920_
                                                   std/srfi/115#~ci?)
                                                  (std/srfi/115#get-char-set:cased)
                                                  std/srfi/14#char-set:upper-case)))
                                      (if (let ()
                                            (declare (not safe))
                                            (##fx< _x967_ '6))
                                          (if (let ()
                                                (declare (not safe))
                                                (##fx= _x967_ '4))
                                              (if (std/srfi/115#flag-set?
                                                   _flags920_
                                                   std/srfi/115#~ci?)
                                                  (std/srfi/115#get-char-set:cased)
                                                  std/srfi/14#char-set:title-case)
                                              std/srfi/14#char-set:letter)
                                          (if (let ()
                                                (declare (not safe))
                                                (##fx= _x967_ '6))
                                              std/srfi/14#char-set:digit
                                              std/srfi/14#char-set:letter+digit)))
                                  (if (let ()
                                        (declare (not safe))
                                        (##fx< _x967_ '12))
                                      (if (let ()
                                            (declare (not safe))
                                            (##fx< _x967_ '10))
                                          (if (let ()
                                                (declare (not safe))
                                                (##fx= _x967_ '8))
                                              std/srfi/14#char-set:punctuation
                                              std/srfi/14#char-set:symbol)
                                          (if (let ()
                                                (declare (not safe))
                                                (##fx= _x967_ '10))
                                              std/srfi/14#char-set:graphic
                                              std/srfi/115#char-set:word-constituent))
                                      (if (let ()
                                            (declare (not safe))
                                            (##fx< _x967_ '14))
                                          (if (let ()
                                                (declare (not safe))
                                                (##fx= _x967_ '12))
                                              std/srfi/14#char-set:whitespace
                                              std/srfi/14#char-set:printing)
                                          (if (let ()
                                                (declare (not safe))
                                                (##fx= _x967_ '14))
                                              std/srfi/115#char-set:control
                                              (if (let ()
                                                    (declare (not safe))
                                                    (##fx= _x967_ '15))
                                                  std/srfi/14#char-set:hex-digit
                                                  std/srfi/14#char-set:ascii))))))
                            (_default948952_))
                        (_default948952_)))
                  (_default948952_)))))))
  (define std/srfi/115#sre-flatten-ranges
    (lambda (_orig-ls912_)
      (let _lp914_ ((_ls916_ _orig-ls912_) (_res917_ '()))
        (if (null? _ls916_)
            (reverse _res917_)
            (if (string? (car _ls916_))
                (_lp914_ (append (string->list (car _ls916_)) (cdr _ls916_))
                         _res917_)
                (if (null? (cdr _ls916_))
                    (error '"unbalanced cset / range" _orig-ls912_)
                    (if (string? (cadr _ls916_))
                        (_lp914_ (cons (car _ls916_)
                                       (append (string->list (cadr _ls916_))
                                               (cddr _ls916_)))
                                 _res917_)
                        (_lp914_ (cddr _ls916_)
                                 (cons (cons (car _ls916_) (cadr _ls916_))
                                       _res917_)))))))))
  (define std/srfi/115#every
    (lambda (_pred906_ _ls907_)
      (let ((_$e909_ (null? _ls907_)))
        (if _$e909_
            _$e909_
            (if (_pred906_ (car _ls907_))
                (std/srfi/115#every _pred906_ (cdr _ls907_))
                '#f)))))
  (define std/srfi/115#char-set-sre?
    (lambda (_sre889_)
      (let ((_$e891_ (char? _sre889_)))
        (if _$e891_
            _$e891_
            (let ((_$e894_ (if (string? _sre889_)
                               (= '1 (string-length _sre889_))
                               '#f)))
              (if _$e894_
                  _$e894_
                  (let ((_$e897_ (std/srfi/115#lookup-char-set
                                  _sre889_
                                  std/srfi/115#~none)))
                    (if _$e897_
                        _$e897_
                        (if (pair? _sre889_)
                            (let ((_$e900_ (string? (car _sre889_))))
                              (if _$e900_
                                  _$e900_
                                  (let ((_$e903_ (memq (car _sre889_)
                                                       '(char-set
                                                         /
                                                         char-range
                                                         &
                                                         and
                                                         ~
                                                         complement
                                                         -
                                                         difference))))
                                    (if _$e903_
                                        _$e903_
                                        (if (memq (car _sre889_)
                                                  '(|\|| or
                                                         w/case
                                                         w/nocase
                                                         w/unicode
                                                         w/ascii))
                                            (std/srfi/115#every
                                             std/srfi/115#char-set-sre?
                                             (cdr _sre889_))
                                            '#f)))))
                            '#f)))))))))
  (define std/srfi/115#non-greedy-sre?
    (lambda (_sre881_)
      (if (pair? _sre881_)
          (let ((_$e883_ (memq (car _sre881_)
                               '(?? *?
                                    **?
                                    non-greedy-optional
                                    non-greedy-zero-or-more
                                    non-greedy-repeated))))
            (if _$e883_
                _$e883_
                (let ((_$e886_ (if (memq (car _sre881_)
                                         '(: seq
                                             w/case
                                             w/nocase
                                             w/unicode
                                             w/ascii))
                                   (std/srfi/115#non-greedy-sre?
                                    (car (reverse _sre881_)))
                                   '#f)))
                  (if _$e886_
                      _$e886_
                      (if (eq? (car _sre881_) 'or)
                          (std/srfi/1#any
                           std/srfi/115#non-greedy-sre?
                           (cdr _sre881_))
                          '#f)))))
          '#f)))
  (define std/srfi/115#valid-sre?
    (lambda (_x878_)
      (with-exception-catcher
       false
       (lambda () (std/srfi/115#regexp _x878_) '#t))))
  (define std/srfi/115#sre->char-set
    (lambda (_sre837_ . _o838_)
      (let ((_flags840_ (if (pair? _o838_) (car _o838_) std/srfi/115#~none)))
        (letrec ((_->cs842_
                  (lambda (_sre876_)
                    (std/srfi/115#sre->char-set _sre876_ _flags840_)))
                 (_maybe-ci843_
                  (lambda (_sre874_)
                    (if (std/srfi/115#flag-set? _flags840_ std/srfi/115#~ci?)
                        (std/srfi/115#char-set-ci _sre874_)
                        _sre874_))))
          (let ((_$e845_ (std/srfi/115#lookup-char-set _sre837_ _flags840_)))
            (if _$e845_
                _$e845_
                (if (let ()
                      (declare (not safe))
                      (##structure-instance-of?
                       _sre837_
                       'std/srfi/14#:char-set))
                    (_maybe-ci843_ _sre837_)
                    (if (char? _sre837_)
                        (_maybe-ci843_ (std/srfi/14#char-set _sre837_))
                        (if (string? _sre837_)
                            (if (= '1 (string-length _sre837_))
                                (_maybe-ci843_
                                 (std/srfi/14#string->char-set _sre837_))
                                (error '"only single char strings can be char-sets"))
                            (if (pair? _sre837_)
                                (if (string? (car _sre837_))
                                    (_maybe-ci843_
                                     (std/srfi/14#string->char-set
                                      (car _sre837_)))
                                    (let ((_$e848_ (car _sre837_)))
                                      (let ((_default850854_
                                             (lambda ()
                                               (error '"invalid sre char-set"
                                                      _sre837_)))
                                            (_table851856_
                                             '#(#f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                (w/unicode . 9)
                                                #f
                                                (or . 3)
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                (- . 5)
                                                #f
                                                #f
                                                #f
                                                #f
                                                (& . 2)
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                (~ . 4)
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                (difference . 5)
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                (w/ascii . 8)
                                                #f
                                                (w/nocase . 7)
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                (complement . 4)
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                (/ . 1)
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                (and . 2)
                                                (char-range . 1)
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                (w/case . 6)
                                                (|\|| . 3)
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                (char-set . 0)
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f
                                                #f)))
                                        (if (symbol? _$e848_)
                                            (let* ((_h859_ (let ()
                                                             (declare
                                                               (not safe))
                                                             (##symbol-hash
                                                              _$e848_)))
                                                   (_ix862_ (let ()
                                                              (declare
                                                                (not safe))
                                                              (##fxmodulo
                                                               _h859_
                                                               '225)))
                                                   (_q865_ (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _table851856_
                                                              _ix862_))))
                                              (if _q865_
                                                  (if (eq? (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _q865_))
                                                           _$e848_)
                                                      (let ((_x869_ (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                              (declare (not safe))
                              (##cdr _q865_))))
                (if (let () (declare (not safe)) (##fx< _x869_ '5))
                    (if (let () (declare (not safe)) (##fx< _x869_ '2))
                        (if (let () (declare (not safe)) (##fx= _x869_ '0))
                            (if (null? (cddr _sre837_))
                                (_maybe-ci843_
                                 (std/srfi/14#string->char-set
                                  (cadr _sre837_)))
                                (error '"(char-set) takes only one char-set"
                                       _sre837_))
                            (_->cs842_
                             (cons 'or
                                   (foldr1 cons
                                           '()
                                           (map (lambda (_x872_)
                                                  (std/srfi/14#ucs-range->char-set
                                                   (char->integer (car _x872_))
                                                   (+ '1
                                                      (char->integer
                                                       (cdr _x872_)))))
                                                (std/srfi/115#sre-flatten-ranges
                                                 (cdr _sre837_)))))))
                        (if (let () (declare (not safe)) (##fx= _x869_ '2))
                            (apply std/srfi/14#char-set-intersection
                                   (map _->cs842_ (cdr _sre837_)))
                            (if (let () (declare (not safe)) (##fx= _x869_ '3))
                                (apply std/srfi/14#char-set-union
                                       (map _->cs842_ (cdr _sre837_)))
                                (std/srfi/14#char-set-complement
                                 (_->cs842_
                                  (cons 'or
                                        (foldr1 cons '() (cdr _sre837_))))))))
                    (if (let () (declare (not safe)) (##fx< _x869_ '7))
                        (if (let () (declare (not safe)) (##fx= _x869_ '5))
                            (std/srfi/14#char-set-difference
                             (_->cs842_ (cadr _sre837_))
                             (_->cs842_
                              (cons 'or (foldr1 cons '() (cddr _sre837_)))))
                            (if (null? (cddr _sre837_))
                                (std/srfi/115#sre->char-set
                                 (cadr _sre837_)
                                 (std/srfi/115#flag-clear
                                  _flags840_
                                  std/srfi/115#~ci?))
                                (error '"w/case takes only one char-set"
                                       _sre837_)))
                        (if (let () (declare (not safe)) (##fx= _x869_ '7))
                            (if (null? (cddr _sre837_))
                                (std/srfi/115#sre->char-set
                                 (cadr _sre837_)
                                 (std/srfi/115#flag-join
                                  _flags840_
                                  std/srfi/115#~ci?))
                                (error '"w/nocase takes only one char-set"
                                       _sre837_))
                            (if (let () (declare (not safe)) (##fx= _x869_ '8))
                                (if (null? (cddr _sre837_))
                                    (std/srfi/115#sre->char-set
                                     (cadr _sre837_)
                                     (std/srfi/115#flag-join
                                      _flags840_
                                      std/srfi/115#~ascii?))
                                    (error '"w/ascii takes only one char-set"
                                           _sre837_))
                                (if (null? (cddr _sre837_))
                                    (std/srfi/115#sre->char-set
                                     (cadr _sre837_)
                                     (std/srfi/115#flag-clear
                                      _flags840_
                                      std/srfi/115#~ascii?))
                                    (error '"w/unicode takes only one char-set"
                                           _sre837_)))))))
              (_default850854_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_default850854_)))
                                            (_default850854_)))))
                                (error '"invalid sre char-set"
                                       _sre837_)))))))))))
  (define std/srfi/115#char-set->sre
    (lambda (_cset835_) (list (std/srfi/14#char-set->string _cset835_))))
  (define std/srfi/115#strip-submatches
    (lambda (_sre821_)
      (if (pair? _sre821_)
          (let ((_$e823_ (car _sre821_)))
            (if (or (eq? '$ _$e823_) (eq? 'submatch _$e823_))
                (std/srfi/115#strip-submatches (cons ': (cdr _sre821_)))
                (if (or (eq? '-> _$e823_)
                        (eq? '=> _$e823_)
                        (eq? 'submatch-named _$e823_))
                    (std/srfi/115#strip-submatches (cons ': (cddr _sre821_)))
                    (cons (std/srfi/115#strip-submatches (car _sre821_))
                          (std/srfi/115#strip-submatches (cdr _sre821_))))))
          _sre821_)))
  (define std/srfi/115#sre-expand-reps
    (lambda (_from805_ _to806_ _sre807_)
      (let ((_sre0809_ (std/srfi/115#strip-submatches _sre807_)))
        (let _lp811_ ((_i813_ '0) (_res814_ '(:)))
          (if (= _i813_ _from805_)
              (if (not _to806_)
                  (reverse (cons (cons '* (cons _sre807_ '())) _res814_))
                  (if (= _from805_ _to806_)
                      (reverse (cons _sre807_ (cdr _res814_)))
                      (let _lp816_ ((_i818_ (+ _i813_ '1)) (_res819_ _res814_))
                        (if (>= _i818_ _to806_)
                            (reverse (cons (cons '? (cons _sre807_ '()))
                                           _res819_))
                            (_lp816_ (+ _i818_ '1)
                                     (cons (cons '? (cons _sre0809_ '()))
                                           _res819_))))))
              (_lp811_ (+ _i813_ '1) (cons _sre0809_ _res814_)))))))
  (define std/srfi/115#regexp
    (lambda (_sre679_ . _o680_)
      (letrec* ((_current-index682_ '2)
                (_current-match683_ '0)
                (_current-id684_ '0)
                (_match-names685_ '())
                (_match-rules686_ (list (cons '0 '1)))
                (_non-greedy-indexes687_ '())
                (_next-id688_
                 (lambda ()
                   (let ((_res803_ _current-id684_))
                     (set! _current-id684_ (+ _current-id684_ '1))
                     _res803_)))
                (_make-submatch-state689_
                 (lambda (_sre788_ _flags789_ _next790_ _index791_)
                   (let* ((_n3793_ (std/srfi/115#make-epsilon-state
                                    _next790_
                                    (_next-id688_)))
                          (_n2795_ (_->rx690_ _sre788_ _flags789_ _n3793_))
                          (_n1797_ (std/srfi/115#make-epsilon-state
                                    _n2795_
                                    (_next-id688_)))
                          (_non-greedy?799_
                           (std/srfi/115#non-greedy-sre? _sre788_)))
                     (##structure-set!
                      _n1797_
                      _index791_
                      '3
                      std/srfi/115#State
                      '#f)
                     (##structure-set! _n1797_ 'left '4 std/srfi/115#State '#f)
                     (##structure-set!
                      _n3793_
                      (+ _index791_ '1)
                      '3
                      std/srfi/115#State
                      '#f)
                     (##structure-set!
                      _n3793_
                      (if _non-greedy?799_ 'non-greedy-left 'right)
                      '4
                      std/srfi/115#State
                      '#f)
                     (if _non-greedy?799_
                         (set! _non-greedy-indexes687_
                               (cons (+ _index791_ '1)
                                     _non-greedy-indexes687_))
                         '#!void)
                     _n1797_)))
                (_->rx690_
                 (lambda (_sre696_ _flags697_ _next698_)
                   (if (char? _sre696_)
                       (std/srfi/115#make-char-state
                        _sre696_
                        _flags697_
                        _next698_
                        (_next-id688_))
                       (if (let ()
                             (declare (not safe))
                             (##structure-instance-of?
                              _sre696_
                              'std/srfi/14#:char-set))
                           (std/srfi/115#make-char-state
                            _sre696_
                            _flags697_
                            _next698_
                            (_next-id688_))
                           (if (string? _sre696_)
                               (_->rx690_
                                (cons 'seq (string->list _sre696_))
                                _flags697_
                                _next698_)
                               (let ((_$e700_ (if (symbol? _sre696_)
                                                  (std/srfi/115#lookup-char-set
                                                   _sre696_
                                                   _flags697_)
                                                  '#f)))
                                 (if _$e700_
                                     ((lambda (_cset703_)
                                        (std/srfi/115#make-char-state
                                         _cset703_
                                         std/srfi/115#~none
                                         _next698_
                                         (_next-id688_)))
                                      _$e700_)
                                     (if (symbol? _sre696_)
                                         (let ((_$e705_ _sre696_))
                                           (let ((_default707711_
                                                  (lambda ()
                                                    (error '"unknown sre"
                                                           _sre696_)))
                                                 (_table708713_
                                                  '#(#f
                                                     #f
                                                     (eos . 2)
                                                     (eol . 4)
                                                     #f
                                                     (epsilon . 0)
                                                     (eow . 6)
                                                     #f
                                                     #f
                                                     (word . 11)
                                                     #f
                                                     #f
                                                     (nwb . 7)
                                                     #f
                                                     #f
                                                     (bog . 8)
                                                     (grapheme . 10)
                                                     #f
                                                     (bol . 3)
                                                     #f
                                                     #f
                                                     #f
                                                     #f
                                                     (bos . 1)
                                                     #f
                                                     #f
                                                     #f
                                                     (bow . 5)
                                                     #f
                                                     #f
                                                     (eog . 9)
                                                     #f
                                                     #f
                                                     #f
                                                     #f
                                                     #f)))
                                             (if (symbol? _$e705_)
                                                 (let* ((_h716_ (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (##symbol-hash _$e705_)))
                (_ix719_ (let () (declare (not safe)) (##fxmodulo _h716_ '36)))
                (_q722_ (let ()
                          (declare (not safe))
                          (##vector-ref _table708713_ _ix719_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (if _q722_
                                                       (if (eq? (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (##car _q722_))
                        _$e705_)
                   (let ((_x726_ (let () (declare (not safe)) (##cdr _q722_))))
                     (if (let () (declare (not safe)) (##fx< _x726_ '6))
                         (if (let () (declare (not safe)) (##fx< _x726_ '3))
                             (if (let ()
                                   (declare (not safe))
                                   (##fx= _x726_ '0))
                                 _next698_
                                 (if (let ()
                                       (declare (not safe))
                                       (##fx= _x726_ '1))
                                     (std/srfi/115#make-char-state
                                      std/srfi/115#match/bos
                                      _flags697_
                                      _next698_
                                      (_next-id688_))
                                     (std/srfi/115#make-char-state
                                      std/srfi/115#match/eos
                                      _flags697_
                                      _next698_
                                      (_next-id688_))))
                             (if (let ()
                                   (declare (not safe))
                                   (##fx= _x726_ '3))
                                 (std/srfi/115#make-char-state
                                  std/srfi/115#match/bol
                                  _flags697_
                                  _next698_
                                  (_next-id688_))
                                 (if (let ()
                                       (declare (not safe))
                                       (##fx= _x726_ '4))
                                     (std/srfi/115#make-char-state
                                      std/srfi/115#match/eol
                                      _flags697_
                                      _next698_
                                      (_next-id688_))
                                     (std/srfi/115#make-char-state
                                      std/srfi/115#match/bow
                                      _flags697_
                                      _next698_
                                      (_next-id688_)))))
                         (if (let () (declare (not safe)) (##fx< _x726_ '9))
                             (if (let ()
                                   (declare (not safe))
                                   (##fx= _x726_ '6))
                                 (std/srfi/115#make-char-state
                                  std/srfi/115#match/eow
                                  _flags697_
                                  _next698_
                                  (_next-id688_))
                                 (if (let ()
                                       (declare (not safe))
                                       (##fx= _x726_ '7))
                                     (std/srfi/115#make-char-state
                                      std/srfi/115#match/nwb
                                      _flags697_
                                      _next698_
                                      (_next-id688_))
                                     (std/srfi/115#make-char-state
                                      std/srfi/115#match/bog
                                      _flags697_
                                      _next698_
                                      (_next-id688_))))
                             (if (let ()
                                   (declare (not safe))
                                   (##fx= _x726_ '9))
                                 (std/srfi/115#make-char-state
                                  std/srfi/115#match/eog
                                  _flags697_
                                  _next698_
                                  (_next-id688_))
                                 (if (let ()
                                       (declare (not safe))
                                       (##fx= _x726_ '10))
                                     (_->rx690_
                                      (cons 'or
                                            (cons (cons ':
                                                        (cons (cons '*
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (cons std/srfi/115#char-set:hangul-l '()))
                      (cons (cons '+ (cons std/srfi/115#char-set:hangul-v '()))
                            (cons (cons '*
                                        (cons std/srfi/115#char-set:hangul-t
                                              '()))
                                  '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (cons (cons ':
                                                              (cons (cons '*
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                  (cons std/srfi/115#char-set:hangul-l '()))
                            (cons std/srfi/115#char-set:hangul-v
                                  (cons (cons '*
                                              (cons std/srfi/115#char-set:hangul-v
                                                    '()))
                                        (cons (cons '*
                                                    (cons std/srfi/115#char-set:hangul-t
                                                          '()))
                                              '())))))
                (cons (cons ':
                            (cons (cons '*
                                        (cons std/srfi/115#char-set:hangul-l
                                              '()))
                                  (cons std/srfi/115#char-set:hangul-lvt
                                        (cons (cons '*
                                                    (cons std/srfi/115#char-set:hangul-t
                                                          '()))
                                              '()))))
                      (cons (cons '+ (cons std/srfi/115#char-set:hangul-l '()))
                            (cons (cons '+
                                        (cons std/srfi/115#char-set:hangul-t
                                              '()))
                                  (cons (cons '+
                                              (cons std/srfi/115#char-set:regional-indicator
                                                    '()))
                                        (cons (cons ': (cons '"\r\n" '()))
                                              (cons (cons ':
                                                          (cons (cons '~
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                              (cons 'control (cons (cons '"\r\n" '()) '())))
                        (cons (cons '*
                                    (cons std/srfi/115#char-set:extend-or-spacing-mark
                                          '()))
                              '())))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (cons 'control
                                                          '()))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                      _flags697_
                                      _next698_)
                                     (_->rx690_
                                      '(word+ any)
                                      _flags697_
                                      _next698_))))))
                   (_default707711_))
               (_default707711_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (_default707711_))))
                                         (if (pair? _sre696_)
                                             (let ((_$e729_ (car _sre696_)))
                                               (let ((_default731735_
                                                      (lambda ()
                                                        (if (string? (car _sre696_))
                                                            (std/srfi/115#make-char-state
                                                             (std/srfi/115#sre->char-set
                                                              _sre696_
                                                              _flags697_)
                                                             std/srfi/115#~none
                                                             _next698_
                                                             (_next-id688_))
                                                            (error '"unknown sre"
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           _sre696_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_table732737_
                                                      '#((w/nocase . 16)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (difference . 12)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (submatch . 10)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (=> . 8)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (optional . 2)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (w/case . 15)
                                                         #f
                                                         (non-greedy-zero-or-more
                                                          .
                                                          3)
                                                         (**? . 7)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (+ . 4)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (* . 3)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (: . 0)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (submatch-list . 11)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (|\|| . 1)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (repeated . 7)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (submatch-named-list
                                                          .
                                                          9)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (*? . 3)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (char-range . 12)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         ($ . 10)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (and . 12)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (one-or-more . 4)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (~ . 12)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (w/nocapture . 19)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (char-set . 12)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (seq . 0)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (** . 7)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (& . 12)
                                                         (w/ascii . 18)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (?? . 2)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (w/unicode . 17)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (*$ . 11)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (*=> . 9)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (word . 13)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (*-> . 9)
                                                         #f
                                                         #f
                                                         (at-least . 6)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (non-greedy-optional
                                                          .
                                                          2)
                                                         #f
                                                         (non-greedy-repeated
                                                          .
                                                          7)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (or . 1)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (- . 12)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (= . 5)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (-> . 8)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (word+ . 14)
                                                         #f
                                                         #f
                                                         (exactly . 5)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (/ . 12)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (complement . 12)
                                                         #f
                                                         (? . 2)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (>= . 6)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (zero-or-more . 3)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         (submatch-named . 8)
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f
                                                         #f)))
                                                 (if (symbol? _$e729_)
                                                     (let* ((_h740_ (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                              (declare (not safe))
                              (##symbol-hash _$e729_)))
                    (_ix743_ (let ()
                               (declare (not safe))
                               (##fxmodulo _h740_ '1093)))
                    (_q746_ (let ()
                              (declare (not safe))
                              (##vector-ref _table732737_ _ix743_))))
               (if _q746_
                   (if (eq? (let () (declare (not safe)) (##car _q746_))
                            _$e729_)
                       (let ((_x750_ (let ()
                                       (declare (not safe))
                                       (##cdr _q746_))))
                         (if (let () (declare (not safe)) (##fx< _x750_ '10))
                             (if (let ()
                                   (declare (not safe))
                                   (##fx< _x750_ '5))
                                 (if (let ()
                                       (declare (not safe))
                                       (##fx< _x750_ '2))
                                     (if (let ()
                                           (declare (not safe))
                                           (##fx= _x750_ '0))
                                         (if (null? (cdr _sre696_))
                                             _next698_
                                             (let* ((_n2753_ (std/srfi/115#make-epsilon-state
                                                              '#f
                                                              (_next-id688_)))
                                                    (_n1755_ (_->rx690_
                                                              (cadr _sre696_)
                                                              _flags697_
                                                              _n2753_))
                                                    (_n3757_ (_->rx690_
                                                              (cons 'seq
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (cddr _sre696_))
                      _flags697_
                      _next698_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (##structure-set!
                                                _n2753_
                                                _n3757_
                                                '5
                                                std/srfi/115#State
                                                '#f)
                                               _n1755_))
                                         (if (null? (cdr _sre696_))
                                             '#f
                                             (if (std/srfi/115#char-set-sre?
                                                  _sre696_)
                                                 (std/srfi/115#make-char-state
                                                  (std/srfi/115#sre->char-set
                                                   _sre696_)
                                                  _flags697_
                                                  _next698_
                                                  (_next-id688_))
                                                 (if (null? (cddr _sre696_))
                                                     (_->rx690_
                                                      (cadr _sre696_)
                                                      _flags697_
                                                      _next698_)
                                                     (let* ((_n1760_ (_->rx690_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                              (cadr _sre696_)
                              _flags697_
                              _next698_))
                    (_n2762_ (_->rx690_
                              (cons 'or (cddr _sre696_))
                              _flags697_
                              _next698_)))
               (std/srfi/115#make-fork-state
                _n1760_
                _n2762_
                (_next-id688_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                     (if (let ()
                                           (declare (not safe))
                                           (##fx= _x750_ '2))
                                         (std/srfi/115#make-fork-state
                                          (_->rx690_
                                           (cons 'seq (cdr _sre696_))
                                           _flags697_
                                           _next698_)
                                          _next698_
                                          (_next-id688_))
                                         (if (let ()
                                               (declare (not safe))
                                               (##fx= _x750_ '3))
                                             (let* ((_n2765_ (std/srfi/115#make-fork-state
                                                              _next698_
                                                              '#f
                                                              (_next-id688_)))
                                                    (_n1767_ (std/srfi/115#make-fork-state
                                                              (_->rx690_
                                                               (cons 'seq
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             (cdr _sre696_))
                       _flags697_
                       _n2765_)
                      _n2765_
                      (_next-id688_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (##structure-set!
                                                _n2765_
                                                _n1767_
                                                '6
                                                std/srfi/115#State
                                                '#f)
                                               _n1767_)
                                             (let* ((_n2770_ (std/srfi/115#make-fork-state
                                                              _next698_
                                                              '#f
                                                              (_next-id688_)))
                                                    (_n1772_ (_->rx690_
                                                              (cons 'seq
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (cdr _sre696_))
                      _flags697_
                      _n2770_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (##structure-set!
                                                _n2770_
                                                _n1772_
                                                '6
                                                std/srfi/115#State
                                                '#f)
                                               _n1772_))))
                                 (if (let ()
                                       (declare (not safe))
                                       (##fx< _x750_ '7))
                                     (if (let ()
                                           (declare (not safe))
                                           (##fx= _x750_ '5))
                                         (_->rx690_
                                          (std/srfi/115#sre-expand-reps
                                           (cadr _sre696_)
                                           (cadr _sre696_)
                                           (cons 'seq (cddr _sre696_)))
                                          _flags697_
                                          _next698_)
                                         (_->rx690_
                                          (std/srfi/115#sre-expand-reps
                                           (cadr _sre696_)
                                           '#f
                                           (cons 'seq (cddr _sre696_)))
                                          _flags697_
                                          _next698_))
                                     (if (let ()
                                           (declare (not safe))
                                           (##fx= _x750_ '7))
                                         (_->rx690_
                                          (std/srfi/115#sre-expand-reps
                                           (cadr _sre696_)
                                           (car (cddr _sre696_))
                                           (cons 'seq (cdr (cddr _sre696_))))
                                          _flags697_
                                          _next698_)
                                         (if (let ()
                                               (declare (not safe))
                                               (##fx= _x750_ '8))
                                             (if (std/srfi/115#flag-set?
                                                  _flags697_
                                                  std/srfi/115#~nocapture?)
                                                 (_->rx690_
                                                  (cons 'seq (cddr _sre696_))
                                                  _flags697_
                                                  _next698_)
                                                 (begin
                                                   (set! _match-names685_
                                                         (cons (cons (cadr _sre696_)
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             (+ '1 _current-match683_))
                       _match-names685_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (_->rx690_
                                                    (cons 'submatch
                                                          (cddr _sre696_))
                                                    _flags697_
                                                    _next698_)))
                                             (if (std/srfi/115#flag-set?
                                                  _flags697_
                                                  std/srfi/115#~nocapture?)
                                                 (_->rx690_
                                                  (cons 'seq (cddr _sre696_))
                                                  _flags697_
                                                  _next698_)
                                                 (begin
                                                   (set! _match-names685_
                                                         (cons (cons (cadr _sre696_)
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _current-match683_)
                       _match-names685_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (_->rx690_
                                                    (cons 'submatch-list
                                                          (cddr _sre696_))
                                                    _flags697_
                                                    _next698_)))))))
                             (if (let ()
                                   (declare (not safe))
                                   (##fx< _x750_ '15))
                                 (if (let ()
                                       (declare (not safe))
                                       (##fx< _x750_ '12))
                                     (if (let ()
                                           (declare (not safe))
                                           (##fx= _x750_ '10))
                                         (if (std/srfi/115#flag-set?
                                              _flags697_
                                              std/srfi/115#~nocapture?)
                                             (_->rx690_
                                              (cons 'seq (cdr _sre696_))
                                              _flags697_
                                              _next698_)
                                             (let ((_num775_
                                                    _current-match683_)
                                                   (_index776_
                                                    _current-index682_))
                                               (set! _current-match683_
                                                     (+ _current-match683_ '1))
                                               (set! _current-index682_
                                                     (+ _current-index682_ '2))
                                               (set! _match-rules686_
                                                     (cons (cons _index776_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (+ _index776_ '1))
                   (foldr1 cons '() _match-rules686_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (_make-submatch-state689_
                                                (cons 'seq (cdr _sre696_))
                                                _flags697_
                                                _next698_
                                                _index776_)))
                                         (if (std/srfi/115#flag-set?
                                              _flags697_
                                              std/srfi/115#~nocapture?)
                                             (_->rx690_
                                              (cons 'seq (cdr _sre696_))
                                              _flags697_
                                              _next698_)
                                             (let* ((_num778_
                                                     _current-match683_)
                                                    (_index780_
                                                     _current-index682_))
                                               (set! _current-match683_
                                                     (+ _current-match683_ '1))
                                               (set! _current-index682_
                                                     (+ _current-index682_ '1))
                                               (set! _match-rules686_
                                                     (cons _index780_
                                                           (foldr1 cons
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           '()
                           _match-rules686_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (let* ((_n2783_ (std/srfi/115#make-epsilon-state
                                                                _next698_
                                                                (_next-id688_)))
                                                      (_n1785_ (_->rx690_
                                                                (cons 'submatch
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                              (cdr _sre696_))
                        _flags697_
                        _n2783_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (##structure-set!
                                                  _n2783_
                                                  (list _index780_
                                                        _num778_
                                                        _current-match683_)
                                                  '3
                                                  std/srfi/115#State
                                                  '#f)
                                                 (##structure-set!
                                                  _n2783_
                                                  'list
                                                  '4
                                                  std/srfi/115#State
                                                  '#f)
                                                 _n1785_))))
                                     (if (let ()
                                           (declare (not safe))
                                           (##fx= _x750_ '12))
                                         (std/srfi/115#make-char-state
                                          (std/srfi/115#sre->char-set
                                           _sre696_
                                           _flags697_)
                                          std/srfi/115#~none
                                          _next698_
                                          (_next-id688_))
                                         (if (let ()
                                               (declare (not safe))
                                               (##fx= _x750_ '13))
                                             (_->rx690_
                                              (cons ':
                                                    (cons 'bow
                                                          (foldr1 cons
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (cons 'eow '())
                          (cdr _sre696_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              _flags697_
                                              _next698_)
                                             (_->rx690_
                                              (cons 'word
                                                    (cons (cons '+
                                                                (cons (if (equal? '(any)
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                          (cdr _sre696_))
                                  'word-constituent
                                  (std/srfi/14#char-set-intersection
                                   std/srfi/115#char-set:word-constituent
                                   (std/srfi/115#sre->char-set
                                    (cons 'or (foldr1 cons '() (cdr _sre696_)))
                                    _flags697_)))
                              '()))
                  '()))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              _flags697_
                                              _next698_))))
                                 (if (let ()
                                       (declare (not safe))
                                       (##fx< _x750_ '17))
                                     (if (let ()
                                           (declare (not safe))
                                           (##fx= _x750_ '15))
                                         (_->rx690_
                                          (cons ':
                                                (foldr1 cons
                                                        '()
                                                        (cdr _sre696_)))
                                          (std/srfi/115#flag-clear
                                           _flags697_
                                           std/srfi/115#~ci?)
                                          _next698_)
                                         (_->rx690_
                                          (cons ':
                                                (foldr1 cons
                                                        '()
                                                        (cdr _sre696_)))
                                          (std/srfi/115#flag-join
                                           _flags697_
                                           std/srfi/115#~ci?)
                                          _next698_))
                                     (if (let ()
                                           (declare (not safe))
                                           (##fx= _x750_ '17))
                                         (_->rx690_
                                          (cons ':
                                                (foldr1 cons
                                                        '()
                                                        (cdr _sre696_)))
                                          (std/srfi/115#flag-clear
                                           _flags697_
                                           std/srfi/115#~ascii?)
                                          _next698_)
                                         (if (let ()
                                               (declare (not safe))
                                               (##fx= _x750_ '18))
                                             (_->rx690_
                                              (cons ':
                                                    (foldr1 cons
                                                            '()
                                                            (cdr _sre696_)))
                                              (std/srfi/115#flag-join
                                               _flags697_
                                               std/srfi/115#~ascii?)
                                              _next698_)
                                             (_->rx690_
                                              (cons ':
                                                    (foldr1 cons
                                                            '()
                                                            (cdr _sre696_)))
                                              (std/srfi/115#flag-join
                                               _flags697_
                                               std/srfi/115#~nocapture?)
                                              _next698_)))))))
                       (_default731735_))
                   (_default731735_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_default731735_))))
                                             '#!void))))))))))
        (let ((_flags692_
               (std/srfi/115#parse-flags
                (if (pair? _o680_) (car _o680_) '#f))))
          (if (let ()
                (declare (not safe))
                (##structure-instance-of? _sre679_ 'std/srfi/115#Rx))
              _sre679_
              (let* ((_start694_
                      (_make-submatch-state689_
                       _sre679_
                       _flags692_
                       (std/srfi/115#make-accept-state (_next-id688_))
                       '0))
                     (__tmp5110 (list->vector (reverse _match-rules686_))))
                (declare (not safe))
                (##structure
                 std/srfi/115#Rx
                 _start694_
                 _current-match683_
                 _current-index682_
                 _non-greedy-indexes687_
                 __tmp5110
                 _match-names685_
                 _sre679_)))))))
  (define std/srfi/115#regexp-fold
    (lambda (_rx644_ _kons645_ _knil646_ _str647_ . _o648_)
      (let* ((_rx650_ (std/srfi/115#regexp _rx644_))
             (_finish657_
              (if (pair? _o648_)
                  (car _o648_)
                  (lambda (_from652_ _md653_ _str654_ _acc655_) _acc655_)))
             (_o659_ (if (pair? _o648_) (cdr _o648_) _o648_))
             (_start661_ (std/srfi/115#string-start-arg _str647_ _o659_))
             (_end663_
              (std/srfi/115#string-end-arg
               _str647_
               (if (pair? _o659_) (cdr _o659_) _o659_))))
        (let _lp666_ ((_i668_ _start661_)
                      (_from669_ _start661_)
                      (_acc670_ _knil646_))
          (let ((_$e672_ (if (std/srfi/115#string-cursor<? _i668_ _end663_)
                             (std/srfi/115#regexp-run-offsets
                              '#t
                              _rx650_
                              _str647_
                              _i668_
                              _end663_)
                             '#f)))
            (if _$e672_
                ((lambda (_md675_)
                   (let ((_j677_ (std/srfi/115#regexp-match-ref _md675_ '1)))
                     (_lp666_ (if (and (std/srfi/115#string-cursor=?
                                        _i668_
                                        _j677_)
                                       (std/srfi/115#string-cursor<?
                                        _j677_
                                        _end663_))
                                  (std/srfi/115#string-cursor-next
                                   _str647_
                                   _j677_)
                                  _j677_)
                              _j677_
                              (_kons645_
                               (std/srfi/115#string-cursor->index
                                _str647_
                                _from669_)
                               _md675_
                               _str647_
                               _acc670_))))
                 _$e672_)
                (_finish657_
                 (std/srfi/115#string-cursor->index _str647_ _from669_)
                 '#f
                 _str647_
                 _acc670_)))))))
  (define std/srfi/115#regexp-extract
    (lambda (_rx628_ _str629_ . _o630_)
      (apply std/srfi/115#regexp-fold
             _rx628_
             (lambda (_from632_ _md633_ _str634_ _a635_)
               (let ((_s637_ (std/srfi/115#regexp-match-submatch _md633_ '0)))
                 (if (equal? _s637_ '"") _a635_ (cons _s637_ _a635_))))
             '()
             _str629_
             (lambda (_from639_ _md640_ _str641_ _a642_) (reverse _a642_))
             _o630_)))
  (define std/srfi/115#regexp-split
    (lambda (_rx608_ _str609_ . _o610_)
      (let ((_start612_ (if (pair? _o610_) (car _o610_) '0))
            (_end613_
             (if (and (pair? _o610_) (pair? (cdr _o610_)))
                 (cadr _o610_)
                 (string-length _str609_))))
        (std/srfi/115#regexp-fold
         _rx608_
         (lambda (_from615_ _md616_ _str617_ _a618_)
           (let ((_i620_ (std/srfi/115#regexp-match-submatch-start _md616_ '0))
                 (_j621_ (std/srfi/115#regexp-match-submatch-end _md616_ '0)))
             (if (eqv? _i620_ _j621_)
                 _a618_
                 (cons _j621_
                       (cons (substring _str617_ (car _a618_) _i620_)
                             (cdr _a618_))))))
         (cons _start612_ '())
         _str609_
         (lambda (_from623_ _md624_ _str625_ _a626_)
           (reverse (cons (substring _str625_ (car _a626_) _end613_)
                          (cdr _a626_))))
         _start612_
         _end613_))))
  (define std/srfi/115#regexp-partition
    (lambda (_rx580_ _str581_ . _o582_)
      (let ((_start584_ (if (pair? _o582_) (car _o582_) '0))
            (_end585_
             (if (and (pair? _o582_) (pair? (cdr _o582_)))
                 (cadr _o582_)
                 (string-length _str581_))))
        (letrec ((_kons587_
                  (lambda (_from598_ _md599_ _str600_ _a601_)
                    (let ((_i603_ (std/srfi/115#regexp-match-submatch-start
                                   _md599_
                                   '0))
                          (_j604_ (std/srfi/115#regexp-match-submatch-end
                                   _md599_
                                   '0)))
                      (if (eqv? _i603_ _j604_)
                          _a601_
                          (let ((_left606_
                                 (substring _str600_ (car _a601_) _i603_)))
                            (cons _j604_
                                  (cons (std/srfi/115#regexp-match-submatch
                                         _md599_
                                         '0)
                                        (cons _left606_ (cdr _a601_)))))))))
                 (_final588_
                  (lambda (_from590_ _md591_ _str592_ _a593_)
                    (if (or (< _from590_ _end585_) (null? (cdr _a593_)))
                        (cons (substring _str592_ (car _a593_) _end585_)
                              (cdr _a593_))
                        (cdr _a593_)))))
          (reverse (std/srfi/115#regexp-fold
                    _rx580_
                    _kons587_
                    (cons _start584_ '())
                    _str581_
                    _final588_
                    _start584_
                    _end585_))))))
  (define std/srfi/115#regexp-replace
    (lambda (_rx557_ _str558_ _subst559_ . _o560_)
      (let* ((_start562_
              (if (and (pair? _o560_) (car _o560_)) (car _o560_) '0))
             (_o564_ (if (pair? _o560_) (cdr _o560_) '()))
             (_end566_
              (if (and (pair? _o564_) (car _o564_))
                  (car _o564_)
                  (string-length _str558_)))
             (_o568_ (if (pair? _o564_) (cdr _o564_) '()))
             (_count570_ (if (pair? _o568_) (car _o568_) '0)))
        (let _lp573_ ((_i575_ _start562_) (_count576_ _count570_))
          (let ((_m578_ (std/srfi/115#regexp-search
                         _rx557_
                         _str558_
                         _i575_
                         _end566_)))
            (if (not _m578_)
                _str558_
                (if (positive? _count576_)
                    (_lp573_ (std/srfi/115#regexp-match-submatch-end _m578_ '0)
                             (- _count576_ '1))
                    (std/srfi/115#string-concatenate
                     (cons (substring
                            _str558_
                            _start562_
                            (std/srfi/115#regexp-match-submatch-start
                             _m578_
                             '0))
                           (append (reverse (std/srfi/115#regexp-apply-match
                                             _m578_
                                             _str558_
                                             _subst559_
                                             _start562_
                                             _end566_))
                                   (list (substring
                                          _str558_
                                          (std/srfi/115#regexp-match-submatch-end
                                           _m578_
                                           '0)
                                          _end566_))))))))))))
  (define std/srfi/115#regexp-replace-all
    (lambda (_rx531_ _str532_ _subst533_ . _o534_)
      (let* ((_start536_
              (if (and (pair? _o534_) (car _o534_)) (car _o534_) '0))
             (_o538_ (if (pair? _o534_) (cdr _o534_) '()))
             (_end540_
              (if (and (pair? _o538_) (car _o538_))
                  (car _o538_)
                  (string-length _str532_))))
        (std/srfi/115#regexp-fold
         _rx531_
         (lambda (_i543_ _m544_ _str545_ _acc546_)
           (let ((_m-start548_
                  (std/srfi/115#regexp-match-submatch-start _m544_ '0)))
             (append (std/srfi/115#regexp-apply-match
                      _m544_
                      _str545_
                      _subst533_
                      _start536_
                      _end540_)
                     (if (>= _i543_ _m-start548_)
                         _acc546_
                         (cons (substring _str545_ _i543_ _m-start548_)
                               _acc546_)))))
         '()
         _str532_
         (lambda (_i550_ _m551_ _str552_ _acc553_)
           (let ((_end555_ (string-length _str552_)))
             (std/srfi/115#string-concatenate-reverse
              (if (>= _i550_ _end555_)
                  _acc553_
                  (cons (substring _str552_ _i550_ _end555_) _acc553_)))))
         _start536_
         _end540_))))
  (define std/srfi/115#regexp-apply-match
    (lambda (_m509_ _str510_ _ls511_ _start512_ _end513_)
      (let _lp515_ ((_ls517_ _ls511_) (_res518_ '()))
        (if (null? _ls517_)
            _res518_
            (if (not (pair? _ls517_))
                (_lp515_ (list _ls517_) _res518_)
                (if (integer? (car _ls517_))
                    (_lp515_ (cdr _ls517_)
                             (cons (let ((_$e520_ (std/srfi/115#regexp-match-submatch
                                                   _m509_
                                                   (car _ls517_))))
                                     (if _$e520_ _$e520_ '""))
                                   _res518_))
                    (if (procedure? (car _ls517_))
                        (_lp515_ (cdr _ls517_)
                                 (cons ((car _ls517_) _m509_) _res518_))
                        (if (symbol? (car _ls517_))
                            (let ((_$e523_ (car _ls517_)))
                              (if (eq? 'pre _$e523_)
                                  (_lp515_ (cdr _ls517_)
                                           (cons (substring
                                                  _str510_
                                                  _start512_
                                                  (std/srfi/115#regexp-match-submatch-start
                                                   _m509_
                                                   '0))
                                                 _res518_))
                                  (if (eq? 'post _$e523_)
                                      (_lp515_ (cdr _ls517_)
                                               (cons (substring
                                                      _str510_
                                                      (std/srfi/115#regexp-match-submatch-end
                                                       _m509_
                                                       '0)
                                                      _end513_)
                                                     _res518_))
                                      (let ((_$e526_ (assq (car _ls517_)
                                                           (std/srfi/115#regexp-match-names
                                                            _m509_))))
                                        (if _$e526_
                                            ((lambda (_x529_)
                                               (_lp515_ (cons (cdr _x529_)
                                                              (cdr _ls517_))
                                                        _res518_))
                                             _$e526_)
                                            (error '"unknown match replacement"
                                                   (car _ls517_)))))))
                            (_lp515_ (cdr _ls517_)
                                     (cons (car _ls517_) _res518_))))))))))
  (define std/srfi/115#re:grapheme (std/srfi/115#regexp 'grapheme)))
