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