~ chicken-core (chicken-5) /tests/embedded4.scm

 1;;; x.scm
 2
 3(import (chicken gc) (chicken platform))
 4
 5(define (bar x) (gc) (* x x))
 6
 7(define-external (baz (int i)) double
 8  (sqrt i))
 9
10(return-to-host)