(bind-func xtm_multiplication (lambda (b:float a:Complexf) (Cpxf (- (* (tref a 0) b) (tref a 1)) (+ (tref a 0) (* (tref a 1) b)))))