(bind-func Csinh
(lambda (num1:gsl_complex*)
(let ((num3:gsl_complex* (alloc))
(cres (gsl_complex_sinh (pref num1 0)))
(res (tref cres 0)))
(aset! (tref-ptr num3 0) 0 (aref res 0))
(aset! (tref-ptr num3 0) 1 (aref res 1))
num3)))