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

(module
 bar
 (bar)

 (import scheme chicken)

 (: bar (fixnum --> fixnum))
 (define (bar x) (+ x 0))
	
)