let sort_children ~node ?(comp = compare) () = let children = List.sort comp (AXOJs.Node.children node) in node >>> append_children children