(require (lib "rscT.ss" "rscT"))

(define SQ (make-sq* <=))

(for-each!
 (lambda (n) (sq-insert! SQ (make-sqe n (- n))))
 (iota 12))

(begin
 (inform! (sqe->list (sq-min SQ)))
 (sq-remove-min! SQ))

(map sqe->list (sq-take=! SQ =))