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

\<< OVER SIZE \-> p n

  \<< OBJ\-> 1 SWAP

    START n ROLL p

EVAL

    NEXT n \->LIST

  \>>

\>>