rebol[]b: 0 loop 100[a: do ask""if b > 0[print a + b]print b: a]