let
create vars sa = { vars = vars; litterals = sa; array =
ArrayAtom
.of_satom sa; }