%%HP: T(3)A(D)F(.);
\<< OVER SIZE \-> p n
  \<< OBJ\-> 1 SWAP
    START n ROLL p
EVAL
    NEXT n \->LIST
  \>>
\>>
