use integer;for(2001..3000){$c=$_/100+1;$t=210-$c*3/4%210;$j=$_%19;$n=57-(14+$j*11+($c*8+5)/25+$t)%30;$n--if$n==56&&$j>10||$n==57;$n-=($_%28*5/4+$t+$n+2)%7;printf"%02d %s, 0$_
",($n-1)%31+1,$n>31?APRIL:MARCH}