;Calculate the phase of a real+imaginary complex value (bind-func Complex_phase2 (lambda (a:Complexf) (atan2 (tref a 1) (tref a 0))))