let union_list l = List.fold_left union empty l