         } cleave
     ] B{ } append-outputs-as ;
 
+M: TXT rdata>byte-array
+    drop ;
+
 : rr>byte-array ( rr -- byte-array )
     [
         {

: dns-AAAA-query ( domain -- message ) AAAA IN <query> dns-query ;
: dns-MX-query ( domain -- message ) MX IN <query> dns-query ;
: dns-NS-query ( domain -- message ) NS IN <query> dns-query ;

: reverse-lookup ( reversed-ip -- message )
    PTR IN <query> dns-query ;

io.encodings.utf8 io.sockets io.sockets.private
io.streams.byte-array io.timeouts kernel make math math.bitwise
math.parser namespaces nested-comments random sequences
slots.syntax splitting system vectors vocabs.loader strings ;
IN: dns

: with-input-seek ( n seek-type quot -- )
