(bind-func Carg (lambda (num:gsl_complex*) (let ((real (aref (tref num 0) 0)) (imag (aref (tref num 0) 1))) (atan2 real imag))))