/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / cal-mayan.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 32 3a 32 37 3a 35 | 38 20 31 39 39 33 0a 3b | 22:27:5|8 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 63 61 6c | 2d 6d 61 79 61 6e 2e 65 |lisp/cal|-mayan.e|
|00000080| 6c 0a 3b 3b 3b 20 65 6d | 61 63 73 20 76 65 72 73 |l.;;; em|acs vers|
|00000090| 69 6f 6e 20 31 39 2e 31 | 35 2e 31 36 2e 0a 3b 3b |ion 19.1|5.16..;;|
|000000a0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000b0| 6f 6e 20 46 53 46 20 32 | 2e 31 30 0a 3b 3b 3b 20 |on FSF 2|.10.;;; |
|000000c0| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|000000d0| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|000000e0| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|000000f0| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000100| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 38 2e 0a 0a |t in Ema|cs 18...|
|00000110| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000120| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000130| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000140| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|00000150| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|00000160| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion)..  |   (stri|
|00000170| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|00000180| 65 72 73 69 6f 6e 20 22 | 31 39 22 29 29 29 0a 20 |ersion "|19"))). |
|00000190| 20 20 20 28 65 72 72 6f | 72 20 22 54 68 69 73 20 |   (erro|r "This |
|000001a0| 66 69 6c 65 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |file was| compile|
|000001b0| 64 20 66 6f 72 20 45 6d | 61 63 73 20 31 39 22 29 |d for Em|acs 19")|
|000001c0| 29 0a 0a 28 72 65 71 75 | 69 72 65 20 28 71 75 6f |)..(requ|ire (quo|
|000001d0| 74 65 20 63 61 6c 65 6e | 64 61 72 29 29 0a 28 64 |te calen|dar)).(d|
|000001e0| 65 66 61 6c 69 61 73 20 | 27 6d 61 79 61 6e 2d 6d |efalias |'mayan-m|
|000001f0| 6f 64 20 23 5b 28 6d 20 | 6e 29 20 22 08 09 a6 1a |od #[(m |n) "....|
|00000200| c3 5c 6e 56 83 16 00 09 | c3 56 83 16 00 5c 6e 09 |.\nV....|.V...\n.|
|00000210| 5c 5c 82 17 00 5c 6e 29 | 87 22 20 5b 6d 20 6e 20 |\\...\n)|." [m n |
|00000220| 76 20 30 5d 20 32 20 22 | 5c 0a 52 65 74 75 72 6e |v 0] 2 "|\.Return|
|00000230| 73 20 4d 20 6d 6f 64 20 | 4e 3b 20 76 61 6c 75 65 |s M mod |N; value|
|00000240| 20 69 73 20 2a 61 6c 77 | 61 79 73 2a 20 6e 6f 6e | is *alw|ays* non|
|00000250| 2d 6e 65 67 61 74 69 76 | 65 20 77 68 65 6e 20 4e |-negativ|e when N|
|00000260| 3e 30 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |>0."]).(|defalias|
|00000270| 20 27 6d 61 79 61 6e 2d | 61 64 6a 75 73 74 65 64 | 'mayan-|adjusted|
|00000280| 2d 6d 6f 64 20 23 5b 28 | 6d 20 6e 29 20 22 c0 09 |-mod #[(|m n) "..|
|00000290| 53 5c 6e 5c 22 54 87 22 | 20 5b 6d 61 79 61 6e 2d |S\n\"T."| [mayan-|
|000002a0| 6d 6f 64 20 6d 20 6e 5d | 20 33 20 22 5c 0a 4e 6f |mod m n]| 3 "\.No|
|000002b0| 6e 2d 6e 65 67 61 74 69 | 76 65 20 72 65 6d 61 69 |n-negati|ve remai|
|000002c0| 6e 64 65 72 20 6f 66 20 | 4d 2f 4e 20 77 69 74 68 |nder of |M/N with|
|000002d0| 20 4e 20 69 6e 73 74 65 | 61 64 20 6f 66 20 30 2e | N inste|ad of 0.|
|000002e0| 22 5d 29 0a 28 64 65 66 | 63 6f 6e 73 74 20 63 61 |"]).(def|const ca|
|000002f0| 6c 65 6e 64 61 72 2d 6d | 61 79 61 6e 2d 64 61 79 |lendar-m|ayan-day|
|00000300| 73 2d 62 65 66 6f 72 65 | 2d 61 62 73 6f 6c 75 74 |s-before|-absolut|
|00000310| 65 2d 7a 65 72 6f 20 31 | 31 33 37 31 34 30 20 22 |e-zero 1|137140 "|
|00000320| 5c 0a 4e 75 6d 62 65 72 | 20 6f 66 20 64 61 79 73 |\.Number| of days|
|00000330| 20 6f 66 20 74 68 65 20 | 4d 61 79 61 6e 20 63 61 | of the |Mayan ca|
|00000340| 6c 65 6e 64 61 72 20 65 | 70 6f 63 68 20 62 65 66 |lendar e|poch bef|
|00000350| 6f 72 65 20 61 62 73 6f | 6c 75 74 65 20 64 61 79 |ore abso|lute day|
|00000360| 20 30 2e 0a 41 63 63 6f | 72 64 69 6e 67 20 74 6f | 0..Acco|rding to|
|00000370| 20 74 68 65 20 47 6f 6f | 64 6d 61 6e 2d 4d 61 72 | the Goo|dman-Mar|
|00000380| 74 69 6e 65 7a 2d 54 68 | 6f 6d 70 73 6f 6e 20 63 |tinez-Th|ompson c|
|00000390| 6f 72 72 65 6c 61 74 69 | 6f 6e 2e 20 20 54 68 69 |orrelati|on.  Thi|
|000003a0| 73 20 63 6f 72 72 65 6c | 61 74 69 6f 6e 20 69 73 |s correl|ation is|
|000003b0| 0a 6e 6f 74 20 75 6e 69 | 76 65 72 73 61 6c 6c 79 |.not uni|versally|
|000003c0| 20 61 63 63 65 70 74 65 | 64 2c 20 61 73 20 69 74 | accepte|d, as it|
|000003d0| 20 73 74 69 6c 6c 20 61 | 20 73 75 62 6a 65 63 74 | still a| subject|
|000003e0| 20 6f 66 20 61 73 74 72 | 6f 2d 61 72 63 68 65 6f | of astr|o-archeo|
|000003f0| 6c 6f 67 69 63 61 6c 0a | 72 65 73 65 61 72 63 68 |logical.|research|
|00000400| 2e 20 20 55 73 69 6e 67 | 20 31 32 33 32 30 34 31 |.  Using| 1232041|
|00000410| 20 77 69 6c 6c 20 67 69 | 76 65 20 79 6f 75 20 74 | will gi|ve you t|
|00000420| 68 65 20 63 6f 72 72 65 | 6c 61 74 69 6f 6e 20 75 |he corre|lation u|
|00000430| 73 65 64 20 62 79 20 53 | 70 69 6e 64 65 6e 2e 22 |sed by S|pinden."|
|00000440| 29 0a 28 64 65 66 63 6f | 6e 73 74 20 63 61 6c 65 |).(defco|nst cale|
|00000450| 6e 64 61 72 2d 6d 61 79 | 61 6e 2d 68 61 61 62 2d |ndar-may|an-haab-|
|00000460| 61 74 2d 65 70 6f 63 68 | 20 28 71 75 6f 74 65 20 |at-epoch| (quote |
|00000470| 28 38 20 2e 20 31 38 29 | 29 20 22 5c 0a 4d 61 79 |(8 . 18)|) "\.May|
|00000480| 61 6e 20 68 61 61 62 20 | 64 61 74 65 20 61 74 20 |an haab |date at |
|00000490| 74 68 65 20 65 70 6f 63 | 68 2e 22 29 0a 28 62 79 |the epoc|h.").(by|
|000004a0| 74 65 2d 63 6f 64 65 20 | 22 c0 11 c2 87 22 20 5b |te-code |"...." [|
|000004b0| 5b 22 50 6f 70 22 20 22 | 55 6f 22 20 22 5a 69 70 |["Pop" "|Uo" "Zip|
|000004c0| 22 20 22 5a 6f 74 7a 22 | 20 22 54 7a 65 63 22 20 |" "Zotz"| "Tzec" |
|000004d0| 22 58 75 6c 22 20 22 59 | 61 78 6b 69 6e 22 20 22 |"Xul" "Y|axkin" "|
|000004e0| 4d 6f 6c 22 20 22 43 68 | 65 6e 22 20 22 59 61 78 |Mol" "Ch|en" "Yax|
|000004f0| 22 20 22 5a 61 63 22 20 | 22 43 65 68 22 20 22 4d |" "Zac" |"Ceh" "M|
|00000500| 61 63 22 20 22 4b 61 6e | 6b 69 6e 22 20 22 4d 75 |ac" "Kan|kin" "Mu|
|00000510| 61 6e 22 20 22 50 61 78 | 22 20 22 4b 61 79 61 62 |an" "Pax|" "Kayab|
|00000520| 22 20 22 43 75 6d 6b 75 | 22 5d 20 63 61 6c 65 6e |" "Cumku|"] calen|
|00000530| 64 61 72 2d 6d 61 79 61 | 6e 2d 68 61 61 62 2d 6d |dar-maya|n-haab-m|
|00000540| 6f 6e 74 68 2d 6e 61 6d | 65 2d 61 72 72 61 79 20 |onth-nam|e-array |
|00000550| 6e 69 6c 5d 20 31 29 0a | 28 64 65 66 63 6f 6e 73 |nil] 1).|(defcons|
|00000560| 74 20 63 61 6c 65 6e 64 | 61 72 2d 6d 61 79 61 6e |t calend|ar-mayan|
|00000570| 2d 74 7a 6f 6c 6b 69 6e | 2d 61 74 2d 65 70 6f 63 |-tzolkin|-at-epoc|
|00000580| 68 20 28 71 75 6f 74 65 | 20 28 34 20 2e 20 32 30 |h (quote| (4 . 20|
|00000590| 29 29 20 22 5c 0a 4d 61 | 79 61 6e 20 74 7a 6f 6c |)) "\.Ma|yan tzol|
|000005a0| 6b 69 6e 20 64 61 74 65 | 20 61 74 20 74 68 65 20 |kin date| at the |
|000005b0| 65 70 6f 63 68 2e 22 29 | 0a 28 62 79 74 65 2d 63 |epoch.")|.(byte-c|
|000005c0| 6f 64 65 20 22 c0 11 c2 | 87 22 20 5b 5b 22 49 6d |ode "...|." [["Im|
|000005d0| 69 78 22 20 22 49 6b 22 | 20 22 41 6b 62 61 6c 22 |ix" "Ik"| "Akbal"|
|000005e0| 20 22 4b 61 6e 22 20 22 | 43 68 69 63 63 68 61 6e | "Kan" "|Chicchan|
|000005f0| 22 20 22 43 69 6d 69 22 | 20 22 4d 61 6e 69 6b 22 |" "Cimi"| "Manik"|
|00000600| 20 22 4c 61 6d 61 74 22 | 20 22 4d 75 6c 75 63 22 | "Lamat"| "Muluc"|
|00000610| 20 22 4f 63 22 20 22 43 | 68 75 65 6e 22 20 22 45 | "Oc" "C|huen" "E|
|00000620| 62 22 20 22 42 65 6e 22 | 20 22 49 78 22 20 22 4d |b" "Ben"| "Ix" "M|
|00000630| 65 6e 22 20 22 43 69 62 | 22 20 22 43 61 62 61 6e |en" "Cib|" "Caban|
|00000640| 22 20 22 45 74 7a 6e 61 | 62 22 20 22 43 61 75 61 |" "Etzna|b" "Caua|
|00000650| 63 22 20 22 41 68 61 75 | 22 5d 20 63 61 6c 65 6e |c" "Ahau|"] calen|
|00000660| 64 61 72 2d 6d 61 79 61 | 6e 2d 74 7a 6f 6c 6b 69 |dar-maya|n-tzolki|
|00000670| 6e 2d 6e 61 6d 65 73 2d | 61 72 72 61 79 20 6e 69 |n-names-|array ni|
|00000680| 6c 5d 20 31 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |l] 1).(d|efalias |
|00000690| 27 63 61 6c 65 6e 64 61 | 72 2d 6d 61 79 61 6e 2d |'calenda|r-mayan-|
|000006a0| 6c 6f 6e 67 2d 63 6f 75 | 6e 74 2d 66 72 6f 6d 2d |long-cou|nt-from-|
|000006b0| 61 62 73 6f 6c 75 74 65 | 20 23 5b 28 64 61 74 65 |absolute| #[(date|
|000006c0| 29 20 22 08 09 5c 5c 89 | 1a c3 a5 1c 5c 6e c3 a6 |) "..\\.|....\n..|
|000006d0| 89 1d c6 a5 1e 07 0d c6 | a6 89 1d c8 a5 1e 09 0d |........|........|
|000006e0| c8 a6 89 1d ca a5 1e 0b | 0d ca a6 1e 0c 0c 0e 07 |........|........|
|000006f0| 0e 09 0e 0b 0e 0c af 05 | 2e 09 87 22 20 5b 64 61 |........|..." [da|
|00000700| 74 65 20 63 61 6c 65 6e | 64 61 72 2d 6d 61 79 61 |te calen|dar-maya|
|00000710| 6e 2d 64 61 79 73 2d 62 | 65 66 6f 72 65 2d 61 62 |n-days-b|efore-ab|
|00000720| 73 6f 6c 75 74 65 2d 7a | 65 72 6f 20 6c 6f 6e 67 |solute-z|ero long|
|00000730| 2d 63 6f 75 6e 74 20 31 | 34 34 30 30 30 20 62 61 |-count 1|44000 ba|
|00000740| 6b 74 75 6e 20 72 65 6d | 61 69 6e 64 65 72 20 37 |ktun rem|ainder 7|
|00000750| 32 30 30 20 6b 61 74 75 | 6e 20 33 36 30 20 74 75 |200 katu|n 360 tu|
|00000760| 6e 20 32 30 20 75 69 6e | 61 6c 20 6b 69 6e 5d 20 |n 20 uin|al kin] |
|00000770| 36 20 22 5c 0a 43 6f 6d | 70 75 74 65 20 74 68 65 |6 "\.Com|pute the|
|00000780| 20 4d 61 79 61 6e 20 6c | 6f 6e 67 20 63 6f 75 6e | Mayan l|ong coun|
|00000790| 74 20 63 6f 72 72 65 73 | 70 6f 6e 64 69 6e 67 20 |t corres|ponding |
|000007a0| 74 6f 20 74 68 65 20 61 | 62 73 6f 6c 75 74 65 20 |to the a|bsolute |
|000007b0| 44 41 54 45 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |DATE."])|.(defali|
|000007c0| 61 73 20 27 63 61 6c 65 | 6e 64 61 72 2d 6d 61 79 |as 'cale|ndar-may|
|000007d0| 61 6e 2d 6c 6f 6e 67 2d | 63 6f 75 6e 74 2d 74 6f |an-long-|count-to|
|000007e0| 2d 73 74 72 69 6e 67 20 | 23 5b 28 6d 61 79 61 6e |-string |#[(mayan|
|000007f0| 2d 6c 6f 6e 67 2d 63 6f | 75 6e 74 29 20 22 c0 c1 |-long-co|unt) "..|
|00000800| c2 0b 42 5c 22 87 22 20 | 5b 61 70 70 6c 79 20 66 |..B\"." |[apply f|
|00000810| 6f 72 6d 61 74 20 22 25 | 73 2e 25 73 2e 25 73 2e |ormat "%|s.%s.%s.|
|00000820| 25 73 2e 25 73 22 20 6d | 61 79 61 6e 2d 6c 6f 6e |%s.%s" m|ayan-lon|
|00000830| 67 2d 63 6f 75 6e 74 5d | 20 34 20 22 5c 0a 43 6f |g-count]| 4 "\.Co|
|00000840| 6e 76 65 72 74 20 4d 41 | 59 41 4e 2d 4c 4f 4e 47 |nvert MA|YAN-LONG|
|00000850| 2d 43 4f 55 4e 54 20 69 | 6e 74 6f 20 74 72 61 64 |-COUNT i|nto trad|
|00000860| 69 74 69 6f 6e 61 6c 20 | 77 72 69 74 74 65 6e 20 |itional |written |
|00000870| 66 6f 72 6d 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |form."])|.(defali|
|00000880| 61 73 20 27 63 61 6c 65 | 6e 64 61 72 2d 73 74 72 |as 'cale|ndar-str|
|00000890| 69 6e 67 2d 74 6f 2d 6d | 61 79 61 6e 2d 6c 6f 6e |ing-to-m|ayan-lon|
|000008a0| 67 2d 63 6f 75 6e 74 20 | 23 5b 28 73 74 72 29 20 |g-count |#[(str) |
|000008b0| 22 c0 09 47 c2 1b 1c 1d | c6 c7 c8 8f 88 c9 0d 21 |"..G....|.......!|
|000008c0| 2b 87 22 20 5b 6e 69 6c | 20 73 74 72 20 30 20 63 |+." [nil| str 0 c|
|000008d0| 63 20 63 20 72 6c 63 20 | 63 6f 6e 64 69 74 69 6f |c c rlc |conditio|
|000008e0| 6e 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 09 |n (byte-|code "..|
|000008f0| 57 83 28 00 c2 0b 08 5c | 22 89 1c 40 a8 84 1a 00 |W.(....\|"..@....|
|00000900| c5 c6 0c 40 5c 22 88 82 | 24 00 0c 40 0e 07 42 16 |...@\"..|$..@..B.|
|00000910| 07 0c 41 10 29 82 00 00 | 0e 07 47 c8 55 84 35 00 |..A.)...|..G.U.5.|
|00000920| c5 c6 c9 5c 22 88 c9 87 | 22 20 5b 63 63 20 63 20 |...\"...|" [cc c |
|00000930| 72 65 61 64 2d 66 72 6f | 6d 2d 73 74 72 69 6e 67 |read-fro|m-string|
|00000940| 20 73 74 72 20 64 61 74 | 75 6d 20 73 69 67 6e 61 | str dat|um signa|
|00000950| 6c 20 69 6e 76 61 6c 69 | 64 2d 72 65 61 64 2d 73 |l invali|d-read-s|
|00000960| 79 6e 74 61 78 20 72 6c | 63 20 35 20 6e 69 6c 5d |yntax rl|c 5 nil]|
|00000970| 20 34 29 20 28 28 69 6e | 76 61 6c 69 64 2d 72 65 | 4) ((in|valid-re|
|00000980| 61 64 2d 73 79 6e 74 61 | 78 29 29 20 72 65 76 65 |ad-synta|x)) reve|
|00000990| 72 73 65 5d 20 33 20 22 | 5c 0a 47 69 76 65 6e 20 |rse] 3 "|\.Given |
|000009a0| 53 54 52 2c 20 61 20 73 | 74 72 69 6e 67 20 6f 66 |STR, a s|tring of|
|000009b0| 20 66 6f 72 6d 61 74 20 | 5c 22 25 64 2e 25 64 2e | format |\"%d.%d.|
|000009c0| 25 64 2e 25 64 2e 25 64 | 5c 22 2c 20 72 65 74 75 |%d.%d.%d|\", retu|
|000009d0| 72 6e 20 6c 69 73 74 20 | 6f 66 20 6e 75 6d 73 2e |rn list |of nums.|
|000009e0| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |"]).(def|alias 'c|
|000009f0| 61 6c 65 6e 64 61 72 2d | 6d 61 79 61 6e 2d 68 61 |alendar-|mayan-ha|
|00000a00| 61 62 2d 66 72 6f 6d 2d | 61 62 73 6f 6c 75 74 65 |ab-from-|absolute|
|00000a10| 20 23 5b 28 64 61 74 65 | 29 20 22 08 09 5c 5c 89 | #[(date|) "..\\.|
|00000a20| 1a 0b 40 0b 41 53 c4 5f | 5c 5c 5c 5c c5 a6 89 1e |..@.AS._|\\\\....|
|00000a30| 06 c4 a6 1e 07 0e 06 c4 | a5 54 1e 08 0e 07 0e 08 |........|.T......|
|00000a40| 2c 42 87 22 20 5b 64 61 | 74 65 20 63 61 6c 65 6e |,B." [da|te calen|
|00000a50| 64 61 72 2d 6d 61 79 61 | 6e 2d 64 61 79 73 2d 62 |dar-maya|n-days-b|
|00000a60| 65 66 6f 72 65 2d 61 62 | 73 6f 6c 75 74 65 2d 7a |efore-ab|solute-z|
|00000a70| 65 72 6f 20 6c 6f 6e 67 | 2d 63 6f 75 6e 74 20 63 |ero long|-count c|
|00000a80| 61 6c 65 6e 64 61 72 2d | 6d 61 79 61 6e 2d 68 61 |alendar-|mayan-ha|
|00000a90| 61 62 2d 61 74 2d 65 70 | 6f 63 68 20 32 30 20 33 |ab-at-ep|och 20 3|
|00000aa0| 36 35 20 64 61 79 2d 6f | 66 2d 68 61 61 62 20 64 |65 day-o|f-haab d|
|00000ab0| 61 79 20 6d 6f 6e 74 68 | 5d 20 35 20 22 5c 0a 43 |ay month|] 5 "\.C|
|00000ac0| 6f 6e 76 65 72 74 20 61 | 62 73 6f 6c 75 74 65 20 |onvert a|bsolute |
|00000ad0| 44 41 54 45 20 69 6e 74 | 6f 20 61 20 4d 61 79 61 |DATE int|o a Maya|
|00000ae0| 6e 20 68 61 61 62 20 64 | 61 74 65 20 28 61 20 70 |n haab d|ate (a p|
|00000af0| 61 69 72 29 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |air)."])|.(defali|
|00000b00| 61 73 20 27 63 61 6c 65 | 6e 64 61 72 2d 6d 61 79 |as 'cale|ndar-may|
|00000b10| 61 6e 2d 68 61 61 62 2d | 64 69 66 66 65 72 65 6e |an-haab-|differen|
|00000b20| 63 65 20 23 5b 28 64 61 | 74 65 31 20 64 61 74 65 |ce #[(da|te1 date|
|00000b30| 32 29 20 22 c0 09 41 5c | 6e 41 5a c3 5f 09 40 5c |2) "..A\|nAZ._.@\|
|00000b40| 6e 40 5a 5c 5c c4 5c 22 | 87 22 20 5b 6d 61 79 61 |n@Z\\.\"|." [maya|
|00000b50| 6e 2d 6d 6f 64 20 64 61 | 74 65 32 20 64 61 74 65 |n-mod da|te2 date|
|00000b60| 31 20 32 30 20 33 36 35 | 5d 20 34 20 22 5c 0a 4e |1 20 365|] 4 "\.N|
|00000b70| 75 6d 62 65 72 20 6f 66 | 20 64 61 79 73 20 66 72 |umber of| days fr|
|00000b80| 6f 6d 20 4d 61 79 61 6e | 20 68 61 61 62 20 44 41 |om Mayan| haab DA|
|00000b90| 54 45 31 20 74 6f 20 6e | 65 78 74 20 6f 63 63 75 |TE1 to n|ext occu|
|00000ba0| 72 72 65 6e 63 65 20 6f | 66 20 68 61 61 62 20 64 |rrence o|f haab d|
|00000bb0| 61 74 65 20 44 41 54 45 | 32 2e 22 5d 29 0a 28 64 |ate DATE|2."]).(d|
|00000bc0| 65 66 61 6c 69 61 73 20 | 27 63 61 6c 65 6e 64 61 |efalias |'calenda|
|00000bd0| 72 2d 6d 61 79 61 6e 2d | 68 61 61 62 2d 6f 6e 2d |r-mayan-|haab-on-|
|00000be0| 6f 72 2d 62 65 66 6f 72 | 65 20 23 5b 28 68 61 61 |or-befor|e #[(haa|
|00000bf0| 62 2d 64 61 74 65 20 64 | 61 74 65 29 20 22 08 89 |b-date d|ate) "..|
|00000c00| c1 c2 c3 21 0c 5c 22 5a | c5 a6 5a 87 22 20 5b 64 |...!.\"Z|..Z." [d|
|00000c10| 61 74 65 20 63 61 6c 65 | 6e 64 61 72 2d 6d 61 79 |ate cale|ndar-may|
|00000c20| 61 6e 2d 68 61 61 62 2d | 64 69 66 66 65 72 65 6e |an-haab-|differen|
|00000c30| 63 65 20 63 61 6c 65 6e | 64 61 72 2d 6d 61 79 61 |ce calen|dar-maya|
|00000c40| 6e 2d 68 61 61 62 2d 66 | 72 6f 6d 2d 61 62 73 6f |n-haab-f|rom-abso|
|00000c50| 6c 75 74 65 20 30 20 68 | 61 61 62 2d 64 61 74 65 |lute 0 h|aab-date|
|00000c60| 20 33 36 35 5d 20 35 20 | 22 5c 0a 41 62 73 6f 6c | 365] 5 |"\.Absol|
|00000c70| 75 74 65 20 64 61 74 65 | 20 6f 66 20 6c 61 74 65 |ute date| of late|
|00000c80| 73 74 20 48 41 41 42 2d | 44 41 54 45 20 6f 6e 20 |st HAAB-|DATE on |
|00000c90| 6f 72 20 62 65 66 6f 72 | 65 20 61 62 73 6f 6c 75 |or befor|e absolu|
|00000ca0| 74 65 20 44 41 54 45 2e | 22 5d 29 0a 28 64 65 66 |te DATE.|"]).(def|
|00000cb0| 61 6c 69 61 73 20 27 63 | 61 6c 65 6e 64 61 72 2d |alias 'c|alendar-|
|00000cc0| 6e 65 78 74 2d 68 61 61 | 62 2d 64 61 74 65 20 23 |next-haa|b-date #|
|00000cd0| 5b 28 68 61 61 62 2d 64 | 61 74 65 20 26 6f 70 74 |[(haab-d|ate &opt|
|00000ce0| 69 6f 6e 61 6c 20 6e 6f | 65 63 68 6f 29 20 22 c0 |ional no|echo) ".|
|00000cf0| c1 c2 0b c4 20 41 41 40 | 1d c4 20 40 1e 06 c4 20 |.... AA@|.. @... |
|00000d00| 41 40 1e 07 c4 20 41 41 | 40 1d 0e 07 0e 06 53 c8 |A@... AA|@.....S.|
|00000d10| 5f 5c 5c 1e 09 0e 06 ca | 56 83 56 00 0e 09 0e 06 |_\\.....|V.V.....|
|00000d20| cb 5f cc 5c 5c cd a5 5a | 16 09 0d cb a6 ce 55 83 |._.\\..Z|......U.|
|00000d30| 56 00 0d cf a6 ce 55 83 | 51 00 0d d0 a6 ce 55 83 |V.....U.|Q.....U.|
|00000d40| 56 00 0e 09 54 16 09 0e | 09 2c 0d 53 d1 5f 0d 53 |V...T...|.,.S._.S|
|00000d50| cb a5 0d 53 cf a5 5b 0d | 53 d0 a5 5c 5c 5c 5c 5c |...S..[.|S..\\\\\|
|00000d60| 5c 5c 5c 29 d1 5c 5c 5c | 22 21 21 88 0e 12 86 7c |\\\).\\\|"!!....||
|00000d70| 00 d3 20 87 22 20 5b 63 | 61 6c 65 6e 64 61 72 2d |.. ." [c|alendar-|
|00000d80| 67 6f 74 6f 2d 64 61 74 | 65 20 63 61 6c 65 6e 64 |goto-dat|e calend|
|00000d90| 61 72 2d 67 72 65 67 6f | 72 69 61 6e 2d 66 72 6f |ar-grego|rian-fro|
|00000da0| 6d 2d 61 62 73 6f 6c 75 | 74 65 20 63 61 6c 65 6e |m-absolu|te calen|
|00000db0| 64 61 72 2d 6d 61 79 61 | 6e 2d 68 61 61 62 2d 6f |dar-maya|n-haab-o|
|00000dc0| 6e 2d 6f 72 2d 62 65 66 | 6f 72 65 20 68 61 61 62 |n-or-bef|ore haab|
|00000dd0| 2d 64 61 74 65 20 63 61 | 6c 65 6e 64 61 72 2d 63 |-date ca|lendar-c|
|00000de0| 75 72 73 6f 72 2d 74 6f | 2d 64 61 74 65 20 79 65 |ursor-to|-date ye|
|00000df0| 61 72 20 6d 6f 6e 74 68 | 20 64 61 79 20 33 31 20 |ar month| day 31 |
|00000e00| 64 61 79 2d 6f 66 2d 79 | 65 61 72 20 32 20 34 20 |day-of-y|ear 2 4 |
|00000e10| 32 33 20 31 30 20 30 20 | 31 30 30 20 34 30 30 20 |23 10 0 |100 400 |
|00000e20| 33 36 35 20 6e 6f 65 63 | 68 6f 20 63 61 6c 65 6e |365 noec|ho calen|
|00000e30| 64 61 72 2d 70 72 69 6e | 74 2d 6d 61 79 61 6e 2d |dar-prin|t-mayan-|
|00000e40| 64 61 74 65 5d 20 31 30 | 20 22 5c 0a 4d 6f 76 65 |date] 10| "\.Move|
|00000e50| 20 63 75 72 73 6f 72 20 | 74 6f 20 6e 65 78 74 20 | cursor |to next |
|00000e60| 69 6e 73 74 61 6e 63 65 | 20 6f 66 20 4d 61 79 61 |instance| of Maya|
|00000e70| 6e 20 48 41 41 42 2d 44 | 41 54 45 2e 20 0a 45 63 |n HAAB-D|ATE. .Ec|
|00000e80| 68 6f 20 4d 61 79 61 6e | 20 64 61 74 65 20 69 66 |ho Mayan| date if|
|00000e90| 20 4e 4f 45 43 48 4f 20 | 69 73 20 74 2e 22 20 28 | NOECHO |is t." (|
|00000ea0| 6c 69 73 74 20 28 63 61 | 6c 65 6e 64 61 72 2d 72 |list (ca|lendar-r|
|00000eb0| 65 61 64 2d 6d 61 79 61 | 6e 2d 68 61 61 62 2d 64 |ead-maya|n-haab-d|
|00000ec0| 61 74 65 29 29 5d 29 0a | 28 64 65 66 61 6c 69 61 |ate))]).|(defalia|
|00000ed0| 73 20 27 63 61 6c 65 6e | 64 61 72 2d 70 72 65 76 |s 'calen|dar-prev|
|00000ee0| 69 6f 75 73 2d 68 61 61 | 62 2d 64 61 74 65 20 23 |ious-haa|b-date #|
|00000ef0| 5b 28 68 61 61 62 2d 64 | 61 74 65 20 26 6f 70 74 |[(haab-d|ate &opt|
|00000f00| 69 6f 6e 61 6c 20 6e 6f | 65 63 68 6f 29 20 22 c0 |ional no|echo) ".|
|00000f10| c1 c2 0b c4 20 41 41 40 | 1d c4 20 40 1e 06 c4 20 |.... AA@|.. @... |
|00000f20| 41 40 1e 07 c4 20 41 41 | 40 1d 0e 07 0e 06 53 c8 |A@... AA|@.....S.|
|00000f30| 5f 5c 5c 1e 09 0e 06 ca | 56 83 56 00 0e 09 0e 06 |_\\.....|V.V.....|
|00000f40| cb 5f cc 5c 5c cd a5 5a | 16 09 0d cb a6 ce 55 83 |._.\\..Z|......U.|
|00000f50| 56 00 0d cf a6 ce 55 83 | 51 00 0d d0 a6 ce 55 83 |V.....U.|Q.....U.|
|00000f60| 56 00 0e 09 54 16 09 0e | 09 2c 0d 53 d1 5f 0d 53 |V...T...|.,.S._.S|
|00000f70| cb a5 0d 53 cf a5 5b 0d | 53 d0 a5 5c 5c 5c 5c 5c |...S..[.|S..\\\\\|
|00000f80| 5c 5c 5c 29 53 5c 22 21 | 21 88 0e 12 86 7b 00 d3 |\\\)S\"!|!....{..|
|00000f90| 20 87 22 20 5b 63 61 6c | 65 6e 64 61 72 2d 67 6f | ." [cal|endar-go|
|00000fa0| 74 6f 2d 64 61 74 65 20 | 63 61 6c 65 6e 64 61 72 |to-date |calendar|
|00000fb0| 2d 67 72 65 67 6f 72 69 | 61 6e 2d 66 72 6f 6d 2d |-gregori|an-from-|
|00000fc0| 61 62 73 6f 6c 75 74 65 | 20 63 61 6c 65 6e 64 61 |absolute| calenda|
|00000fd0| 72 2d 6d 61 79 61 6e 2d | 68 61 61 62 2d 6f 6e 2d |r-mayan-|haab-on-|
|00000fe0| 6f 72 2d 62 65 66 6f 72 | 65 20 68 61 61 62 2d 64 |or-befor|e haab-d|
|00000ff0| 61 74 65 20 63 61 6c 65 | 6e 64 61 72 2d 63 75 72 |ate cale|ndar-cur|
|00001000| 73 6f 72 2d 74 6f 2d 64 | 61 74 65 20 79 65 61 72 |sor-to-d|ate year|
|00001010| 20 6d 6f 6e 74 68 20 64 | 61 79 20 33 31 20 64 61 | month d|ay 31 da|
|00001020| 79 2d 6f 66 2d 79 65 61 | 72 20 32 20 34 20 32 33 |y-of-yea|r 2 4 23|
|00001030| 20 31 30 20 30 20 31 30 | 30 20 34 30 30 20 33 36 | 10 0 10|0 400 36|
|00001040| 35 20 6e 6f 65 63 68 6f | 20 63 61 6c 65 6e 64 61 |5 noecho| calenda|
|00001050| 72 2d 70 72 69 6e 74 2d | 6d 61 79 61 6e 2d 64 61 |r-print-|mayan-da|
|00001060| 74 65 5d 20 31 30 20 22 | 5c 0a 4d 6f 76 65 20 63 |te] 10 "|\.Move c|
|00001070| 75 72 73 6f 72 20 74 6f | 20 70 72 65 76 69 6f 75 |ursor to| previou|
|00001080| 73 20 69 6e 73 74 61 6e | 63 65 20 6f 66 20 4d 61 |s instan|ce of Ma|
|00001090| 79 61 6e 20 48 41 41 42 | 2d 44 41 54 45 2e 20 0a |yan HAAB|-DATE. .|
|000010a0| 45 63 68 6f 20 4d 61 79 | 61 6e 20 64 61 74 65 20 |Echo May|an date |
|000010b0| 69 66 20 4e 4f 45 43 48 | 4f 20 69 73 20 74 2e 22 |if NOECH|O is t."|
|000010c0| 20 28 6c 69 73 74 20 28 | 63 61 6c 65 6e 64 61 72 | (list (|calendar|
|000010d0| 2d 72 65 61 64 2d 6d 61 | 79 61 6e 2d 68 61 61 62 |-read-ma|yan-haab|
|000010e0| 2d 64 61 74 65 29 29 5d | 29 0a 28 64 65 66 61 6c |-date))]|).(defal|
|000010f0| 69 61 73 20 27 63 61 6c | 65 6e 64 61 72 2d 6d 61 |ias 'cal|endar-ma|
|00001100| 79 61 6e 2d 68 61 61 62 | 2d 74 6f 2d 73 74 72 69 |yan-haab|-to-stri|
|00001110| 6e 67 20 23 5b 28 68 61 | 61 62 29 20 22 08 41 08 |ng #[(ha|ab) ".A.|
|00001120| 40 19 89 1a c3 55 83 13 | 00 c4 c5 09 5c 22 82 1c |@....U..|....\"..|
|00001130| 00 c4 c6 09 0e 07 5c 6e | 53 48 23 2a 87 22 20 5b |......\n|SH#*." [|
|00001140| 68 61 61 62 20 64 61 79 | 20 6d 6f 6e 74 68 20 31 |haab day| month 1|
|00001150| 39 20 66 6f 72 6d 61 74 | 20 22 25 64 20 55 61 79 |9 format| "%d Uay|
|00001160| 65 62 22 20 22 25 64 20 | 25 73 22 20 63 61 6c 65 |eb" "%d |%s" cale|
|00001170| 6e 64 61 72 2d 6d 61 79 | 61 6e 2d 68 61 61 62 2d |ndar-may|an-haab-|
|00001180| 6d 6f 6e 74 68 2d 6e 61 | 6d 65 2d 61 72 72 61 79 |month-na|me-array|
|00001190| 5d 20 36 20 22 5c 0a 43 | 6f 6e 76 65 72 74 20 4d |] 6 "\.C|onvert M|
|000011a0| 61 79 61 6e 20 68 61 61 | 62 20 64 61 74 65 20 28 |ayan haa|b date (|
|000011b0| 61 20 70 61 69 72 29 20 | 69 6e 74 6f 20 69 74 73 |a pair) |into its|
|000011c0| 20 74 72 61 64 69 74 69 | 6f 6e 61 6c 20 77 72 69 | traditi|onal wri|
|000011d0| 74 74 65 6e 20 66 6f 72 | 6d 2e 22 5d 29 0a 28 64 |tten for|m."]).(d|
|000011e0| 65 66 61 6c 69 61 73 20 | 27 63 61 6c 65 6e 64 61 |efalias |'calenda|
|000011f0| 72 2d 6d 61 79 61 6e 2d | 74 7a 6f 6c 6b 69 6e 2d |r-mayan-|tzolkin-|
|00001200| 66 72 6f 6d 2d 61 62 73 | 6f 6c 75 74 65 20 23 5b |from-abs|olute #[|
|00001210| 28 64 61 74 65 29 20 22 | 08 09 5c 5c 1a c3 5c 6e |(date) "|..\\..\n|
|00001220| 0c 40 5c 5c c5 5c 22 1e | 06 c3 5c 6e 0c 41 5c 5c |.@\\.\".|..\n.A\\|
|00001230| c7 5c 22 1e 08 0e 06 0e | 08 2b 42 87 22 20 5b 64 |.\".....|.+B." [d|
|00001240| 61 74 65 20 63 61 6c 65 | 6e 64 61 72 2d 6d 61 79 |ate cale|ndar-may|
|00001250| 61 6e 2d 64 61 79 73 2d | 62 65 66 6f 72 65 2d 61 |an-days-|before-a|
|00001260| 62 73 6f 6c 75 74 65 2d | 7a 65 72 6f 20 6c 6f 6e |bsolute-|zero lon|
|00001270| 67 2d 63 6f 75 6e 74 20 | 6d 61 79 61 6e 2d 61 64 |g-count |mayan-ad|
|00001280| 6a 75 73 74 65 64 2d 6d | 6f 64 20 63 61 6c 65 6e |justed-m|od calen|
|00001290| 64 61 72 2d 6d 61 79 61 | 6e 2d 74 7a 6f 6c 6b 69 |dar-maya|n-tzolki|
|000012a0| 6e 2d 61 74 2d 65 70 6f | 63 68 20 31 33 20 64 61 |n-at-epo|ch 13 da|
|000012b0| 79 20 32 30 20 6e 61 6d | 65 5d 20 33 20 22 5c 0a |y 20 nam|e] 3 "\.|
|000012c0| 43 6f 6e 76 65 72 74 20 | 61 62 73 6f 6c 75 74 65 |Convert |absolute|
|000012d0| 20 44 41 54 45 20 69 6e | 74 6f 20 61 20 4d 61 79 | DATE in|to a May|
|000012e0| 61 6e 20 74 7a 6f 6c 6b | 69 6e 20 64 61 74 65 20 |an tzolk|in date |
|000012f0| 28 61 20 70 61 69 72 29 | 2e 22 5d 29 0a 28 64 65 |(a pair)|."]).(de|
|00001300| 66 61 6c 69 61 73 20 27 | 63 61 6c 65 6e 64 61 72 |falias '|calendar|
|00001310| 2d 6d 61 79 61 6e 2d 74 | 7a 6f 6c 6b 69 6e 2d 64 |-mayan-t|zolkin-d|
|00001320| 69 66 66 65 72 65 6e 63 | 65 20 23 5b 28 64 61 74 |ifferenc|e #[(dat|
|00001330| 65 31 20 64 61 74 65 32 | 29 20 22 08 40 09 40 5a |e1 date2|) ".@.@Z|
|00001340| 08 41 09 41 5a 1a 1b c4 | 0b c4 0b 5c 6e 5a c5 5f |.A.AZ...|...\nZ._|
|00001350| c6 5c 22 c7 5f 5c 5c c8 | 5c 22 2a 87 22 20 5b 64 |.\"._\\.|\"*." [d|
|00001360| 61 74 65 32 20 64 61 74 | 65 31 20 6e 61 6d 65 2d |ate2 dat|e1 name-|
|00001370| 64 69 66 66 65 72 65 6e | 63 65 20 6e 75 6d 62 65 |differen|ce numbe|
|00001380| 72 2d 64 69 66 66 65 72 | 65 6e 63 65 20 6d 61 79 |r-differ|ence may|
|00001390| 61 6e 2d 6d 6f 64 20 33 | 20 32 30 20 31 33 20 32 |an-mod 3| 20 13 2|
|000013a0| 36 30 5d 20 35 20 22 5c | 0a 4e 75 6d 62 65 72 20 |60] 5 "\|.Number |
|000013b0| 6f 66 20 64 61 79 73 20 | 66 72 6f 6d 20 4d 61 79 |of days |from May|
|000013c0| 61 6e 20 74 7a 6f 6c 6b | 69 6e 20 44 41 54 45 31 |an tzolk|in DATE1|
|000013d0| 20 74 6f 20 6e 65 78 74 | 20 6f 63 63 75 72 72 65 | to next| occurre|
|000013e0| 6e 63 65 20 6f 66 20 74 | 7a 6f 6c 6b 69 6e 20 44 |nce of t|zolkin D|
|000013f0| 41 54 45 32 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |ATE2."])|.(defali|
|00001400| 61 73 20 27 63 61 6c 65 | 6e 64 61 72 2d 6d 61 79 |as 'cale|ndar-may|
|00001410| 61 6e 2d 74 7a 6f 6c 6b | 69 6e 2d 6f 6e 2d 6f 72 |an-tzolk|in-on-or|
|00001420| 2d 62 65 66 6f 72 65 20 | 23 5b 28 74 7a 6f 6c 6b |-before |#[(tzolk|
|00001430| 69 6e 2d 64 61 74 65 20 | 64 61 74 65 29 20 22 08 |in-date |date) ".|
|00001440| 89 c1 c2 c3 21 0c 5c 22 | 5a c5 a6 5a 87 22 20 5b |....!.\"|Z..Z." [|
|00001450| 64 61 74 65 20 63 61 6c | 65 6e 64 61 72 2d 6d 61 |date cal|endar-ma|
|00001460| 79 61 6e 2d 74 7a 6f 6c | 6b 69 6e 2d 64 69 66 66 |yan-tzol|kin-diff|
|00001470| 65 72 65 6e 63 65 20 63 | 61 6c 65 6e 64 61 72 2d |erence c|alendar-|
|00001480| 6d 61 79 61 6e 2d 74 7a | 6f 6c 6b 69 6e 2d 66 72 |mayan-tz|olkin-fr|
|00001490| 6f 6d 2d 61 62 73 6f 6c | 75 74 65 20 30 20 74 7a |om-absol|ute 0 tz|
|000014a0| 6f 6c 6b 69 6e 2d 64 61 | 74 65 20 32 36 30 5d 20 |olkin-da|te 260] |
|000014b0| 35 20 22 5c 0a 41 62 73 | 6f 6c 75 74 65 20 64 61 |5 "\.Abs|olute da|
|000014c0| 74 65 20 6f 66 20 6c 61 | 74 65 73 74 20 54 5a 4f |te of la|test TZO|
|000014d0| 4c 4b 49 4e 2d 44 41 54 | 45 20 6f 6e 20 6f 72 20 |LKIN-DAT|E on or |
|000014e0| 62 65 66 6f 72 65 20 61 | 62 73 6f 6c 75 74 65 20 |before a|bsolute |
|000014f0| 44 41 54 45 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |DATE."])|.(defali|
|00001500| 61 73 20 27 63 61 6c 65 | 6e 64 61 72 2d 6e 65 78 |as 'cale|ndar-nex|
|00001510| 74 2d 74 7a 6f 6c 6b 69 | 6e 2d 64 61 74 65 20 23 |t-tzolki|n-date #|
|00001520| 5b 28 74 7a 6f 6c 6b 69 | 6e 2d 64 61 74 65 20 26 |[(tzolki|n-date &|
|00001530| 6f 70 74 69 6f 6e 61 6c | 20 6e 6f 65 63 68 6f 29 |optional| noecho)|
|00001540| 20 22 c0 c1 c2 0b c4 20 | 41 41 40 1d c4 20 40 1e | "..... |AA@.. @.|
|00001550| 06 c4 20 41 40 1e 07 c4 | 20 41 41 40 1d 0e 07 0e |.. A@...| AA@....|
|00001560| 06 53 c8 5f 5c 5c 1e 09 | 0e 06 ca 56 83 56 00 0e |.S._\\..|...V.V..|
|00001570| 09 0e 06 cb 5f cc 5c 5c | cd a5 5a 16 09 0d cb a6 |...._.\\|..Z.....|
|00001580| ce 55 83 56 00 0d cf a6 | ce 55 83 51 00 0d d0 a6 |.U.V....|.U.Q....|
|00001590| ce 55 83 56 00 0e 09 54 | 16 09 0e 09 2c 0d 53 d1 |.U.V...T|....,.S.|
|000015a0| 5f 0d 53 cb a5 0d 53 cf | a5 5b 0d 53 d0 a5 5c 5c |_.S...S.|.[.S..\\|
|000015b0| 5c 5c 5c 5c 5c 5c 29 d2 | 5c 5c 5c 22 21 21 88 0e |\\\\\\).|\\\"!!..|
|000015c0| 13 86 7c 00 d4 20 87 22 | 20 5b 63 61 6c 65 6e 64 |..|.. ."| [calend|
|000015d0| 61 72 2d 67 6f 74 6f 2d | 64 61 74 65 20 63 61 6c |ar-goto-|date cal|
|000015e0| 65 6e 64 61 72 2d 67 72 | 65 67 6f 72 69 61 6e 2d |endar-gr|egorian-|
|000015f0| 66 72 6f 6d 2d 61 62 73 | 6f 6c 75 74 65 20 63 61 |from-abs|olute ca|
|00001600| 6c 65 6e 64 61 72 2d 6d | 61 79 61 6e 2d 74 7a 6f |lendar-m|ayan-tzo|
|00001610| 6c 6b 69 6e 2d 6f 6e 2d | 6f 72 2d 62 65 66 6f 72 |lkin-on-|or-befor|
|00001620| 65 20 74 7a 6f 6c 6b 69 | 6e 2d 64 61 74 65 20 63 |e tzolki|n-date c|
|00001630| 61 6c 65 6e 64 61 72 2d | 63 75 72 73 6f 72 2d 74 |alendar-|cursor-t|
|00001640| 6f 2d 64 61 74 65 20 79 | 65 61 72 20 6d 6f 6e 74 |o-date y|ear mont|
|00001650| 68 20 64 61 79 20 33 31 | 20 64 61 79 2d 6f 66 2d |h day 31| day-of-|
|00001660| 79 65 61 72 20 32 20 34 | 20 32 33 20 31 30 20 30 |year 2 4| 23 10 0|
|00001670| 20 31 30 30 20 34 30 30 | 20 33 36 35 20 32 36 30 | 100 400| 365 260|
|00001680| 20 6e 6f 65 63 68 6f 20 | 63 61 6c 65 6e 64 61 72 | noecho |calendar|
|00001690| 2d 70 72 69 6e 74 2d 6d | 61 79 61 6e 2d 64 61 74 |-print-m|ayan-dat|
|000016a0| 65 5d 20 31 30 20 22 5c | 0a 4d 6f 76 65 20 63 75 |e] 10 "\|.Move cu|
|000016b0| 72 73 6f 72 20 74 6f 20 | 6e 65 78 74 20 69 6e 73 |rsor to |next ins|
|000016c0| 74 61 6e 63 65 20 6f 66 | 20 4d 61 79 61 6e 20 54 |tance of| Mayan T|
|000016d0| 5a 4f 4c 4b 49 4e 2d 44 | 41 54 45 2e 20 0a 45 63 |ZOLKIN-D|ATE. .Ec|
|000016e0| 68 6f 20 4d 61 79 61 6e | 20 64 61 74 65 20 69 66 |ho Mayan| date if|
|000016f0| 20 4e 4f 45 43 48 4f 20 | 69 73 20 74 2e 22 20 28 | NOECHO |is t." (|
|00001700| 6c 69 73 74 20 28 63 61 | 6c 65 6e 64 61 72 2d 72 |list (ca|lendar-r|
|00001710| 65 61 64 2d 6d 61 79 61 | 6e 2d 74 7a 6f 6c 6b 69 |ead-maya|n-tzolki|
|00001720| 6e 2d 64 61 74 65 29 29 | 5d 29 0a 28 64 65 66 61 |n-date))|]).(defa|
|00001730| 6c 69 61 73 20 27 63 61 | 6c 65 6e 64 61 72 2d 70 |lias 'ca|lendar-p|
|00001740| 72 65 76 69 6f 75 73 2d | 74 7a 6f 6c 6b 69 6e 2d |revious-|tzolkin-|
|00001750| 64 61 74 65 20 23 5b 28 | 74 7a 6f 6c 6b 69 6e 2d |date #[(|tzolkin-|
|00001760| 64 61 74 65 20 26 6f 70 | 74 69 6f 6e 61 6c 20 6e |date &op|tional n|
|00001770| 6f 65 63 68 6f 29 20 22 | c0 c1 c2 0b c4 20 41 41 |oecho) "|..... AA|
|00001780| 40 1d c4 20 40 1e 06 c4 | 20 41 40 1e 07 c4 20 41 |@.. @...| A@... A|
|00001790| 41 40 1d 0e 07 0e 06 53 | c8 5f 5c 5c 1e 09 0e 06 |A@.....S|._\\....|
|000017a0| ca 56 83 56 00 0e 09 0e | 06 cb 5f cc 5c 5c cd a5 |.V.V....|.._.\\..|
|000017b0| 5a 16 09 0d cb a6 ce 55 | 83 56 00 0d cf a6 ce 55 |Z......U|.V.....U|
|000017c0| 83 51 00 0d d0 a6 ce 55 | 83 56 00 0e 09 54 16 09 |.Q.....U|.V...T..|
|000017d0| 0e 09 2c 0d 53 d1 5f 0d | 53 cb a5 0d 53 cf a5 5b |..,.S._.|S...S..[|
|000017e0| 0d 53 d0 a5 5c 5c 5c 5c | 5c 5c 5c 5c 29 53 5c 22 |.S..\\\\|\\\\)S\"|
|000017f0| 21 21 88 0e 12 86 7b 00 | d3 20 87 22 20 5b 63 61 |!!....{.|. ." [ca|
|00001800| 6c 65 6e 64 61 72 2d 67 | 6f 74 6f 2d 64 61 74 65 |lendar-g|oto-date|
|00001810| 20 63 61 6c 65 6e 64 61 | 72 2d 67 72 65 67 6f 72 | calenda|r-gregor|
|00001820| 69 61 6e 2d 66 72 6f 6d | 2d 61 62 73 6f 6c 75 74 |ian-from|-absolut|
|00001830| 65 20 63 61 6c 65 6e 64 | 61 72 2d 6d 61 79 61 6e |e calend|ar-mayan|
|00001840| 2d 74 7a 6f 6c 6b 69 6e | 2d 6f 6e 2d 6f 72 2d 62 |-tzolkin|-on-or-b|
|00001850| 65 66 6f 72 65 20 74 7a | 6f 6c 6b 69 6e 2d 64 61 |efore tz|olkin-da|
|00001860| 74 65 20 63 61 6c 65 6e | 64 61 72 2d 63 75 72 73 |te calen|dar-curs|
|00001870| 6f 72 2d 74 6f 2d 64 61 | 74 65 20 79 65 61 72 20 |or-to-da|te year |
|00001880| 6d 6f 6e 74 68 20 64 61 | 79 20 33 31 20 64 61 79 |month da|y 31 day|
|00001890| 2d 6f 66 2d 79 65 61 72 | 20 32 20 34 20 32 33 20 |-of-year| 2 4 23 |
|000018a0| 31 30 20 30 20 31 30 30 | 20 34 30 30 20 33 36 35 |10 0 100| 400 365|
|000018b0| 20 6e 6f 65 63 68 6f 20 | 63 61 6c 65 6e 64 61 72 | noecho |calendar|
|000018c0| 2d 70 72 69 6e 74 2d 6d | 61 79 61 6e 2d 64 61 74 |-print-m|ayan-dat|
|000018d0| 65 5d 20 31 30 20 22 5c | 0a 4d 6f 76 65 20 63 75 |e] 10 "\|.Move cu|
|000018e0| 72 73 6f 72 20 74 6f 20 | 70 72 65 76 69 6f 75 73 |rsor to |previous|
|000018f0| 20 69 6e 73 74 61 6e 63 | 65 20 6f 66 20 4d 61 79 | instanc|e of May|
|00001900| 61 6e 20 54 5a 4f 4c 4b | 49 4e 2d 44 41 54 45 2e |an TZOLK|IN-DATE.|
|00001910| 20 0a 45 63 68 6f 20 4d | 61 79 61 6e 20 64 61 74 | .Echo M|ayan dat|
|00001920| 65 20 69 66 20 4e 4f 45 | 43 48 4f 20 69 73 20 74 |e if NOE|CHO is t|
|00001930| 2e 22 20 28 6c 69 73 74 | 20 28 63 61 6c 65 6e 64 |." (list| (calend|
|00001940| 61 72 2d 72 65 61 64 2d | 6d 61 79 61 6e 2d 74 7a |ar-read-|mayan-tz|
|00001950| 6f 6c 6b 69 6e 2d 64 61 | 74 65 29 29 5d 29 0a 28 |olkin-da|te))]).(|
|00001960| 64 65 66 61 6c 69 61 73 | 20 27 63 61 6c 65 6e 64 |defalias| 'calend|
|00001970| 61 72 2d 6d 61 79 61 6e | 2d 74 7a 6f 6c 6b 69 6e |ar-mayan|-tzolkin|
|00001980| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 23 5b 28 74 7a |-to-stri|ng #[(tz|
|00001990| 6f 6c 6b 69 6e 29 20 22 | c0 c1 5c 6e 40 0b 5c 6e |olkin) "|..\n@.\n|
|000019a0| 41 53 48 23 87 22 20 5b | 66 6f 72 6d 61 74 20 22 |ASH#." [|format "|
|000019b0| 25 64 20 25 73 22 20 74 | 7a 6f 6c 6b 69 6e 20 63 |%d %s" t|zolkin c|
|000019c0| 61 6c 65 6e 64 61 72 2d | 6d 61 79 61 6e 2d 74 7a |alendar-|mayan-tz|
|000019d0| 6f 6c 6b 69 6e 2d 6e 61 | 6d 65 73 2d 61 72 72 61 |olkin-na|mes-arra|
|000019e0| 79 5d 20 35 20 22 5c 0a | 43 6f 6e 76 65 72 74 20 |y] 5 "\.|Convert |
|000019f0| 4d 61 79 61 6e 20 74 7a | 6f 6c 6b 69 6e 20 64 61 |Mayan tz|olkin da|
|00001a00| 74 65 20 28 61 20 70 61 | 69 72 29 20 69 6e 74 6f |te (a pa|ir) into|
|00001a10| 20 69 74 73 20 74 72 61 | 64 69 74 69 6f 6e 61 6c | its tra|ditional|
|00001a20| 20 77 72 69 74 74 65 6e | 20 66 6f 72 6d 2e 22 5d | written| form."]|
|00001a30| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 61 6c |).(defal|ias 'cal|
|00001a40| 65 6e 64 61 72 2d 6d 61 | 79 61 6e 2d 74 7a 6f 6c |endar-ma|yan-tzol|
|00001a50| 6b 69 6e 2d 68 61 61 62 | 2d 6f 6e 2d 6f 72 2d 62 |kin-haab|-on-or-b|
|00001a60| 65 66 6f 72 65 20 23 5b | 28 74 7a 6f 6c 6b 69 6e |efore #[|(tzolkin|
|00001a70| 2d 64 61 74 65 20 68 61 | 61 62 2d 64 61 74 65 20 |-date ha|ab-date |
|00001a80| 64 61 74 65 29 20 22 c0 | c1 c2 21 0b 5c 22 1c c5 |date) ".|..!.\"..|
|00001a90| c6 c2 21 0e 07 5c 22 89 | 1e 08 0c 5a 89 1e 09 ca |..!..\".|...Z....|
|00001aa0| a6 c2 55 85 2c 00 0e 0b | cc 0e 0b 0c 0e 09 cd 5f |..U.,...|......._|
|00001ab0| 5c 5c 5a ce 5c 22 5a 2b | 87 22 20 5b 63 61 6c 65 |\\Z.\"Z+|." [cale|
|00001ac0| 6e 64 61 72 2d 6d 61 79 | 61 6e 2d 68 61 61 62 2d |ndar-may|an-haab-|
|00001ad0| 64 69 66 66 65 72 65 6e | 63 65 20 63 61 6c 65 6e |differen|ce calen|
|00001ae0| 64 61 72 2d 6d 61 79 61 | 6e 2d 68 61 61 62 2d 66 |dar-maya|n-haab-f|
|00001af0| 72 6f 6d 2d 61 62 73 6f | 6c 75 74 65 20 30 20 68 |rom-abso|lute 0 h|
|00001b00| 61 61 62 2d 64 61 74 65 | 20 68 61 61 62 2d 64 69 |aab-date| haab-di|
|00001b10| 66 66 65 72 65 6e 63 65 | 20 63 61 6c 65 6e 64 61 |fference| calenda|
|00001b20| 72 2d 6d 61 79 61 6e 2d | 74 7a 6f 6c 6b 69 6e 2d |r-mayan-|tzolkin-|
|00001b30| 64 69 66 66 65 72 65 6e | 63 65 20 63 61 6c 65 6e |differen|ce calen|
|00001b40| 64 61 72 2d 6d 61 79 61 | 6e 2d 74 7a 6f 6c 6b 69 |dar-maya|n-tzolki|
|00001b50| 6e 2d 66 72 6f 6d 2d 61 | 62 73 6f 6c 75 74 65 20 |n-from-a|bsolute |
|00001b60| 74 7a 6f 6c 6b 69 6e 2d | 64 61 74 65 20 74 7a 6f |tzolkin-|date tzo|
|00001b70| 6c 6b 69 6e 2d 64 69 66 | 66 65 72 65 6e 63 65 20 |lkin-dif|ference |
|00001b80| 64 69 66 66 65 72 65 6e | 63 65 20 35 20 64 61 74 |differen|ce 5 dat|
|00001b90| 65 20 6d 61 79 61 6e 2d | 6d 6f 64 20 33 36 35 20 |e mayan-|mod 365 |
|00001ba0| 31 38 39 38 30 5d 20 37 | 20 22 5c 0a 41 62 73 6f |18980] 7| "\.Abso|
|00001bb0| 6c 75 74 65 20 64 61 74 | 65 20 74 68 61 74 20 69 |lute dat|e that i|
|00001bc0| 73 20 4d 61 79 61 6e 20 | 54 5a 4f 4c 4b 49 4e 2d |s Mayan |TZOLKIN-|
|00001bd0| 44 41 54 45 20 61 6e 64 | 20 48 41 41 42 2d 44 41 |DATE and| HAAB-DA|
|00001be0| 54 45 2e 0a 4c 61 74 65 | 73 74 20 73 75 63 68 20 |TE..Late|st such |
|00001bf0| 64 61 74 65 20 6f 6e 20 | 6f 72 20 62 65 66 6f 72 |date on |or befor|
|00001c00| 65 20 44 41 54 45 2e 0a | 52 65 74 75 72 6e 73 20 |e DATE..|Returns |
|00001c10| 6e 69 6c 20 69 66 20 73 | 75 63 68 20 61 20 74 7a |nil if s|uch a tz|
|00001c20| 6f 6c 6b 69 6e 2d 68 61 | 61 62 20 63 6f 6d 62 69 |olkin-ha|ab combi|
|00001c30| 6e 61 74 69 6f 6e 20 69 | 73 20 69 6d 70 6f 73 73 |nation i|s imposs|
|00001c40| 69 62 6c 65 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |ible."])|.(defali|
|00001c50| 61 73 20 27 63 61 6c 65 | 6e 64 61 72 2d 72 65 61 |as 'cale|ndar-rea|
|00001c60| 64 2d 6d 61 79 61 6e 2d | 68 61 61 62 2d 64 61 74 |d-mayan-|haab-dat|
|00001c70| 65 20 23 5b 6e 69 6c 20 | 22 c0 19 c2 c3 c4 5c 22 |e #[nil |".....\"|
|00001c80| 1d c6 0e 07 0d c8 57 85 | 11 00 c9 5c 22 1e 5c 6e |......W.|...\".\n|
|00001c90| cb cc cd ce cf d0 0e 5c | 6e 5c 22 d1 c0 24 21 d2 |.......\|n\"..$!.|
|00001ca0| 0e 5c 6e d3 cc 23 5c 22 | 41 1e 14 0d 0e 14 2c 42 |.\n..#\"|A.....,B|
|00001cb0| 87 22 20 5b 74 20 63 6f | 6d 70 6c 65 74 69 6f 6e |." [t co|mpletion|
|00001cc0| 2d 69 67 6e 6f 72 65 2d | 63 61 73 65 20 63 61 6c |-ignore-|case cal|
|00001cd0| 65 6e 64 61 72 2d 72 65 | 61 64 20 22 48 61 61 62 |endar-re|ad "Haab|
|00001ce0| 20 6b 69 6e 20 28 30 2d | 31 39 29 3a 20 22 20 28 | kin (0-|19): " (|
|00001cf0| 6c 61 6d 62 64 61 20 28 | 78 29 20 28 61 6e 64 20 |lambda (|x) (and |
|00001d00| 28 3e 3d 20 78 20 30 29 | 20 28 3c 20 78 20 32 30 |(>= x 0)| (< x 20|
|00001d10| 29 29 29 20 68 61 61 62 | 2d 64 61 79 20 61 70 70 |))) haab|-day app|
|00001d20| 65 6e 64 20 63 61 6c 65 | 6e 64 61 72 2d 6d 61 79 |end cale|ndar-may|
|00001d30| 61 6e 2d 68 61 61 62 2d | 6d 6f 6e 74 68 2d 6e 61 |an-haab-|month-na|
|00001d40| 6d 65 2d 61 72 72 61 79 | 20 35 20 28 22 55 61 79 |me-array| 5 ("Uay|
|00001d50| 65 62 22 29 20 68 61 61 | 62 2d 6d 6f 6e 74 68 2d |eb") haa|b-month-|
|00001d60| 6c 69 73 74 20 61 73 73 | 6f 63 20 63 61 70 69 74 |list ass|oc capit|
|00001d70| 61 6c 69 7a 65 20 63 6f | 6d 70 6c 65 74 69 6e 67 |alize co|mpleting|
|00001d80| 2d 72 65 61 64 20 22 48 | 61 61 62 20 75 69 6e 61 |-read "H|aab uina|
|00001d90| 6c 3a 20 22 20 6d 61 70 | 63 61 72 20 6c 69 73 74 |l: " map|car list|
|00001da0| 20 6e 69 6c 20 63 61 6c | 65 6e 64 61 72 2d 6d 61 | nil cal|endar-ma|
|00001db0| 6b 65 2d 61 6c 69 73 74 | 20 31 20 68 61 61 62 2d |ke-alist| 1 haab-|
|00001dc0| 6d 6f 6e 74 68 5d 20 37 | 20 22 5c 0a 50 72 6f 6d |month] 7| "\.Prom|
|00001dd0| 70 74 20 66 6f 72 20 61 | 20 4d 61 79 61 6e 20 68 |pt for a| Mayan h|
|00001de0| 61 61 62 20 64 61 74 65 | 22 5d 29 0a 28 64 65 66 |aab date|"]).(def|
|00001df0| 61 6c 69 61 73 20 27 63 | 61 6c 65 6e 64 61 72 2d |alias 'c|alendar-|
|00001e00| 72 65 61 64 2d 6d 61 79 | 61 6e 2d 74 7a 6f 6c 6b |read-may|an-tzolk|
|00001e10| 69 6e 2d 64 61 74 65 20 | 23 5b 6e 69 6c 20 22 c0 |in-date |#[nil ".|
|00001e20| 19 c2 c3 c4 5c 22 1d c6 | 0e 07 c8 5c 22 1e 09 ca |....\"..|...\"...|
|00001e30| cb cc cd ce cf 0e 09 5c | 22 c8 c0 24 21 d0 0e 09 |.......\|"..$!...|
|00001e40| d1 cb 23 5c 22 41 1e 12 | 0d 0e 12 2c 42 87 22 20 |..#\"A..|...,B." |
|00001e50| 5b 74 20 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 69 67 |[t compl|etion-ig|
|00001e60| 6e 6f 72 65 2d 63 61 73 | 65 20 63 61 6c 65 6e 64 |nore-cas|e calend|
|00001e70| 61 72 2d 72 65 61 64 20 | 22 54 7a 6f 6c 6b 69 6e |ar-read |"Tzolkin|
|00001e80| 20 6b 69 6e 20 28 31 2d | 31 33 29 3a 20 22 20 28 | kin (1-|13): " (|
|00001e90| 6c 61 6d 62 64 61 20 28 | 78 29 20 28 61 6e 64 20 |lambda (|x) (and |
|00001ea0| 28 3e 20 78 20 30 29 20 | 28 3c 20 78 20 31 34 29 |(> x 0) |(< x 14)|
|00001eb0| 29 29 20 74 7a 6f 6c 6b | 69 6e 2d 63 6f 75 6e 74 |)) tzolk|in-count|
|00001ec0| 20 61 70 70 65 6e 64 20 | 63 61 6c 65 6e 64 61 72 | append |calendar|
|00001ed0| 2d 6d 61 79 61 6e 2d 74 | 7a 6f 6c 6b 69 6e 2d 6e |-mayan-t|zolkin-n|
|00001ee0| 61 6d 65 73 2d 61 72 72 | 61 79 20 6e 69 6c 20 74 |ames-arr|ay nil t|
|00001ef0| 7a 6f 6c 6b 69 6e 2d 6e | 61 6d 65 2d 6c 69 73 74 |zolkin-n|ame-list|
|00001f00| 20 61 73 73 6f 63 20 63 | 61 70 69 74 61 6c 69 7a | assoc c|apitaliz|
|00001f10| 65 20 63 6f 6d 70 6c 65 | 74 69 6e 67 2d 72 65 61 |e comple|ting-rea|
|00001f20| 64 20 22 54 7a 6f 6c 6b | 69 6e 20 75 69 6e 61 6c |d "Tzolk|in uinal|
|00001f30| 3a 20 22 20 6d 61 70 63 | 61 72 20 6c 69 73 74 20 |: " mapc|ar list |
|00001f40| 63 61 6c 65 6e 64 61 72 | 2d 6d 61 6b 65 2d 61 6c |calendar|-make-al|
|00001f50| 69 73 74 20 31 20 74 7a | 6f 6c 6b 69 6e 2d 6e 61 |ist 1 tz|olkin-na|
|00001f60| 6d 65 5d 20 37 20 22 5c | 0a 50 72 6f 6d 70 74 20 |me] 7 "\|.Prompt |
|00001f70| 66 6f 72 20 61 20 4d 61 | 79 61 6e 20 74 7a 6f 6c |for a Ma|yan tzol|
|00001f80| 6b 69 6e 20 64 61 74 65 | 22 5d 29 0a 28 64 65 66 |kin date|"]).(def|
|00001f90| 61 6c 69 61 73 20 27 63 | 61 6c 65 6e 64 61 72 2d |alias 'c|alendar-|
|00001fa0| 6e 65 78 74 2d 63 61 6c | 65 6e 64 61 72 2d 72 6f |next-cal|endar-ro|
|00001fb0| 75 6e 64 2d 64 61 74 65 | 20 23 5b 28 74 7a 6f 6c |und-date| #[(tzol|
|00001fc0| 6b 69 6e 2d 64 61 74 65 | 20 68 61 61 62 2d 64 61 |kin-date| haab-da|
|00001fd0| 74 65 20 26 6f 70 74 69 | 6f 6e 61 6c 20 6e 6f 65 |te &opti|onal noe|
|00001fe0| 63 68 6f 29 20 22 c0 09 | 5c 6e c3 20 41 41 40 1c |cho) "..|\n. AA@.|
|00001ff0| c3 20 40 1d c3 20 41 40 | 1e 06 c3 20 41 41 40 1c |. @.. A@|... AA@.|
|00002000| 0e 06 0d 53 c7 5f 5c 5c | 1e 08 0d c9 56 83 51 00 |...S._\\|....V.Q.|
|00002010| 0e 08 0d ca 5f cb 5c 5c | cc a5 5a 16 08 0c ca a6 |...._.\\|..Z.....|
|00002020| cd 55 83 51 00 0c ce a6 | cd 55 83 4c 00 0c cf a6 |.U.Q....|.U.L....|
|00002030| cd 55 83 51 00 0e 08 54 | 16 08 0e 08 2c 0c 53 d0 |.U.Q...T|....,.S.|
|00002040| 5f 0c 53 ca a5 0c 53 ce | a5 5b 0c 53 cf a5 5c 5c |_.S...S.|.[.S..\\|
|00002050| 5c 5c 5c 5c 5c 5c 29 d1 | 5c 5c 23 89 1e 12 84 7f |\\\\\\).|\\#.....|
|00002060| 00 d3 d4 d5 09 21 d6 5c | 6e 21 23 82 8d 00 d7 d8 |.....!.\|n!#.....|
|00002070| 0e 12 21 21 88 0e 19 86 | 8d 00 da 20 29 87 22 20 |..!!....|... )." |
|00002080| 5b 63 61 6c 65 6e 64 61 | 72 2d 6d 61 79 61 6e 2d |[calenda|r-mayan-|
|00002090| 74 7a 6f 6c 6b 69 6e 2d | 68 61 61 62 2d 6f 6e 2d |tzolkin-|haab-on-|
|000020a0| 6f 72 2d 62 65 66 6f 72 | 65 20 74 7a 6f 6c 6b 69 |or-befor|e tzolki|
|000020b0| 6e 2d 64 61 74 65 20 68 | 61 61 62 2d 64 61 74 65 |n-date h|aab-date|
|000020c0| 20 63 61 6c 65 6e 64 61 | 72 2d 63 75 72 73 6f 72 | calenda|r-cursor|
|000020d0| 2d 74 6f 2d 64 61 74 65 | 20 79 65 61 72 20 6d 6f |-to-date| year mo|
|000020e0| 6e 74 68 20 64 61 79 20 | 33 31 20 64 61 79 2d 6f |nth day |31 day-o|
|000020f0| 66 2d 79 65 61 72 20 32 | 20 34 20 32 33 20 31 30 |f-year 2| 4 23 10|
|00002100| 20 30 20 31 30 30 20 34 | 30 30 20 33 36 35 20 31 | 0 100 4|00 365 1|
|00002110| 38 39 38 30 20 64 61 74 | 65 20 65 72 72 6f 72 20 |8980 dat|e error |
|00002120| 22 25 73 2c 20 25 73 20 | 64 6f 65 73 20 6e 6f 74 |"%s, %s |does not|
|00002130| 20 65 78 69 73 74 20 69 | 6e 20 74 68 65 20 4d 61 | exist i|n the Ma|
|00002140| 79 61 6e 20 63 61 6c 65 | 6e 64 61 72 20 72 6f 75 |yan cale|ndar rou|
|00002150| 6e 64 22 20 63 61 6c 65 | 6e 64 61 72 2d 6d 61 79 |nd" cale|ndar-may|
|00002160| 61 6e 2d 74 7a 6f 6c 6b | 69 6e 2d 74 6f 2d 73 74 |an-tzolk|in-to-st|
|00002170| 72 69 6e 67 20 63 61 6c | 65 6e 64 61 72 2d 6d 61 |ring cal|endar-ma|
|00002180| 79 61 6e 2d 68 61 61 62 | 2d 74 6f 2d 73 74 72 69 |yan-haab|-to-stri|
|00002190| 6e 67 20 63 61 6c 65 6e | 64 61 72 2d 67 6f 74 6f |ng calen|dar-goto|
|000021a0| 2d 64 61 74 65 20 63 61 | 6c 65 6e 64 61 72 2d 67 |-date ca|lendar-g|
|000021b0| 72 65 67 6f 72 69 61 6e | 2d 66 72 6f 6d 2d 61 62 |regorian|-from-ab|
|000021c0| 73 6f 6c 75 74 65 20 6e | 6f 65 63 68 6f 20 63 61 |solute n|oecho ca|
|000021d0| 6c 65 6e 64 61 72 2d 70 | 72 69 6e 74 2d 6d 61 79 |lendar-p|rint-may|
|000021e0| 61 6e 2d 64 61 74 65 5d | 20 31 30 20 22 5c 0a 4d |an-date]| 10 "\.M|
|000021f0| 6f 76 65 20 63 75 72 73 | 6f 72 20 74 6f 20 6e 65 |ove curs|or to ne|
|00002200| 78 74 20 69 6e 73 74 61 | 6e 63 65 20 6f 66 20 4d |xt insta|nce of M|
|00002210| 61 79 61 6e 20 48 41 41 | 42 2d 44 41 54 45 20 54 |ayan HAA|B-DATE T|
|00002220| 5a 4f 4b 4c 49 4e 2d 44 | 41 54 45 20 63 6f 6d 62 |ZOKLIN-D|ATE comb|
|00002230| 69 6e 61 74 69 6f 6e 2e | 0a 45 63 68 6f 20 4d 61 |ination.|.Echo Ma|
|00002240| 79 61 6e 20 64 61 74 65 | 20 69 66 20 4e 4f 45 43 |yan date| if NOEC|
|00002250| 48 4f 20 69 73 20 74 2e | 22 20 28 6c 69 73 74 20 |HO is t.|" (list |
|00002260| 28 63 61 6c 65 6e 64 61 | 72 2d 72 65 61 64 2d 6d |(calenda|r-read-m|
|00002270| 61 79 61 6e 2d 74 7a 6f | 6c 6b 69 6e 2d 64 61 74 |ayan-tzo|lkin-dat|
|00002280| 65 29 20 28 63 61 6c 65 | 6e 64 61 72 2d 72 65 61 |e) (cale|ndar-rea|
|00002290| 64 2d 6d 61 79 61 6e 2d | 68 61 61 62 2d 64 61 74 |d-mayan-|haab-dat|
|000022a0| 65 29 29 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |e))]).(d|efalias |
|000022b0| 27 63 61 6c 65 6e 64 61 | 72 2d 70 72 65 76 69 6f |'calenda|r-previo|
|000022c0| 75 73 2d 63 61 6c 65 6e | 64 61 72 2d 72 6f 75 6e |us-calen|dar-roun|
|000022d0| 64 2d 64 61 74 65 20 23 | 5b 28 74 7a 6f 6c 6b 69 |d-date #|[(tzolki|
|000022e0| 6e 2d 64 61 74 65 20 68 | 61 61 62 2d 64 61 74 65 |n-date h|aab-date|
|000022f0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 6e 6f 65 63 68 | &option|al noech|
|00002300| 6f 29 20 22 c0 09 5c 6e | c3 20 41 41 40 1c c3 20 |o) "..\n|. AA@.. |
|00002310| 40 1d c3 20 41 40 1e 06 | c3 20 41 41 40 1c 0e 06 |@.. A@..|. AA@...|
|00002320| 0d 53 c7 5f 5c 5c 1e 08 | 0d c9 56 83 51 00 0e 08 |.S._\\..|..V.Q...|
|00002330| 0d ca 5f cb 5c 5c cc a5 | 5a 16 08 0c ca a6 cd 55 |.._.\\..|Z......U|
|00002340| 83 51 00 0c ce a6 cd 55 | 83 4c 00 0c cf a6 cd 55 |.Q.....U|.L.....U|
|00002350| 83 51 00 0e 08 54 16 08 | 0e 08 2c 0c 53 d0 5f 0c |.Q...T..|..,.S._.|
|00002360| 53 ca a5 0c 53 ce a5 5b | 0c 53 cf a5 5c 5c 5c 5c |S...S..[|.S..\\\\|
|00002370| 5c 5c 5c 5c 29 53 23 89 | 1e 11 84 7e 00 d2 d3 d4 |\\\\)S#.|...~....|
|00002380| 09 21 d5 5c 6e 21 23 82 | 8c 00 d6 d7 0e 11 21 21 |.!.\n!#.|......!!|
|00002390| 88 0e 18 86 8c 00 d9 20 | 29 87 22 20 5b 63 61 6c |....... |)." [cal|
|000023a0| 65 6e 64 61 72 2d 6d 61 | 79 61 6e 2d 74 7a 6f 6c |endar-ma|yan-tzol|
|000023b0| 6b 69 6e 2d 68 61 61 62 | 2d 6f 6e 2d 6f 72 2d 62 |kin-haab|-on-or-b|
|000023c0| 65 66 6f 72 65 20 74 7a | 6f 6c 6b 69 6e 2d 64 61 |efore tz|olkin-da|
|000023d0| 74 65 20 68 61 61 62 2d | 64 61 74 65 20 63 61 6c |te haab-|date cal|
|000023e0| 65 6e 64 61 72 2d 63 75 | 72 73 6f 72 2d 74 6f 2d |endar-cu|rsor-to-|
|000023f0| 64 61 74 65 20 79 65 61 | 72 20 6d 6f 6e 74 68 20 |date yea|r month |
|00002400| 64 61 79 20 33 31 20 64 | 61 79 2d 6f 66 2d 79 65 |day 31 d|ay-of-ye|
|00002410| 61 72 20 32 20 34 20 32 | 33 20 31 30 20 30 20 31 |ar 2 4 2|3 10 0 1|
|00002420| 30 30 20 34 30 30 20 33 | 36 35 20 64 61 74 65 20 |00 400 3|65 date |
|00002430| 65 72 72 6f 72 20 22 25 | 73 2c 20 25 73 20 64 6f |error "%|s, %s do|
|00002440| 65 73 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |es not e|xist in |
|00002450| 74 68 65 20 4d 61 79 61 | 6e 20 63 61 6c 65 6e 64 |the Maya|n calend|
|00002460| 61 72 20 72 6f 75 6e 64 | 22 20 63 61 6c 65 6e 64 |ar round|" calend|
|00002470| 61 72 2d 6d 61 79 61 6e | 2d 74 7a 6f 6c 6b 69 6e |ar-mayan|-tzolkin|
|00002480| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 63 61 6c 65 6e |-to-stri|ng calen|
|00002490| 64 61 72 2d 6d 61 79 61 | 6e 2d 68 61 61 62 2d 74 |dar-maya|n-haab-t|
|000024a0| 6f 2d 73 74 72 69 6e 67 | 20 63 61 6c 65 6e 64 61 |o-string| calenda|
|000024b0| 72 2d 67 6f 74 6f 2d 64 | 61 74 65 20 63 61 6c 65 |r-goto-d|ate cale|
|000024c0| 6e 64 61 72 2d 67 72 65 | 67 6f 72 69 61 6e 2d 66 |ndar-gre|gorian-f|
|000024d0| 72 6f 6d 2d 61 62 73 6f | 6c 75 74 65 20 6e 6f 65 |rom-abso|lute noe|
|000024e0| 63 68 6f 20 63 61 6c 65 | 6e 64 61 72 2d 70 72 69 |cho cale|ndar-pri|
|000024f0| 6e 74 2d 6d 61 79 61 6e | 2d 64 61 74 65 5d 20 31 |nt-mayan|-date] 1|
|00002500| 30 20 22 5c 0a 4d 6f 76 | 65 20 74 6f 20 70 72 65 |0 "\.Mov|e to pre|
|00002510| 76 69 6f 75 73 20 69 6e | 73 74 61 6e 63 65 20 6f |vious in|stance o|
|00002520| 66 20 4d 61 79 61 6e 20 | 54 5a 4f 4b 4c 49 4e 2d |f Mayan |TZOKLIN-|
|00002530| 44 41 54 45 20 48 41 41 | 42 2d 44 41 54 45 20 63 |DATE HAA|B-DATE c|
|00002540| 6f 6d 62 69 6e 61 74 69 | 6f 6e 2e 0a 45 63 68 6f |ombinati|on..Echo|
|00002550| 20 4d 61 79 61 6e 20 64 | 61 74 65 20 69 66 20 4e | Mayan d|ate if N|
|00002560| 4f 45 43 48 4f 20 69 73 | 20 74 2e 22 20 28 6c 69 |OECHO is| t." (li|
|00002570| 73 74 20 28 63 61 6c 65 | 6e 64 61 72 2d 72 65 61 |st (cale|ndar-rea|
|00002580| 64 2d 6d 61 79 61 6e 2d | 74 7a 6f 6c 6b 69 6e 2d |d-mayan-|tzolkin-|
|00002590| 64 61 74 65 29 20 28 63 | 61 6c 65 6e 64 61 72 2d |date) (c|alendar-|
|000025a0| 72 65 61 64 2d 6d 61 79 | 61 6e 2d 68 61 61 62 2d |read-may|an-haab-|
|000025b0| 64 61 74 65 29 29 5d 29 | 0a 28 64 65 66 61 6c 69 |date))])|.(defali|
|000025c0| 61 73 20 27 63 61 6c 65 | 6e 64 61 72 2d 61 62 73 |as 'cale|ndar-abs|
|000025d0| 6f 6c 75 74 65 2d 66 72 | 6f 6d 2d 6d 61 79 61 6e |olute-fr|om-mayan|
|000025e0| 2d 6c 6f 6e 67 2d 63 6f | 75 6e 74 20 23 5b 28 63 |-long-co|unt #[(c|
|000025f0| 29 20 22 08 40 c1 5f 08 | 41 40 c2 5f c3 08 38 c4 |) ".@._.|A@._..8.|
|00002600| 5f c5 08 38 c6 5f c7 08 | 38 0e 08 5b 5c 5c 5c 5c |_..8._..|8..[\\\\|
|00002610| 5c 5c 5c 5c 5c 5c 87 22 | 20 5b 63 20 31 34 34 30 |\\\\\\."| [c 1440|
|00002620| 30 30 20 37 32 30 30 20 | 32 20 33 36 30 20 33 20 |00 7200 |2 360 3 |
|00002630| 32 30 20 34 20 63 61 6c | 65 6e 64 61 72 2d 6d 61 |20 4 cal|endar-ma|
|00002640| 79 61 6e 2d 64 61 79 73 | 2d 62 65 66 6f 72 65 2d |yan-days|-before-|
|00002650| 61 62 73 6f 6c 75 74 65 | 2d 7a 65 72 6f 5d 20 36 |absolute|-zero] 6|
|00002660| 20 22 5c 0a 43 6f 6d 70 | 75 74 65 20 74 68 65 20 | "\.Comp|ute the |
|00002670| 61 62 73 6f 6c 75 74 65 | 20 64 61 74 65 20 63 6f |absolute| date co|
|00002680| 72 72 65 73 70 6f 6e 64 | 69 6e 67 20 74 6f 20 74 |rrespond|ing to t|
|00002690| 68 65 20 4d 61 79 61 6e | 20 4c 6f 6e 67 20 43 6f |he Mayan| Long Co|
|000026a0| 75 6e 74 20 43 2e 0a 4c | 6f 6e 67 20 63 6f 75 6e |unt C..L|ong coun|
|000026b0| 74 20 69 73 20 61 20 6c | 69 73 74 20 28 62 61 6b |t is a l|ist (bak|
|000026c0| 74 75 6e 20 6b 61 74 75 | 6e 20 74 75 6e 20 75 69 |tun katu|n tun ui|
|000026d0| 6e 61 6c 20 6b 69 6e 29 | 22 5d 29 0a 28 64 65 66 |nal kin)|"]).(def|
|000026e0| 61 6c 69 61 73 20 27 63 | 61 6c 65 6e 64 61 72 2d |alias 'c|alendar-|
|000026f0| 70 72 69 6e 74 2d 6d 61 | 79 61 6e 2d 64 61 74 65 |print-ma|yan-date|
|00002700| 20 23 5b 6e 69 6c 20 22 | c0 20 86 08 00 c1 c2 21 | #[nil "|. .....!|
|00002710| 41 41 40 1b c0 20 86 14 | 00 c1 c2 21 40 1c c0 20 |AA@.. ..|...!@.. |
|00002720| 86 1e 00 c1 c2 21 41 40 | 1d c0 20 86 29 00 c1 c2 |.....!A@|.. .)...|
|00002730| 21 41 41 40 1b 0d 0c 53 | c6 5f 5c 5c 1e 07 0c c8 |!AA@...S|._\\....|
|00002740| 56 83 64 00 0e 07 0c c9 | 5f ca 5c 5c cb a5 5a 16 |V.d.....|_.\\..Z.|
|00002750| 07 0b c9 a6 cc 55 83 64 | 00 0b cd a6 cc 55 83 5f |.....U.d|.....U._|
|00002760| 00 0b ce a6 cc 55 83 64 | 00 0e 07 54 16 07 0e 07 |.....U.d|...T....|
|00002770| 2c 0b 53 cf 5f 0b 53 c9 | a5 0b 53 cd a5 5b 0b 53 |,.S._.S.|..S..[.S|
|00002780| ce a5 5c 5c 5c 5c 5c 5c | 5c 5c 29 1e 10 d1 0e 10 |..\\\\\\|\\).....|
|00002790| 21 1e 12 d3 0e 10 21 1e | 14 d5 0e 10 21 1e 16 d7 |!.....!.|....!...|
|000027a0| d8 d9 0e 16 21 da 0e 12 | 21 db 0e 14 21 24 2c 87 |....!...|!...!$,.|
|000027b0| 22 20 5b 63 61 6c 65 6e | 64 61 72 2d 63 75 72 73 |" [calen|dar-curs|
|000027c0| 6f 72 2d 74 6f 2d 64 61 | 74 65 20 65 72 72 6f 72 |or-to-da|te error|
|000027d0| 20 22 43 75 72 73 6f 72 | 20 69 73 20 6e 6f 74 20 | "Cursor| is not |
|000027e0| 6f 6e 20 61 20 64 61 74 | 65 21 22 20 79 65 61 72 |on a dat|e!" year|
|000027f0| 20 6d 6f 6e 74 68 20 64 | 61 79 20 33 31 20 64 61 | month d|ay 31 da|
|00002800| 79 2d 6f 66 2d 79 65 61 | 72 20 32 20 34 20 32 33 |y-of-yea|r 2 4 23|
|00002810| 20 31 30 20 30 20 31 30 | 30 20 34 30 30 20 33 36 | 10 0 10|0 400 36|
|00002820| 35 20 64 20 63 61 6c 65 | 6e 64 61 72 2d 6d 61 79 |5 d cale|ndar-may|
|00002830| 61 6e 2d 74 7a 6f 6c 6b | 69 6e 2d 66 72 6f 6d 2d |an-tzolk|in-from-|
|00002840| 61 62 73 6f 6c 75 74 65 | 20 74 7a 6f 6c 6b 69 6e |absolute| tzolkin|
|00002850| 20 63 61 6c 65 6e 64 61 | 72 2d 6d 61 79 61 6e 2d | calenda|r-mayan-|
|00002860| 68 61 61 62 2d 66 72 6f | 6d 2d 61 62 73 6f 6c 75 |haab-fro|m-absolu|
|00002870| 74 65 20 68 61 61 62 20 | 63 61 6c 65 6e 64 61 72 |te haab |calendar|
|00002880| 2d 6d 61 79 61 6e 2d 6c | 6f 6e 67 2d 63 6f 75 6e |-mayan-l|ong-coun|
|00002890| 74 2d 66 72 6f 6d 2d 61 | 62 73 6f 6c 75 74 65 20 |t-from-a|bsolute |
|000028a0| 6c 6f 6e 67 2d 63 6f 75 | 6e 74 20 6d 65 73 73 61 |long-cou|nt messa|
|000028b0| 67 65 20 22 4d 61 79 61 | 6e 20 64 61 74 65 3a 20 |ge "Maya|n date: |
|000028c0| 4c 6f 6e 67 20 63 6f 75 | 6e 74 20 3d 20 25 73 3b |Long cou|nt = %s;|
|000028d0| 20 74 7a 6f 6c 6b 69 6e | 20 3d 20 25 73 3b 20 68 | tzolkin| = %s; h|
|000028e0| 61 61 62 20 3d 20 25 73 | 22 20 63 61 6c 65 6e 64 |aab = %s|" calend|
|000028f0| 61 72 2d 6d 61 79 61 6e | 2d 6c 6f 6e 67 2d 63 6f |ar-mayan|-long-co|
|00002900| 75 6e 74 2d 74 6f 2d 73 | 74 72 69 6e 67 20 63 61 |unt-to-s|tring ca|
|00002910| 6c 65 6e 64 61 72 2d 6d | 61 79 61 6e 2d 74 7a 6f |lendar-m|ayan-tzo|
|00002920| 6c 6b 69 6e 2d 74 6f 2d | 73 74 72 69 6e 67 20 63 |lkin-to-|string c|
|00002930| 61 6c 65 6e 64 61 72 2d | 6d 61 79 61 6e 2d 68 61 |alendar-|mayan-ha|
|00002940| 61 62 2d 74 6f 2d 73 74 | 72 69 6e 67 5d 20 36 20 |ab-to-st|ring] 6 |
|00002950| 22 5c 0a 53 68 6f 77 20 | 74 68 65 20 4d 61 79 61 |"\.Show |the Maya|
|00002960| 6e 20 6c 6f 6e 67 20 63 | 6f 75 6e 74 2c 20 74 7a |n long c|ount, tz|
|00002970| 6f 6c 6b 69 6e 2c 20 61 | 6e 64 20 68 61 61 62 20 |olkin, a|nd haab |
|00002980| 65 71 75 69 76 61 6c 65 | 6e 74 73 20 6f 66 20 64 |equivale|nts of d|
|00002990| 61 74 65 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |ate." ni|l]).(def|
|000029a0| 61 6c 69 61 73 20 27 63 | 61 6c 65 6e 64 61 72 2d |alias 'c|alendar-|
|000029b0| 67 6f 74 6f 2d 6d 61 79 | 61 6e 2d 6c 6f 6e 67 2d |goto-may|an-long-|
|000029c0| 63 6f 75 6e 74 2d 64 61 | 74 65 20 23 5b 28 64 61 |count-da|te #[(da|
|000029d0| 74 65 20 26 6f 70 74 69 | 6f 6e 61 6c 20 6e 6f 65 |te &opti|onal noe|
|000029e0| 63 68 6f 29 20 22 c0 c1 | c2 0b 21 21 21 88 0c 86 |cho) "..|..!!!...|
|000029f0| 0e 00 c5 20 87 22 20 5b | 63 61 6c 65 6e 64 61 72 |... ." [|calendar|
|00002a00| 2d 67 6f 74 6f 2d 64 61 | 74 65 20 63 61 6c 65 6e |-goto-da|te calen|
|00002a10| 64 61 72 2d 67 72 65 67 | 6f 72 69 61 6e 2d 66 72 |dar-greg|orian-fr|
|00002a20| 6f 6d 2d 61 62 73 6f 6c | 75 74 65 20 63 61 6c 65 |om-absol|ute cale|
|00002a30| 6e 64 61 72 2d 61 62 73 | 6f 6c 75 74 65 2d 66 72 |ndar-abs|olute-fr|
|00002a40| 6f 6d 2d 6d 61 79 61 6e | 2d 6c 6f 6e 67 2d 63 6f |om-mayan|-long-co|
|00002a50| 75 6e 74 20 64 61 74 65 | 20 6e 6f 65 63 68 6f 20 |unt date| noecho |
|00002a60| 63 61 6c 65 6e 64 61 72 | 2d 70 72 69 6e 74 2d 6d |calendar|-print-m|
|00002a70| 61 79 61 6e 2d 64 61 74 | 65 5d 20 34 20 22 5c 0a |ayan-dat|e] 4 "\.|
|00002a80| 4d 6f 76 65 20 63 75 72 | 73 6f 72 20 74 6f 20 4d |Move cur|sor to M|
|00002a90| 61 79 61 6e 20 6c 6f 6e | 67 20 63 6f 75 6e 74 20 |ayan lon|g count |
|00002aa0| 44 41 54 45 2e 20 20 45 | 63 68 6f 20 4d 61 79 61 |DATE.  E|cho Maya|
|00002ab0| 6e 20 64 61 74 65 20 75 | 6e 6c 65 73 73 20 4e 4f |n date u|nless NO|
|00002ac0| 45 43 48 4f 20 69 73 20 | 74 2e 22 20 28 62 79 74 |ECHO is |t." (byt|
|00002ad0| 65 2d 63 6f 64 65 20 22 | c0 19 09 84 93 00 c2 c3 |e-code "|........|
|00002ae0| c4 c5 c6 c7 20 41 41 40 | 1e 08 c7 20 40 1e 09 c7 |.... AA@|... @...|
|00002af0| 20 41 40 1e 5c 6e c7 20 | 41 41 40 1e 08 0e 5c 6e | A@.\n. |AA@...\n|
|00002b00| 0e 09 53 cb 5f 5c 5c 1e | 0c 0e 09 cd 56 83 62 00 |..S._\\.|....V.b.|
|00002b10| 0e 0c 0e 09 ce 5f cf 5c | 5c d0 a5 5a 16 0c 0e 08 |....._.\|\..Z....|
|00002b20| ce a6 d1 55 83 62 00 0e | 08 d2 a6 d1 55 83 5d 00 |...U.b..|....U.].|
|00002b30| 0e 08 d3 a6 d1 55 83 62 | 00 0e 0c 54 16 0c 0e 0c |.....U.b|...T....|
|00002b40| 2c 0e 08 53 d4 5f 0e 08 | 53 ce a5 0e 08 53 d2 a5 |,..S._..|S....S..|
|00002b50| 5b 0e 08 53 d3 a5 5c 5c | 5c 5c 5c 5c 5c 5c 29 21 |[..S..\\|\\\\\\)!|
|00002b60| 21 5c 22 21 1e 15 d6 0e | 15 21 83 8f 00 0e 15 11 |!\"!....|.!......|
|00002b70| 29 82 02 00 09 29 43 87 | 22 20 5b 6e 69 6c 20 6c |)....)C.|" [nil l|
|00002b80| 63 20 63 61 6c 65 6e 64 | 61 72 2d 73 74 72 69 6e |c calend|ar-strin|
|00002b90| 67 2d 74 6f 2d 6d 61 79 | 61 6e 2d 6c 6f 6e 67 2d |g-to-may|an-long-|
|00002ba0| 63 6f 75 6e 74 20 72 65 | 61 64 2d 73 74 72 69 6e |count re|ad-strin|
|00002bb0| 67 20 22 4d 61 79 61 6e | 20 6c 6f 6e 67 20 63 6f |g "Mayan| long co|
|00002bc0| 75 6e 74 20 28 62 61 6b | 74 75 6e 2e 6b 61 74 75 |unt (bak|tun.katu|
|00002bd0| 6e 2e 74 75 6e 2e 75 69 | 6e 61 6c 2e 6b 69 6e 29 |n.tun.ui|nal.kin)|
|00002be0| 3a 20 22 20 63 61 6c 65 | 6e 64 61 72 2d 6d 61 79 |: " cale|ndar-may|
|00002bf0| 61 6e 2d 6c 6f 6e 67 2d | 63 6f 75 6e 74 2d 74 6f |an-long-|count-to|
|00002c00| 2d 73 74 72 69 6e 67 20 | 63 61 6c 65 6e 64 61 72 |-string |calendar|
|00002c10| 2d 6d 61 79 61 6e 2d 6c | 6f 6e 67 2d 63 6f 75 6e |-mayan-l|ong-coun|
|00002c20| 74 2d 66 72 6f 6d 2d 61 | 62 73 6f 6c 75 74 65 20 |t-from-a|bsolute |
|00002c30| 63 61 6c 65 6e 64 61 72 | 2d 63 75 72 72 65 6e 74 |calendar|-current|
|00002c40| 2d 64 61 74 65 20 79 65 | 61 72 20 6d 6f 6e 74 68 |-date ye|ar month|
|00002c50| 20 64 61 79 20 33 31 20 | 64 61 79 2d 6f 66 2d 79 | day 31 |day-of-y|
|00002c60| 65 61 72 20 32 20 34 20 | 32 33 20 31 30 20 30 20 |ear 2 4 |23 10 0 |
|00002c70| 31 30 30 20 34 30 30 20 | 33 36 35 20 64 61 74 75 |100 400 |365 datu|
|00002c80| 6d 20 63 61 6c 65 6e 64 | 61 72 2d 6d 61 79 61 6e |m calend|ar-mayan|
|00002c90| 2d 6c 6f 6e 67 2d 63 6f | 75 6e 74 2d 63 6f 6d 6d |-long-co|unt-comm|
|00002ca0| 6f 6e 2d 65 72 61 5d 20 | 31 31 29 5d 29 0a 28 64 |on-era] |11)]).(d|
|00002cb0| 65 66 61 6c 69 61 73 20 | 27 63 61 6c 65 6e 64 61 |efalias |'calenda|
|00002cc0| 72 2d 6d 61 79 61 6e 2d | 6c 6f 6e 67 2d 63 6f 75 |r-mayan-|long-cou|
|00002cd0| 6e 74 2d 63 6f 6d 6d 6f | 6e 2d 65 72 61 20 23 5b |nt-commo|n-era #[|
|00002ce0| 28 6c 63 29 20 22 c0 c1 | 21 89 1a 83 1a 00 0b 40 |(lc) "..|!......@|
|00002cf0| 5c 6e 40 55 83 1a 00 0b | 41 13 5c 6e 41 89 12 84 |\n@U....|A.\nA...|
|00002d00| 08 00 0b 3f 86 24 00 0b | 40 5c 6e 40 56 29 87 22 |...?.$..|@\n@V)."|
|00002d10| 20 5b 63 61 6c 65 6e 64 | 61 72 2d 6d 61 79 61 6e | [calend|ar-mayan|
|00002d20| 2d 6c 6f 6e 67 2d 63 6f | 75 6e 74 2d 66 72 6f 6d |-long-co|unt-from|
|00002d30| 2d 61 62 73 6f 6c 75 74 | 65 20 31 20 62 61 73 65 |-absolut|e 1 base|
|00002d40| 20 6c 63 5d 20 33 20 22 | 5c 0a 54 20 69 66 20 6c | lc] 3 "|\.T if l|
|00002d50| 6f 6e 67 20 63 6f 75 6e | 74 20 72 65 70 72 65 73 |ong coun|t repres|
|00002d60| 65 6e 74 73 20 64 61 74 | 65 20 69 6e 20 74 68 65 |ents dat|e in the|
|00002d70| 20 43 6f 6d 6d 6f 6e 20 | 45 72 61 2e 22 5d 29 0a | Common |Era."]).|
|00002d80| 28 64 65 66 61 6c 69 61 | 73 20 27 64 69 61 72 79 |(defalia|s 'diary|
|00002d90| 2d 6d 61 79 61 6e 2d 64 | 61 74 65 20 23 5b 6e 69 |-mayan-d|ate #[ni|
|00002da0| 6c 20 22 08 41 41 40 19 | 08 40 1a 08 41 40 1b 08 |l ".AA@.|.@..A@..|
|00002db0| 41 41 40 19 0b 5c 6e 53 | c4 5f 5c 5c 1d 5c 6e c6 |AA@..\nS|._\\.\n.|
|00002dc0| 56 83 43 00 0d 5c 6e c7 | 5f c8 5c 5c c9 a5 5a 15 |V.C..\n.|_.\\..Z.|
|00002dd0| 09 c7 a6 ca 55 83 43 00 | 09 cb a6 ca 55 83 40 00 |....U.C.|....U.@.|
|00002de0| 09 cc a6 ca 55 83 43 00 | 0d 54 15 0d 2c 09 53 cd |....U.C.|.T..,.S.|
|00002df0| 5f 09 53 c7 a5 09 53 cb | a5 5b 09 53 cc a5 5c 5c |_.S...S.|.[.S..\\|
|00002e00| 5c 5c 5c 5c 5c 5c 29 1e | 0e cf 0e 0e 21 1e 10 d1 |\\\\\\).|....!...|
|00002e10| 0e 0e 21 1e 12 d3 0e 0e | 21 1e 14 d5 d6 d7 0e 14 |..!.....|!.......|
|00002e20| 21 d8 0e 12 21 d9 0e 10 | 21 24 2c 87 22 20 5b 64 |!...!...|!$,." [d|
|00002e30| 61 74 65 20 79 65 61 72 | 20 6d 6f 6e 74 68 20 64 |ate year| month d|
|00002e40| 61 79 20 33 31 20 64 61 | 79 2d 6f 66 2d 79 65 61 |ay 31 da|y-of-yea|
|00002e50| 72 20 32 20 34 20 32 33 | 20 31 30 20 30 20 31 30 |r 2 4 23| 10 0 10|
|00002e60| 30 20 34 30 30 20 33 36 | 35 20 64 20 63 61 6c 65 |0 400 36|5 d cale|
|00002e70| 6e 64 61 72 2d 6d 61 79 | 61 6e 2d 74 7a 6f 6c 6b |ndar-may|an-tzolk|
|00002e80| 69 6e 2d 66 72 6f 6d 2d | 61 62 73 6f 6c 75 74 65 |in-from-|absolute|
|00002e90| 20 74 7a 6f 6c 6b 69 6e | 20 63 61 6c 65 6e 64 61 | tzolkin| calenda|
|00002ea0| 72 2d 6d 61 79 61 6e 2d | 68 61 61 62 2d 66 72 6f |r-mayan-|haab-fro|
|00002eb0| 6d 2d 61 62 73 6f 6c 75 | 74 65 20 68 61 61 62 20 |m-absolu|te haab |
|00002ec0| 63 61 6c 65 6e 64 61 72 | 2d 6d 61 79 61 6e 2d 6c |calendar|-mayan-l|
|00002ed0| 6f 6e 67 2d 63 6f 75 6e | 74 2d 66 72 6f 6d 2d 61 |ong-coun|t-from-a|
|00002ee0| 62 73 6f 6c 75 74 65 20 | 6c 6f 6e 67 2d 63 6f 75 |bsolute |long-cou|
|00002ef0| 6e 74 20 66 6f 72 6d 61 | 74 20 22 4d 61 79 61 6e |nt forma|t "Mayan|
|00002f00| 20 64 61 74 65 3a 20 4c | 6f 6e 67 20 63 6f 75 6e | date: L|ong coun|
|00002f10| 74 20 3d 20 25 73 3b 20 | 74 7a 6f 6c 6b 69 6e 20 |t = %s; |tzolkin |
|00002f20| 3d 20 25 73 3b 20 68 61 | 61 62 20 3d 20 25 73 22 |= %s; ha|ab = %s"|
|00002f30| 20 63 61 6c 65 6e 64 61 | 72 2d 6d 61 79 61 6e 2d | calenda|r-mayan-|
|00002f40| 6c 6f 6e 67 2d 63 6f 75 | 6e 74 2d 74 6f 2d 73 74 |long-cou|nt-to-st|
|00002f50| 72 69 6e 67 20 63 61 6c | 65 6e 64 61 72 2d 6d 61 |ring cal|endar-ma|
|00002f60| 79 61 6e 2d 74 7a 6f 6c | 6b 69 6e 2d 74 6f 2d 73 |yan-tzol|kin-to-s|
|00002f70| 74 72 69 6e 67 20 63 61 | 6c 65 6e 64 61 72 2d 6d |tring ca|lendar-m|
|00002f80| 61 79 61 6e 2d 68 61 61 | 62 2d 74 6f 2d 73 74 72 |ayan-haa|b-to-str|
|00002f90| 69 6e 67 5d 20 36 20 22 | 5c 0a 53 68 6f 77 20 74 |ing] 6 "|\.Show t|
|00002fa0| 68 65 20 4d 61 79 61 6e | 20 6c 6f 6e 67 20 63 6f |he Mayan| long co|
|00002fb0| 75 6e 74 2c 20 68 61 61 | 62 2c 20 61 6e 64 20 74 |unt, haa|b, and t|
|00002fc0| 7a 6f 6c 6b 69 6e 20 64 | 61 74 65 73 20 61 73 20 |zolkin d|ates as |
|00002fd0| 61 20 64 69 61 72 79 20 | 65 6e 74 72 79 2e 22 5d |a diary |entry."]|
|00002fe0| 29 0a 28 70 72 6f 76 69 | 64 65 20 28 71 75 6f 74 |).(provi|de (quot|
|00002ff0| 65 20 63 61 6c 2d 6d 61 | 79 61 6e 29 29 0a       |e cal-ma|yan)).  |
+--------+-------------------------+-------------------------+--------+--------+