$ cat x.scm 
(import chicken scheme)
(define (f x) (- x))
$ cat y.scm
(import chicken scheme)
(define (main) (f 1))
(print (main))
$ csc -c -e -unit m x.scm
$ csc y.scm -uses m x.o
$ ./y
-1