%%HP: T(3)A(D)F(.);
\<< ROT DUP TYPE
  IF 6 ==
  THEN 1 \->LIST
  END REV \-> s t v
  \<< 1 v SIZE
    FOR j v j GET s
t PATH ROT EVAL
SWAP ROT RCL
LASTARG DUP PURGE
ROT EVAL STO EVAL
    NEXT
  \>>
\>>
