sig
  val data : string -> 'a Xhtml_sigs.T_01_01.elt
  val node :
    string ->
    ?a:'a Xhtml_sigs.T_01_01.attrib list ->
    'b Xhtml_sigs.T_01_01.elt list -> 'c Xhtml_sigs.T_01_01.elt
  val leaf :
    string ->
    ?a:'a Xhtml_sigs.T_01_01.attrib list -> unit -> 'b Xhtml_sigs.T_01_01.elt
  val string_attrib : string -> string -> 'a Xhtml_sigs.T_01_01.attrib
  val float_attrib : string -> float -> 'a Xhtml_sigs.T_01_01.attrib
  val int_attrib : string -> int -> 'a Xhtml_sigs.T_01_01.attrib
  val uri_attrib :
    string -> Xhtml_sigs.T_01_01.uri -> 'a Xhtml_sigs.T_01_01.attrib
  val space_sep_attrib :
    string -> string list -> 'a Xhtml_sigs.T_01_01.attrib
  val comma_sep_attrib :
    string -> string list -> 'a Xhtml_sigs.T_01_01.attrib
end