         2dup length 2 - >= [
             2drop
         ] [
-            [ 1 + dup 2 + ] dip subseq
+            [ 1 + dup 2 + ] dip <slice>
             dup hex> dup @ [ nip , ] [ CHAR: % , drop % ] if
         ] if
     ] call ; inline

    ] "" make ;

: escape-uri-char? ( ch -- ? )
    "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789;,/?:@&=+$-_.!~*'()#" member? not ; inline

: encode-uri ( str -- str' )
    [

    2dup length 2 - >= [
        2drop
    ] [
        [ 1 + dup 2 + ] dip <slice> hex> [ , ] when*
    ] if ;

: url-decode-iter ( index str -- )
