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

\>>