%%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

  \>>

\>>