#!/usr/local/bin/perl

@monthnums = ("一", "二", "三", "四", "五", "六", "七", "八", "九", "十", "十一", "十二");
@montheng = ("January", "February", "March", "April", "May", "June", "July", "August", 
	     "September", "October", "November", "December");

@daynums = ("一", "二", "三", "四", "五", "六", "七", "八", "九", "十",
	    "十一", "十二", "十三", "十四", "十五", "十六", "十七", "十八", "十九", "二十",
	    "二十一", "二十二", "二十三", "二十四", "二十五", "二十六", "二十七", "二十八", "二十九", "三十十",
	    "三十一");

for ($i = 0; $i < scalar(@monthnums); $i++) {
    for ($j = 0; $j < scalar(@daynums); $j++) {
	$chinese = $monthnums[$i] . "月" . $daynums[$j] . "日";
	$engdate = $j+1;
	$english = "$montheng[$i] $engdate";
	$entry = "N::N |: [\"$chinese\"] -> [\"$english\"]\n" .
	    "(\n(x1::y1)\n((x0 form) = \"$chinese\")\n((x0 semtype) = date)\n" .
		"((y0 form) = \"$english\")\n)\n\n";
	print $entry;
    }
}

for ($i = 1; $i < scalar(@monthnums); $i++) {
    $chinese = $monthnums[$i] . "年";
    $yearcount = $i+1;
    $english = "$yearcount years";
    $entry = "N::N |: [\"$chinese\"] -> [\"$english\"]\n" .
	"(\n(x1::y1)\n((x0 form) = \"$chinese\")\n((x0 semtype) = time)\n" .
	    "((y0 form) = \"$english\")\n)\n\n";
    print $entry;
}