%%HP: T(3)A(D)F(.); \<< FD 'R' STO A1 TAN INV R * DF "BASE" \->TAG \>>