(print "*** csi ***")
(system "csi -s mathh-test.scm")

;no -disable-interrupts
;NO -inline-global (real probs here w/ implicit)
(define *csc-options* "-scrutinize -optimize-leaf-routines -local -inline -specialize -unsafe -no-trace -no-lambda-info -clustering -lfa2")
(print "*** csc (" *csc-options* ") ***")
(system (string-append "csc" " " *csc-options* " " "mathh-test.scm"))
(system "./mathh-test")