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