1: (module example
 2:    (import some-module)
 3:    (export (gee str)))
 4: 
 5: (define (gee str)
 6:    (bind-exit (stop)
 7:       (try (let ((port (open-input-file str)))
 8:               (unwind-protect 
 9:                  (some-module-fun port stop)
10:                  (close-input-port port)))
11:            (lambda (escape proc obj msg)
12:               (notify-error proc obj msg)
13:               (escape #f)))))
14: