functor (I : sig val emptytags : string list end) -> Xml_sigs_duce.Printer