sig
  type name = string * string
  type signal =
      [ `Comment of string
      | `End_element
      | `Start_element of Xml_stream.name * (Xml_stream.name * string) list
      | `Text of string list ]
  exception Malformed_stream
  module Import :
    functor (Xml : Xml_sigs.T->
      sig
        val of_seq : Xml_stream.signal Stdlib.Seq.t -> Xml.elt Xml.list_wrap
      end
end