%%HP: T(3)A(R)F(.);
\<< DUP COS SWAP SIN
R\->C *
\>>