Welcome to the CHICKEN Scheme pasting service

;; gostak.scm -- compile with `csc -O2 -d1 -s gostak.scm -J`
(module gostak
  *
  (import chicken scheme)

(define (make-dosh)
  "dosh")

(define (distim dosh)
  (print "distimming " dosh "..."))

)


;; program.scm -- compile with `csc -O2 -d1 program.scm`
(load-library 'gostak "./gostak.so")

(module program
  *
  (import chicken scheme gostak)

(define (main)
  (distim (make-dosh)))

)

(import program)
(main)