REBOL[]x:[]while[i: input][append x i]for i 1 length? x/1 1[forall x[prin x/1/:i] print ""]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page