for(y=2e3;y++<3e3;print(/..$/(101+n%31),n>30?'APRIL,':'MARCH,','0'+y))x=3*(y/100-3|0)>>2,n=24-(y%19*11+y/300+35-x|0)%30,n-=y%19-n==17||!n,n+=n<1?56:26,n+=(x-n-5*y/4|0)%7
Note that non-ascii characters in the above source code will be escaped (such as \x9f).