let
of_satom s =
Array
.of_list (
SAtom
.elements s)