Source

toybox / forth / sequences.fs

1
2
3
4
: upto-n ( n -- n n-1 .. 0 )
  dup 0> if
    dup 1 - recurse
  endif ;