import stdlib/stdlib.sl import stdlib/io.sl : main 10 while dup 0 > do dup puti cr 1 - repeat drop ;