rebol[]while[s: input][forall s[prin 0]print""]