l2/tests/loop_while.sl

import ../stdlib/stdlib.sl
import ../stdlib/io.sl

: main
    10
    while
        dup 0 >
    do
        dup puti cr
        1 -
    end
    drop
;