REBOL[]while[i: input][print parse i""]