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

\<<
  SWAP OBJ\-> \-> n
  \<<
    n 1 + ROLL n SRCH                   
    2 - ROLLD                           
    n 1 + \->LIST                       
  \>>
\>>

