(define unique/set (compose1 set->list list->set))