let x(%)y?(a=y%19)e?(h=(19*a+15+e-e/4-(e*8+13)/25)%30)?(i=h-Obj.magic(h=29||h=28&a>10))?(n=i+22+(y%4*2+4*y+6*i+4+e-e/4)%7)m=Printf.printf"%02d %s, %05d "(n-n/32*31)m.(n/32)y;;for y=2001to 3000do x(mod)y(y/100)[|"MARCH";"APRIL"|]done
Note that non-ascii characters in the above source code will be escaped (such as \x9f).