2001.upto(3e3){|y|e=(y%19*-11-y/300+x=y/?d*3-33>>2)%30 e=(x-y-y/4-e+=16+63[e]*30-7[11-e*2-y%19/11])%7+e puts"%02d #{e<32?:MARCH:'APRIL'%e-=31}, 0#{y}"%e}