(use srfi-1 loop)

(cond-expand
 (exe
  (include "numbers.scm") )
 (else))

(load "numbers-base.so")

(define b1 (+ 1 #x3fffffff))

(print (fixnum? b1))

;(set-gc-report! #t)

(define vec (make-vector 4))

(loop for i = 0 then (+ i 10000)
;      do (+ b1 10)
;      do (/ i 10)
;      do (gc #t)
;      do (pp (##numbers#fetch-counters vec))
;      do (when (> (##sys#fudge 26) 500) (print (##sys#fudge 26)))
      if (zero? (modulo i 100000000)) do (print (number->string i))
)


(gc #t)
(pp (##numbers#fetch-counters vec))