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

\<< DUP SIZE SWAP

OVER 1

  FOR i DUP i DUP

SUB + -1

  STEP 1 ROT +

1.E99 SUB

\>>