(module foo *
(import chicken scheme)
(define (three x)
  (list x x x)))

(import foo)
(print (eval '(three (quote abc)) (module-environment 'foo)))