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