;; gauche #?= syntax. This translates to the debug-print macro, which
;; prints pre/post results

(enable-debug)
;;(disable-debug)

(define (fac n)
  (cond ((<= n 1) 1)
        (else #?=(* n (fac (- n 1))))))

(print (fac 5))

(define (bloop n)
  (cond
   ((= n 3) (error "fsck"))
   (else (* n n))))

(dotimes (i 10)
  (print (bloop i)))