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