;"M@(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*].UQUOTE;Loading TIME 4pSETQxDEFPROPTW*U*U+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071TIME4VERSIONPUSHU*UjUFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS       xANDFEATURECOMPLRU:UjuSPECIALSTANDARD-OUTPUTxBOUNDPTYOxTIME:DAYSxU;]*WMondaypx xTuesdaypw*Unux xWednesdaypx xU;]*wThursdaypx xFridapxu+]jW xSaturpx xSundapw:]*wx x       xTIME:MONTHS xJanuary !p!!xu+]jw! xFebruary""p##x# xMarch#p$$xu;].w$ xApril$p%%x% xMay%p&&x& xW;U.wJune&p''x' xJuly(p((x( xU+]jUAugust)*p**x* xSeptemberw:U.w+,p,,x, xOctober-.p..x. xU+]jWNovember/0p00x0 xDecem10pw:U*U22x2 x  ! # $ % & ' '( )* +, -. /0 12 xDATEDAYTIMEDOWEQUALTIME:GET-TIME-LISTEXPLODENU)&NREVERSEIMPLODESUBR2z85 ,83ziE|5,8)A& 3z88[`,82z85  g45B4+2,< `5,8[,8 @ 01.0+0n=+/. Np-, +`/ $Z`,8,8,8,<06@g+ g5+[g,8 @ 01. +0n-+.. Np-, + / g-,Zg Bg Dg+ 1,X// $(-,6@//,8g,8g~[`Z`[Z [ ([g,8Zg Bg[,8Zg~`[,8 g,8-,,X-,` $ -, $(-, $-,`0 g-,,X-,//0.U*P,xH6TIME:PRINT-TIMEREVERSELEXPR-FUNCALLTIME:PRINT-CURRENT-TIMELSUBR-00 ` ,8 4n7 Z(+7 @&0,8 ,>,8,8?47Z*g-,1@5,8",<8/,x7]:U*W93ARGS98 x~D/~D/~D ~D:~2,'0D:~2,'0D::;;<pw( <<x< xFORMAT-0,<,8 0Z(,8Z(,8Z(,8Z(,8Z(,8Z(,8 g}1n+JZ(+J ,8 g0.2+N..6 Np "p+O g-, Bg ,X,8,8g,8Y,8g},8g| /.6,< (p,8,8g{,8gz,8gyA@`%",<=//,x<p9?u*@`97' xTIME:PRINT-DATE*APPENDTIME:PRINT-CURRENT-DATE-0,8 4n]$ Z(+^ ,8 ,d,8,8e@4*g-, $*g>,8", >U<8/,x=h9Z9> xTIME:VERIFY-DATECERRORU*U*W~A the ~:R of ~A, ~D; ~D:~2,'0'0D ~A@@AABB;CCpw*]nWDDxD xASSQamEpEExE xpmFpw@`FFxF x-0,<,8 Z(,8Z(,8Z(,8Z(,8Z(,8Z(,8Z(,8 g|1n+qZ( +r ,8 g0.2+v..6 Np "p@+v g-, Bg g & g~ g~ ?,84B ,,8,8,8,8,8",<?/,< 0 ,/,8,8g,80 g~(N{ 8an `0+  g~DZ+!,< g~5,8[,8 1.0+0n=+B/. Np-, +/ $Z``,8,8,8,<6@g+ g@5+[g,8 1. +0n-+B.. Np-, +/ g-,00Zg Bg Dg+,X//0F $(-,6//,8,8g|  *g|DZ,8,8g| gz&. Pp *p,86@(7 "1 B`,8gy@,8gx gx&.7@71 "F,8",<=@D_//,xDEX9f9=') xP`TIME:MONTH-STRING-0,8 Z(,8 g@( 1n+6Z(+7 "  ,XDZ} 0/,xp919G xTIME:DAY-OF-THE-WEEK-STRING-0,8 Z(,8 g1n+?Z(+?!` " ,XDZ/,xx9:u*U*U9G xTIME:ON-WHAT-DAY-OF-THE-WEEK?SAMEPNAMEPThe ~:R of ~A, ~D fell on a ~AU;]*U, not.IIJJKKLKLpMMxM xToday is a ~3G~A, noU;]*wt a ~A.MNNOOPpPPxP x~D will faIIJQQKKLKLpRRxpR x,<,8,8,8,8 0.20+H..6 Np "p+I "-, Bg,< ,N,8* g~H,8",`<G,8 g(N{ 8an +T ,T`,8,8g",<G Bg,< g5,8[,8 1.0+\0n=+\/. ` Np-, +\/ $Z`,80 ,8,8,<6@g+b g5+k[g,8 1. +g0n-+g.. ` Np-, +g/ g-, Zg Bg Dg+_,X//``0 $(-,6// BgD`` `H5B4-, [Z[Z [ (,8,8,8 (0.2+y..6 Np "p+z "( B` ,,8,8 2og|+2Og|+  2og|+2Og|(+ 3og{+ "M+ 2Og|+  2Og|+ 2Og{+7 "R,8`,8g{  g{DZ,8,8g{,8g{,8gzAB@0",<=/+ "//0u*U,xPp6(BArgs to TIME:DAY-OF-WEEK U+]jmust be fixnumsRSSTTUUVpVVxV xERROR,<`,8,8,8(F{ an +(D{  an +(B{ `n +!` , ,8,8= g~-, g~-,1 g-,,8",<W+< `0.20+$..6 Np "p+% `-, B` g/.&.. g.0&>$0 g.2.$2/2 &0,<,<&.2$.2 w/$0 &. w&>,< w,<&.H w~&?( w.g.2&.w.p..&./ -,0  //,xVyxjUjuN 6 GMT~TIMEZONE-OFFSETWXXxEDTYXxESTu:].WYXxCDTZXxCSTZXxMDT[XxMST[XxW+U.WPDT\XxPST\XxMONDAYDAY-VALUE]]]xMON^]]xW+UjuTUESDAY^^]xTUE^_]xWEDNESDAY__]xWED_`]xTHURSDAYu:].W``]xTHU`a]xFRIDAYaa]xFRIab]xSATURDAYbb]xW+UjWSATbc]xSUNDAYcc]xSUNcd]xJANUARYMONTH-VALUEdexW+UjuJANeexFEBRUARYfexFEBfexMARCHgexMARu:].WgexAPRILhexAPRhexMAYiexJUNEiexW+UjuJUNjexJULYj'exJULk'exAUGUSTk)exAUGu:].Wl)exSEPTEMBERl+exSEPm+exSEPTm+exOCTOBERn-exW+UjuOCTn-exNOVEMBERo/exNOVo/exDECEMBERp1exDECu( 0p1exCHARSTIME:PARSE-WORD-INTERNAL,<[q,8,8 `1. +D1n-+H1.0+F1n=+HL  g56+Q1.0+L0n=+L/. Np "p+L `Zq Dq g B`-,1[q Bg D`+A//jU*U,x6?U*TMEMQTIME:PARSE-NUMBER-INTERNAL,<,8b,82Hbrrssttuuvvz g$f[qw5BX7@`+X g-,0HD+`Zq,8q Dq[` 8/. g$0. Np "p * Bg Jg/ ]+T//,xx6RU*U*USMHDOYU*U*UMEMBERGETPMAMTHEATINU*U*UONSTNDRDTHCLOCKANOONNOWU*U*UTODAYTOMORROWYESTERDAYHENCEAFTERFROMAGOBEFOREOFU*U*UWKWKSWEEKWEEKSDYDYSDAYDAYSHRU*U*UHRSHOURHOURSAFTERNOONEVENINGNIGHTLATEMORNINGEARLYU*U*UFIFTYFIFTIETHFORTYFORTIETHTHIRTYTHIRTIETHTWENTYTWENTIETHU*U*U NINETEENNINETEENTH EIGHTEENEIGHTEENTH SEVENTEENSEVENTEENTHU*U*USIXTEENSIXTEENTHFIFTEENFIFTEENTHFOURTEENFOURTEENTHU*U*UTHIRTEENTHIRTEENTHTWELVETWELFTHELEVENELEVENTHTENTENTHU*U*UNINENINTHEIGHTEIGHTHSEVENSEVENTHSIXSIXTHFIVEU*U*UFIFTHFOURFOURTHTHREETHIRDTWOSECONDONEFIRSTU*U.wANSyntax error in time spec//001p11x1 xU( TIME:NORMALIZE-DATE-INTERNALTIME:PARSE-LIST-,|-,|-,~P",85 *x,8V,8V,8W,8W-,D"q x y y z z {-,~ T7Bq+p{||+}-}z '$f.[~4BpZq Dq+l@7Bq+s[ 80N+zZ Dq zB14.z g}4.z z5.z g}-, Bz ` *x Jg}+lw,84B g}4.~/0@ 1+ Bg}/+ /q  B` $e~ Bg4B g}4. g}-,10 Bz *x Jg} g~G.-, g0 Jz Bg~+l $] `~ Bg4B Bg"!+l `1B++ y5. g}4.@ $/.5n g}-, By *x Jg}+HB g}5. y0N+ * Jy y.. A -, By+l `1B++' y15.# g}4./.5n g}-, By  *x Jg}+$ g}5. y0N+' *AC Jy+l `1B+l $X~ Bg4B. g}. Nww "ww Bg}+l `1B+l P( 1B+l1B+l1B+1B+1B +1B+0Bz+B g}4.BZq,8q  Dq[` 8/0N+q0BD+ g}-, By g~G.-, ( *x Bg~ Jg}+l1B+l0B+K g~PH$A.5n *1 Jy ( Hy & Fx g~AG.-, Bg~+l0B+N g~G.(-, Bg~+l1B+l0B+S g}A.. Nww "ww Bg}+l0B+W g}/. ( Nwx "wx Bg}+l0B+[ g~G.-,2A * Bg~ J` `1B+^0B+c@ g}5. g}.g~ Nwx "wx * Bg} Jg~ +l1B +e0B +j g}5. g}/g~ Nwy "wy * Bg} Jg~+l0B +q g~4nl&. 5P g~/. .g} Nwy "wy *A Bg} Jg~+l1B +u1B +u1B +u @0B +{6!g}7g} .$.T.g~ Nwz "wz ( *x Bg~ Jg}+l1B +1B +1B +0B+6!g}7g} .$. .g~ NwzA "wz *x Bg~ Jg}+l1B+1B+ P 1B+0B+ 6!g}7g} ..g~ Nw{A "w{ *x Bg~ Jg}+l1B+1B+ P(1B+1B+1B+1B+ g} @ 5.1B+0B+ *s Jg}+"1B  +0B+ *{ Jg}+"1B+0B ( + * Jg}+"1B+!0B+' *" Jg}[q 80N+&Zq Bqq B`  +P "+ `1B+*0B+, * A" " Jg}+1B+.0B+0 * "P( Jg}+1B+20B+4 * " Jg} D+1B+60B+8 * " Jg}+ P(@ 1B+:0B+< * " Jg}+1B  +>0B +@ *! " Jg}+1B!+B Q 0B"+D *} " Jg}+1B"+F0B# A +H *1 " Jg}+1B#+J0B$+L"( */ " Jg}+1B$+N0B%+P *-  " Jg}+ `1B%+R0B&+X g} 5.T * Jg} g}.. Nw{ "w{ Bg} "  +1B&+Z0B'+_ g}5.\ * Jg}A g}.. Nw| "w| Bg} "+1B'+a @(0B(+g g}5.c * Jg} g}.. Nw|( "w| Bg} "+1B(+i0B)+n g} 5.k * Jg} g}.. Nw} "w} Bg} "  +1B)+p0B*+v g}5.r * Jg}A g}.. Nw} "w} Bg} "+1B*+x @(0B++} g}5.z * Jg} g}.. Nw~( "w~ Bg} "+1B++0B,+ g} 5. * Jg} g}.. Nw~ "w~ Bg} "  +1B,+0B-+ g}5. * Jg}A g}.. Nw "w Bg} "+1B-+ P( 1B.+1B+0B.+ g}5. * Jg} g}.. Nw "w Bg} " g}5. 0 ,,8,8X,8g{",<W g}4n/.D@5. g}-, Bz *x g~G.-,0  Bg~ Jg}+l g}/.54n( {5.(D@ g}/.6-, B{ *x g~G.-,0  Bg~ Jg}+l g}0.2+N[q 8@0N+< g~A.5N g~G.-,  Bg~ g}/. 5n g}-, By *xdZq Dq Jg}w By4B[q 81N D2+9 "+:Zq Dqw Bx4B+) |2z '$f[q~4BN g~A.5N g~G.@0-, Zq Dq Bg~w B`4BN g}@ $/.5n g}-, Bz *x `-,1$1  Bz Jg}2|z '$f[q~5BL "+M$ w B{4B+l z4.X z4.X { 5.X g}1n +X g}-, B{ g~G.-, *x Bg~ Jg}+l {4.gH  z4.g z4.g g~A.5Ng g}1. D+l&.2-, By $.2 g}/H -, By * Jx g~G.-,2! (x Bg~ Hg}+l z4.l z5.lB! g~A.4Nn y4.l y4.l x4.l@2 g}-, Bz g~G.-, *x! Bg~ Jg}+l g}4. z5.z g}-,1 Bz *x g~G.-, Bg~ Jg} + {5. g}1n + g}-,` B{ *x g~G.-, Bg~ Jg}+@ $ y5. g}-, By *x g~G.-, Bg~ Jg}++2z85 ,8)A&3z88[`,83ziE|5,82z85  gT`S45B2z85  Bg3z88[` Bg3ziE|5! B` g|A.4N y5. y5.@@ x5.[` ByZ`[ DyZ`Z(" [ Fx y5. * Jy y5. * Jy x5." * Jx g|A.4N' { B5.' z5.' z4.( g|A.5N-[g@ B{Zg[ DzZgZ[ Fz {B! 5./[g B{ z5.3 z5.2 "+3BBZg[ Bz z5.5 * Jz g{4NE@6ag{7X .(.. Np "p y.g{F! Bg~-, By2 y4.@0. +@ @ 1 "+E@@g} . $g~.y-, ByD z/g~-, Bz+<,8x,8y,8y ,8z,8z,8{ ,M,8 g g g~H 0,8",<G-,,X-,,X 0-,,X-,,X-,,X -,,X-,/,D"//Y,xx1.@`0 06b,<,<,80B ,8 z4n^/.5.^ "+`! { z zH Bg z5ns z/. !-, Bz *3 Jz 5Ni (1 HzD" {/.-, B{ { z "(H B` g/5.o g.. Nw "w Bg ./` z.g.-, Bz+ z..,8{ Np *p,8,8 z1n @+{ ( Hz {..-, B{ g  $( gH Bg~ /g~5N g J{@ 2 `-, Bz g Hz/ "@Kx//,x(6Y;