(bind-func cart_to_pol (lambda (a:Complexd) (Cpxd (sqrt (+ (* (tref a 0) (tref a 0)) (* (tref a 1) (tref a 1)))) (atan2 (tref a 1) (tref a 0)))))