(defn domain
"Construct a domain for assignment to a var. Arguments should
be integers given in sorted order. domains may be more efficient
than intervals when only a few values are possible."
[& args]
(when (seq args)
(sorted-set->domain (into (sorted-set) args))))