%%HP: T(3)A(D)F(.);
\<< DUP SIZE SWAP
OVER 1
  FOR i DUP i DUP
SUB + -1
  STEP 1 ROT +
1.E99 SUB
\>>
