REBOL[]f: yes while[i: input][either f[f: no][print i]]