rebol[]n: 1 while[s: input][if n > length? s[n: 1]prin pick s n n: n + 1]