;; console.scm

(module veritas-console-reporter
  ()
  (import chicken scheme extras)

  (define (do-it?) (zero? (random 2)))

  (cond
   ((do-it?) (set! foobar "foobar"))))

;; csc -feature compiling-extension -setup-mode    -s -d0 -O3 -S console.scm -j veritas-console-reporter -o console-reporter.so