REBOL[]while[a: input][loop length? a[prin 0]print""]