REBOL[]while[i: input][insert i "[" append i "]" d: to-date do i if 7 = w: d/weekday[w: 0]print w]