Examples/test-suite/mzscheme/casts_runme.scm

(load-extension "casts.so")

(define x (new-B))

(A-hello x)				

(exit 0)