3 :0"0[2001+i.1e3
wd(_2{.!.'0'":>:31|j),' ',(>(124>j=.114+h+l-7*<.451%~a+(11*h)+22*l=.7|32+(2*4|b)+(2*<.c%4)-(h=.30|15+(b+19*a=.19|y)-(<.b%4)+<.3%~b=.<.y%100)+4|c=.100|y){APRIL`MARCH),', 0',":y
)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).