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