(loop(setf y(+(read)2800)m(read))(format t"~A "(mod(1+(nth 6(multiple-value-list(decode-universal-time(encode-universal-time 1 1 1(read)m y)))))7)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page