;;;;

;(define-type seq (or list vector string linear-sequence random-access-sequence))
(define-type seq (or list vector string))

(define-type binary-predicate (* * --> boolean))

(define-type alist (or null (list-of (pair * *))))

(define-type histogram-list list)