ordered $\rightarrow$vector

The ordered $\rightarrow$vector function converts an ordred set to a Scheme vector.

(define ordered->vector
(function sol
((a sordered))
(cadr a)))

The ordered-ref function extracts an indexed element of an ordered set.

(define ordered-ref
(function sol
((a sordered)
(index integer))
(vector-ref (cadr a) index)))