<?$y=2000;while($y++<3000){$g=(int)($y%19)+1;$c=(int)($y/100)+1;$x=(int)(3*$c/4)-12;$e=(11*$g+15+(int)((8*$c+5)/25)-$x)%30;if($e==25&$g>11|$e==24)++$e;$n=44-$e;$n+=$n<21?30:0;$n=$n+7-((int)(5*$y/4-$x-10+$n)%7);printf("%02d %s, %05d\n",$n>31?$n-31:$n,$n>31?'APRIL':'MARCH',$y);}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).