(require-extension single)
(require-extension multi)

(define f (make <Foo>))
(slot-set! f 'a 3)
(print (slot-ref f 'a))

(define b (make <Bar>))
(slot-set! b 'b 2)
(print (slot-ref b 'b))

(define b2 (make <Bar2>))
(slot-set! b2 'b 4)
(slot-set! b2 'c 6)
(print (slot-ref b2 'b))
(print (slot-ref b2 'c))

(exit 0)