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