let
text content =
document >>> call_method
"createTextNode"
[| string content |]