(declare
 (unit foo)
 (block)
 (emit-import-library foo))

(module
 foo
 (foo)

 (import scheme chicken)

 (: foo (fixnum --> fixnum))
 (define (foo x) (* x 7))
	
)