rebol[]n:""while[s: input][forall n[prin" "]append n s print s]