%%HP: T(1)A(G)F(,);
 "" { ":R:
:L:" { 1,
0, } V } INPUT OBJ 
R L
   R L *  'A' TAG
L 2, R * / 636620, *
10000, / '' STO 
'TAO' TAG 2, R * L *
'N' STO N 3, * INV L
3, ^ * N 3, ^ 42, *
INV L 7, ^ * - 1320,
N 5, ^ * INV L 11, ^
* + N 7, ^ 75600, *
INV L 15, ^ * - 'Yf'
STO Yf 'Yf' TAG L N
2, ^ 10, * INV L 5, ^
* - N 4, ^ 216, * INV
L 9, ^ * + N 6, ^
9360, * INV L 13, ^ *
- 'Xf' STO Xf 'Xf'
TAG 'ATAN(Yf/Xf)'
NUM 'FI' STO FI 'FI'
TAG Xf SQ Yf SQ + 
'Sl' STO Sl 'Sl' TAG
Xf R  SIN * - 'X0'
STO X0 'X0' TAG 
COS R * Yf + R - 'R'
STO R 'R' TAG Yf 
SIN INV * 'Tc' STO Tc
'Tc' TAG Xf Yf  TAN
/ - 'TL' STO TL 'TL'
TAG
   {  N Yf Xf FI Sl
X0 R TL Tc } PURGE
