REBOL[]s: 0 prin loop 9[s: s + do input]