REBOL[] s: yes while [x: input][either s [print x s: no][s: yes]]