%%HP: T(3)A(D)F(.);
\<< SWAP \-> r \Gh
  \<< \Gh COS r * \Gh SIN
r *
  \>>
\>>
