(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)))