%%HP: T(3)A(R)F(.);
\<< DUP2 SIZE SWAP
SIZE
  IF >
  THEN SWAP
  END LIST\-> DUP 2 +
ROLL LIST\-> DUP 2 +
ROLL \-> g s
  \<< 1 g
    FOR n n s
      IF \<=
      THEN g 1 +
ROLL + COLCT
      END g ROLLD
    NEXT g \->LIST
  \>>
\>>
