(import scheme (chicken fixnum) (chicken base) (chicken gc) (srfi 69 hash) (srfi 69 weak fix))

(define ENOUGH 700) ;to trigger a table resize

(let ((ht (make-hash-table eqv? eqv?-hash 23
                           #:test equal? #:hash equal?-hash
                           #:initial 'foo
                           #:size 500
                           #:min-load 0.45 #:max-load 0.85
                           #:weak-keys #t #:weak-values #t)) )
  (do ([i 0 (fx+ i 1)]
       [kv (gensym) (gensym)]
       [kvs '() (cons kv kvs)])
      [(fx= i ENOUGH) kvs]
    (hash-table-set! ht kv kv))
  (gc #t)
  (print (hash-table->alist ht)) 
  )