(bind-func GSL_SET_IMAG (lambda (z:gsl_complex* y) (aset! (tref-ptr z 0) 1 y) z))
(bind-lib libgsl gsl_complex_arg [double,gsl_complex]*)
(bind-lib libgsl gsl_complex_abs [double,gsl_complex]*)
(bind-lib libgsl gsl_complex_logabs [double,gsl_complex]*)