(bind-func print "specialised print function for Complexd" (lambda (c:Complexd) (printf "%.2f%+.2fi" (tref c 0) (tref c 1)) void))