2001.upto(3e3){|y|g=y%19+1
e=(11*g+15+(5+8*c=y/100+1)/25-x=3*c/4-12)%30
e+=1 if e==25&&g>11||e==24
n=44-e
n+=n<21?30:0
n+=7-(5*y/4-x-10+n)%7
puts"%02d %s, 0#{y}"%(n<32?[n,:MARCH]:[n-31,:APRIL])}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).