%%HP: T(3)A(D)F(.);
\<< OBJ\-> DUP DEPTH
ROLLD 2
  FOR j 2 j
    FOR k k ROLL
DUP2
      IF >
      THEN SWAP
      END k ROLLD
    NEXT j ROLLD -1
  STEP DEPTH ROLL
\->LIST
\>>
