#;1> (module m (foo make-foo) (import scheme chicken.base) (define-record foo bar baz))
#;2> (import m)
#;3> foo
m#foo
#;4> (make-foo 1 2)
#<m#foo>
#;5> (set! (record-printer foo) (lambda (x p) (display "#<lol>" p)))
#;6> (make-foo 1 2)
#<lol>