%%HP: T(3)A(D)F(.);
\<< RAD \-> Z N
  \<< Z ABS N INV ^ Z
ARG N / (1,\<)90) *
EXP * (2,\<)90) N / \pi
* EXP \-> M A
    \<< 0 N 1 -
      FOR K A K ^ M
* \->NUM
      NEXT
    \>>
  \>> DEG
\>>