REBOL[]while[i: input][d: to-date i print d/weekday // 7]