sig
  val ocsigenadv : string
  val xhtml_print :
    ?version:[< XHTML.M.doctypes > `XHTML_01_01 ] ->
    ?width:int ->
    ?encode:(string -> string) ->
    ?html_compat:bool -> [ `Html ] XHTML.M.elt -> string
  val xhtml_list_print :
    ?version:[< XHTML.M.doctypes > `XHTML_01_01 ] ->
    ?width:int ->
    ?encode:(string -> string) ->
    ?html_compat:bool -> 'XHTML.M.elt list -> string
  val emptytags : string list
  val blocktags : string list
  val semiblocktags : string list
  val taille_tab : int
end