;; print polar (radians) (bind-func CprintP (lambda (num:gsl_complex*) (printf "(%f cis %f)\n" (Cmag num) (Carg num))))