REBOL[]while[i: input][insert i "[" append i "]" d: to-date do i if 7 = w: d/weekday[w: 0]print w]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page