type 'a wrap = 'a W.ttype 'a list_wrap = 'a W.tlisttype uri
val string_of_uri : (uri, string) W.ftval uri_of_string : (string, uri) W.ft
type aname = stringtype event_handlertype mouse_event_handlertype keyboard_event_handlertype touch_event_handlertype attrib
val float_attrib : aname -> float wrap -> attribval int_attrib : aname -> int wrap -> attribval string_attrib : aname -> string wrap -> attribval space_sep_attrib : aname -> string list wrap -> attribval comma_sep_attrib : aname -> string list wrap -> attribval event_handler_attrib : aname -> event_handler -> attribval mouse_event_handler_attrib : aname -> mouse_event_handler -> attribval keyboard_event_handler_attrib : aname -> keyboard_event_handler -> attribval touch_event_handler_attrib : aname -> touch_event_handler -> attribval uri_attrib : aname -> uri wrap -> attribval uris_attrib : aname -> uri list wrap -> attrib
type elttype ename = string
val empty : unit -> eltval pcdata : string wrap -> eltval encodedpcdata : string wrap -> eltval entity : string -> eltval leaf : ?a:attrib list -> ename -> eltval node : ?a:attrib list -> ename -> elt list_wrap -> eltval cdata : string -> eltval cdata_script : string -> eltval cdata_style : string -> elt