@#example@
@(define ms (mset-int 3 2 2 1))@
@(define sq (sequence-int 3 2 2 1))@
@(cond ((< ms sq) 'seq-greater)
       (#t        'mset-lesseq))@
@#endexample@
@(bye)@