let of_list l = List.fold_right add l empty