\ do ... <negative increment> +loop doesn't loop : tst-do ( --) 0 9 do i . -1 +loop ; \ prints 9, not 9 8 ... 0