loop.scm

(define counter 0)

(define (main args)
  (let loop ()
    (guard (e (else (print "catch!")
                    (raise e)))
      (inc! counter)
      (if (< counter 10)
          (loop)
          (error "err"))))
  0)