list $\rightarrow$ordered

The list $\rightarrow$ordered function converts a list to an ordered set.

(define list->ordered
(function sordered
((a slist))
(list 'ordered (list->vector a))))