%%HP: T(3)A(R)F(.);
\<< \-> p
  \<< p EVAL p PURGE S\->EXE "EXTEND/" p + 3 \->TAG DUP PURGE STO
  \>>
\>>