(require-extension srfi-113 srfi-128)
(set-adjoin (set (make-equal-comparator) 0)
            (set (make-equal-comparator) 1))