;$eU*U*uDEFPROPMOONPHASEPHASEFASLDSKLIBLSPAUTOLOADxSUN-NOW-HEREW*@j SUNxTIMESTAMPLSUBR-0T *-,5TERPRI ,8 5N *TERPRI% 3! "*TYO ,PHASEPRINC " h1 ,SUNPOSPRINC  " , ,8,82 "",DATIMPRINC< +1=N, ,,8 bZ ,8",< ,,8,83Z ,8 ",TYO< ,,8Z ,8",<@ ,,8 Z(,8",< ,@1,8,83Z(,8",< ,!,8Z( ,8",< ,%,8 Z(,8D",< ,(,8,84Z(,8",<  ,,,8,84Z(,8",< +1 ,1hi#,8,85LISTIFY $XCONS ,8,85 R",ERROR< /+HACK "J% more than 1 argument WRNG-NO-ARGS P -0,8-,~ 4NK=NA 0RZ(7@ "(B{ZARRAY0B +?Z( ( Bg Hg+KZ( B`+K  0N+F Z( B`Z( ( ! Bg Hg+K ,K,8,8 $  @tZ,8,8",< DATEz85 STATUS,8RL DAYTIMEziE|5,87Dg+RThat means it is now & g~ 4@ g~PHASEPRINC1+TIt is now & g~ g~[` 8..&..0,< &p g~ g~0: & g~ g~Z`[8 8i0.+_0 & g~ g~Z`[ R g~ g~[` 80.+f AM on & 4@ g~ g~+h PM on & g~ g~RNFQDOWz88[`EXPLODEN,8[ASCII` & g~ g}Z`,87B`+v[ ..,< "p & g} g}R/Z` B`+n/, &  g~ g~,<Zg[,8,8@ `=N}[g+ `/.Zg Np *p  Bg J`+{// g~ g~0 & g~ g~ZgZ[H g~ g~, 19 & g~ g~[gH g~ g~. & g~ g~/0`R/ "/,xMore than 2 arguments%*U*U JanuaryFebruaryMarchAprilMayJuneJulyAugustU*K00SeptemberOctoberNovemberDecemberxW36-0,8&-,~ 5N B`+-=N" 0 Z((B{6 +Z([(D{&0 `nc+! B` Z(  ( Bg Hg+-Z( B`+- 0N+( Z( B`Z( ( Bg Hg@&C+- ,-,8,8m $ ,8,8m@ `",< Z`,8n,8,87B`+1BF6Dg+2 gNREVERSE+:[ 84n7(`1[[CONS g+7 gZgZ` Bg Dg F`+//,8[gQFHODDP4B?The moon is & g g~+ARIt is & g g~,<,8`,8n@ 7Bg+[ `4nNZ4DH & g~ g}@4@+N1n+L, and & g~ g} 0+N and & g~ g}[g[ g~@ g}[gZ g~ g}[g[8i 8