%%HP: T(3)A(D)F(.);
\<< DUP
  IF TYPE 12 \=/
  THEN "_" SWAP
\->TAG OBJ\-> + SWAP
\->STR SWAP + OBJ\->
DUP OBJ\-> OBJ\-> STO
  END
\>>
