REBOL[]x:[]while[i: input][append x i]for i 1 length? x/1 1[forall x[prin x/1/:i] print ""]