(define f (create-Foo))
(test1 f 42)

(define b (new-Bar))
(test1 b 37)

(exit 0)