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