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