(bind-func print "specialised print function for Complexd*" (lambda (c:Complexd*) (if (null? c) (printf "<Complexd 0x0>") (printf "%.2f%+.2fi" (tref c 0) (tref c 1))) void))