(use arrays)
(import sets)

(define set1 (set 1 2 "3" "4"))
(define set2 (set 1 2 "3" "4"))

(set= set1 set2)                           ;; => #f
(equal? set1 set2)                         ;; => #f
(equal? (set->list set1) (set->list set2)) ;; => #t