examples/stdlib.stem


1
2
3
4
5
6
7
8
9
10
11

evalstr [ strquote eval ] func
include [ fread evalstr ] func

# Author of loop function: Andrei S
loop [
  swap dup 0 > [
    swap
    dup eval
    swap 1 - swap loop
  ] [ dsc dsc ] if
] func