functor (Xmlm : Xmlm_type) ->   sig     val string_of_signal :       [< `Data of string        | `Dtd of string option        | `El_end        | `El_start of ('a * string) * (('b * string) * string) list ] ->       string     type path = Xmlm.signal list     val root : [> `El_start of (string * string) * 'a list ] list     val path : Kwxmlm.Make.path -> Xmlm.signal -> Kwxmlm.Make.path     val fold :       (Xmlm.input -> Kwxmlm.Make.path -> 'a -> Xmlm.signal -> 'a) ->       'a -> Xmlm.input -> 'a   end