#action >+time ^&1 on &2, the &3 of &4, Year &5 of the Third Age.={#if (\$1?"pm") {#if (\$1=="12pm") {#(@-33=12)}; #else {#(@-33=%\$1+12)}}; #else {#if (\$1=="12am") {#(@-33=0)}; #else {#(@-33=%\$1)}};#(@-34=$-33?\$4-1);#(@-34=@-34/14);#(@-34=@-34+1);#print (%@-33+" on "+\$2+", the "+\$3+" of "+\$4+". Dawn: "+$-34:@-34+" Night: "+$-35:@-34)}
#($-35 = "19 20 20 21 22 21 20 20 19 18 17 18", $-34 = "7 7 6 5 4 5 6 7 7 8 9 8", $-33 = "Astron        Thrimidge     Forelithe     Afterlithe    Wedmath       Halimath       Winterfilth   Blotmath      Foreyule      Afteryule     Solmath       Rethe         ")