/src/ocamljs-sanity/main.ml

 1module D = Dom
 2
 3let onload () =
 4  let main = (D.document#getElementById "main" : D.element) in
 5  let text = (D.document#createTextNode "hw_text" : D.text) in
 6  text#_set_data "Hello World!";
 7  ignore (main#appendChild text)
 8;;
 9
10D.window#_set_onload onload