let to_set l = List.fold_right S.add l S.empty