REBOL[]until[print a: input"8"< a]