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