let append_children children obj =
  List.iter (fun c -> obj >>> AXOJs.Node.append c) children