l2/while_test.sl

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

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