             [ authority-section>> [ rr>byte-array ] map concat ]
             [ additional-section>> [ rr>byte-array ] map concat ]
         } cleave
-    ] output>array concat ;
+    ] B{ } append-outputs-as ;
 
 : udp-query ( bytes server -- bytes' )
     f 0 <inet4> <datagram>

            [ type>> enum>number 2 >be ]
            [ class>> enum>number 2 >be ]
        } cleave
    ] output>array concat ;

GENERIC: rdata>byte-array ( rdata type -- obj )


                [ length 2 >be ] [ ] bi append
            ]
        } cleave
    ] B{ } append-outputs-as ;

: message>byte-array ( message -- ba )
    [
