let set_attribute node name value =
    node >>> call_method "setAttribute" [| string name ; string value |] >>> ignore