(use setup-api)

(do ((i 0 (+ i 100)))
    ((> i 3000) #f)
  (print "iteration " i)
  (with-output-to-file "test.scm"
    (lambda ()
      (do ((j 0 (+ j 1)))
          ((= j i) #f)
        (write '(print #t)))))
  (let ((before (current-seconds)))
    (compile -t "test.scm")
    (with-output-to-file "data"
      (lambda ()
        (printf "~A\t~A\n" i (- (current-seconds) before)))
      #:append)))