%%HP: T(3)A(R)F(.);
\<< DUP 1 GET OVER
SIZE \-> d t n
  \<< { } SWAP DUP
SIZE n - 1 + 1 SWAP
    START DUP 1 GET
t / COLCT ROT OVER
+ 3 ROLLD 1 n
      FOR m OVER m
GET d m GET 3 PICK
* - ROT m ROT PUT
SWAP
      NEXT DROP 2
100 SUB
    NEXT d
  \>>
\>>
