(bind-func Cdiv
(lambda (num1:gsl_complex* num2:gsl_complex*)
(let ((num3:gsl_complex* (alloc))
(res (tref (gsl_complex_div (pref num1 0) (pref num2 0)) 0)))
(aset! (tref-ptr num3 0) 0 (aref res 0))
(aset! (tref-ptr num3 0) 1 (aref res 1))
num3)))