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