#;2> (define-record foo bar baz)
#;3> (let-slots ((bar baz) foo (make-foo 1 2)) (+ bar baz))
3