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