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

;no -disable-interrupts
(define *csc-options* "-inline-global -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* " " "geo-utils-test.scm"))
(system "./geo-utils-test")