             [ type>> enum>number 2 >be ]
             [ class>> enum>number 2 >be ]
         } cleave
-    ] output>array concat ;
+    ] B{ } append-outputs-as ;
 
 GENERIC: rdata>byte-array ( rdata type -- obj )
 

            [ authority-section>> [ rr>byte-array ] map concat ]
            [ additional-section>> [ rr>byte-array ] map concat ]
        } cleave
    ] output>array concat ;

: udp-query ( bytes server -- bytes' )
    f 0 <inet4> <datagram>

            [ expire>> 4 >be ]
            [ minimum>> 4 >be ]
        } cleave
    ] B{ } append-outputs-as ;

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