;; print rectangular (bind-func CprintR (lambda (num:gsl_complex*) (if (< (Cimag num) 0.0) (printf "(%f - i%f)\n" (Creal num) (fabs (Cimag num))) (printf "(%f + i%f)\n" (Creal num) (Cimag num)))))