rebol[]n: 1 while[s: input][if n > length? s[n: 1]prin pick s n n: n + 1]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page