for(y=2e3;y++<3e3;print(/..$/(b?e-31:e),b?'APRIL,':'MARCH,','0'+y))c=y/100+1|0,x=c*3>>2,e=(x-y%19*11-c*.32-38.2|0)%30+24,e+=e&&!!~e|y%19<11,e+=e<2?98:68,e+=58-(y*5/4-x+2+e|0)%7,b=e>131
Note that non-ascii characters in the above source code will be escaped (such as \x9f).