A routine to return the length of an ordered set.
(define ordered-length
(function integer
((a sordered))
(vector-length (cadr a))))
