(2001..3000).any{y->x=(int)(3*(int)(y/100-3)/4)
n=(int)(y%19*11+y/300+35-x)%30
n+=n+y%19-41&&n-24?0:1
n-=n>23?80:50
n=(int)(x+n-5*y/4)%7-n
printf"%02d %s\n",n%31+1,(n>30?"APRIL":"MARCH")+", 0"+y}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).