rebol[]n: 0 while[s: input][insert/dup s" "n print s n: length? s]