REBOL[]s:"0"loop 8[foreach c s[s: join s 49 - c]]prin s