(module foo

(make-bar bar-x)

(import chicken scheme)

(define-record bar x)

)

(module qux

(make-bar bar-x)

(import chicken scheme)

(define-record bar x)

)

(import (prefix foo foo-)
        (prefix qux qux-))

(print (qux-bar-x (foo-make-bar 123)))