(2001..3e3).any{y->int _=y/100-3
x=3*_>>2
n=24-(_=y%19*11+y/300+35-x)%30
y%19-n-17&&n||--n
n+=n<1?56:26
n+=(_=x-n-5*y/4)%7
printf'%02d %s, 0%s\n',n%31+1,n>30?'APRIL':'MARCH',y}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).