RosettaCodeData/Task/Loops-Downward-for/Forth/loops-downward-for.fth

: loop-down  0 10 do  i .  -1 +loop ;