l2/while_test.sl

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

: main
    10
    begin
        dup 0 >
    while
        dup puti cr
        1 -
    repeat
    drop
;