REBOL[]s: 0 while[t: do r: input][print join r["	0"t - s]s: t]