(bind-func xtm_division (lambda (a:Complexd b:double) (let ((i (+ (* (tref a 0) b) (tref a 1))) (j (* b b)) (k (- (* (tref a 1) b) (tref a 0) ))) (Cpxd (/ i j) (/ k j)))))