REBOL[]r: 0 while[a: input][r: r + do a]prin r