                        [(conj state (take n data))
                         (drop n data)])))
           (ffilter (comp empty? second))
-          first (apply concat) byte-array))
+          first (drop 1) (apply concat) byte-array))
   ([wire ^long offset ^long length]
      (wire->bytes (->> wire (drop offset) (take length)))))
 

  ([bytes ^long offset ^long length]
     (bytes->name (->> bytes (drop offset) (take length)))))

(defn domain-next
  "For the domain child which is a subdomain of domain parent, return the
immediate child domain of parent which is either identical to child or also a

  [domain] (->> (iterate #(domain-next domain %) nil) (drop 1)
                (take-while identity)))

(extend-type (java.lang.Class/forName "[B")
  DNSDomainConstruction
  (domain [this] (domain* this this))
