REBOL[]while[i: input][prin i]