Examples/test-suite/schemerunme/overload_copy.scm

(define f (new-Foo))
(define g (new-Foo f))

(exit 0)