REBOL[]while[i: input][print i print i]