type 'msg attributes = 'msg Attribute.t listtype 'msg children = 'msg t listval text : string -> 'msg tval node : string -> 'msg attributes -> 'msg children -> 'msg tval div : 'msg attributes -> 'msg children -> 'msg tval span : 'msg attributes -> 'msg children -> 'msg tval pre : 'msg attributes -> 'msg children -> 'msg tval p : 'msg attributes -> 'msg children -> 'msg tval ol : 'msg attributes -> 'msg children -> 'msg tval ul : 'msg attributes -> 'msg children -> 'msg tval li : 'msg attributes -> 'msg children -> 'msg tval h1 : 'msg attributes -> 'msg children -> 'msg tval h2 : 'msg attributes -> 'msg children -> 'msg tval h3 : 'msg attributes -> 'msg children -> 'msg tval h4 : 'msg attributes -> 'msg children -> 'msg tval h5 : 'msg attributes -> 'msg children -> 'msg tval h6 : 'msg attributes -> 'msg children -> 'msg tval b : 'msg attributes -> 'msg children -> 'msg tBold text
val i : 'msg attributes -> 'msg children -> 'msg tItalic text
val strong : 'msg attributes -> 'msg children -> 'msg tImportant text
val button : 'msg attributes -> 'msg children -> 'msg tval input : 'msg attributes -> 'msg children -> 'msg tval textarea : 'msg attributes -> 'msg children -> 'msg t