         first2 swap [ hex> ] bi@ [ 4 shift ] [ ] bi* bitor
     ] B{ } map-as byte-array>ipv6 ;
 
-: parse-length-bytes ( -- seq ) read1 read utf8 decode ;
+: parse-length-bytes ( -- sequence ) read1 read utf8 decode ;
 
 : (parse-name) ( -- )
     peek1 [

        [ [ parse-rr ] replicate ] change-additional-section
    ] with-byte-reader ;

: >n/label ( string -- ba )
    [ length 1array ] [ utf8 encode ] bi B{ } append-as ;

: >name ( dn -- ba ) "." split [ >n/label ] map concat ;

: query>byte-array ( query -- ba )
    [
        {
            [ name>> >name ]

    ] if ;
*)
    
HOOK: initial-dns-servers os ( -- sequence )

{
    { [ os windows? ] [ "dns.windows" ] }
