test.scm:

(use miscmacros)

(define (fact n res)
  (if (zero? n)
      res
      (fact (sub1 n) (* n res))))

(time
 (dotimes (i 10000) (fact 100 1)))



kooda@crocmou:/tmp$ csc test.scm 
kooda@crocmou:/tmp$ ./test 
0.04s CPU time, 0/141 GCs (major/minor)
kooda@crocmou:/tmp$ csc test.scm -profile
kooda@crocmou:/tmp$ ./test 
0.568s CPU time, 0.06s GC time (major), 2030000/1928099 mutations (total/tracked), 61/1975 GCs (major/minor)
kooda@crocmou:/tmp$