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