let set_attr name value obj =
    obj >>> AXOJs.Node.set_attribute name value ; obj