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