\n",jddayofweek(gregoriantojd($m,$d,$y),1),$d,$m,$y); } print("

---

\n"); } ?>