REBOL[] s: yes while [x: input][either s [print x s: no][s: yes]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page