%%HP: T(3)A(R)F(.);

\<<
  SWAP OBJ\-> \-> n
  \<<
    n 1 + ROLL n SRCH                   
    3 - \-> k j                         
    \<<
      IF j DUP THEN                     
        PICK k > NOT                    
      END
      n 1 + ROLLD n DROPN               
      n j - 1 +                         
      SWAP                              
    \>>
  \>>
\>>
