         ] if
     ] if-zero ;
 
-: parse-name ( -- seq )
+: parse-name ( -- sequence )
     [ (parse-name) ] { } make "." join ;
 
 : parse-query ( -- query )

        4 read be> >>ttl
        2 read be> over type>> parse-rdata >>rdata ;

: parse-message ( ba -- message )
    [ message new ] dip
    binary [
        2 read be> >>id

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

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

: >name ( domain -- byte-array ) "." split [ >n/label ] map concat ;

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