--- dk122.bug.ml        2008-01-10 00:41:21.000000000 +0900
+++ dk122.ml    2008-01-11 00:18:28.000000000 +0900
@@ -17 +17 @@
-let mtab = [| 0; 31; 29; 31; 30; 31; 30; 31; 31; 30; 31; 30; 31 |]
+let mtab = [| 0; 31; 28; 31; 30; 31; 30; 31; 31; 30; 31; 30; 31 |]