make "a 0 repeat 100[apply[if a>0[pr a+?]pr ? seta ?]rl]bye