(bind-func xtm_division (lambda (b:float a:Complexf) (let ((i (+ (* (tref a 0) b) (tref a 1))) (j (* b b)) (k (- (* (tref a 1) b) (tref a 0) ))) (Cpxf (/ i j) (/ k j)))))