/ Geek Gadgets 1 / ADE-1.bin / ade-dist / calc-2.02d-bin.lha / lib / emacs / site-lisp / calc-comb.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 72 65 71 75 69 72 | 65 20 28 71 75 6f 74 65 |.(requir|e (quote|
|00000010| 20 63 61 6c 63 2d 65 78 | 74 29 29 0a 0a 28 64 65 | calc-ex|t))..(de|
|00000020| 66 75 6e 20 63 61 6c 63 | 2d 4e 65 65 64 2d 63 61 |fun calc|-Need-ca|
|00000030| 6c 63 2d 63 6f 6d 62 20 | 6e 69 6c 20 28 62 79 74 |lc-comb |nil (byt|
|00000040| 65 2d 63 6f 64 65 20 22 | c0 87 22 20 5b 6e 69 6c |e-code "|.." [nil|
|00000050| 5d 20 31 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 1))..(|defun ca|
|00000060| 6c 63 2d 67 63 64 20 28 | 61 72 67 29 20 28 69 6e |lc-gcd (|arg) (in|
|00000070| 74 65 72 61 63 74 69 76 | 65 20 22 50 22 29 20 28 |teractiv|e "P") (|
|00000080| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 88 c1 c2 c3 |byte-cod|e ".....|
|00000090| 5c 22 87 22 20 5b 6e 69 | 6c 20 63 61 6c 63 2d 64 |\"." [ni|l calc-d|
|000000a0| 6f 20 28 6c 61 6d 62 64 | 61 20 6e 69 6c 20 28 62 |o (lambd|a nil (b|
|000000b0| 79 74 65 2d 63 6f 64 65 | 20 22 c1 c2 c3 08 23 87 |yte-code| "....#.|
|000000c0| 22 20 5b 61 72 67 20 63 | 61 6c 63 2d 62 69 6e 61 |" [arg c|alc-bina|
|000000d0| 72 79 2d 6f 70 20 22 67 | 63 64 22 20 63 61 6c 63 |ry-op "g|cd" calc|
|000000e0| 46 75 6e 63 2d 67 63 64 | 5d 20 34 29 29 20 31 31 |Func-gcd|] 4)) 11|
|000000f0| 36 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |6] 3))..|(defun c|
|00000100| 61 6c 63 2d 6c 63 6d 20 | 28 61 72 67 29 20 28 69 |alc-lcm |(arg) (i|
|00000110| 6e 74 65 72 61 63 74 69 | 76 65 20 22 50 22 29 20 |nteracti|ve "P") |
|00000120| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 c2 |(byte-co|de "....|
|00000130| c3 5c 22 87 22 20 5b 6e | 69 6c 20 63 61 6c 63 2d |.\"." [n|il calc-|
|00000140| 64 6f 20 28 6c 61 6d 62 | 64 61 20 6e 69 6c 20 28 |do (lamb|da nil (|
|00000150| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 c2 c3 08 23 |byte-cod|e "....#|
|00000160| 87 22 20 5b 61 72 67 20 | 63 61 6c 63 2d 62 69 6e |." [arg |calc-bin|
|00000170| 61 72 79 2d 6f 70 20 22 | 6c 63 6d 22 20 63 61 6c |ary-op "|lcm" cal|
|00000180| 63 46 75 6e 63 2d 6c 63 | 6d 5d 20 34 29 29 20 32 |cFunc-lc|m] 4)) 2|
|00000190| 37 37 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |77] 3)).|.(defun |
|000001a0| 63 61 6c 63 2d 65 78 74 | 65 6e 64 65 64 2d 67 63 |calc-ext|ended-gc|
|000001b0| 64 20 6e 69 6c 20 28 69 | 6e 74 65 72 61 63 74 69 |d nil (i|nteracti|
|000001c0| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|000001d0| c0 88 c1 c2 c3 5c 22 87 | 22 20 5b 6e 69 6c 20 63 |.....\".|" [nil c|
|000001e0| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|000001f0| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |il (byte|-code ".|
|00000200| c1 c2 c3 c4 c1 21 42 23 | 87 22 20 5b 63 61 6c 63 |.....!B#|." [calc|
|00000210| 2d 65 6e 74 65 72 2d 72 | 65 73 75 6c 74 20 32 20 |-enter-r|esult 2 |
|00000220| 22 65 67 63 64 22 20 63 | 61 6c 63 46 75 6e 63 2d |"egcd" c|alcFunc-|
|00000230| 65 67 63 64 20 63 61 6c | 63 2d 74 6f 70 2d 6c 69 |egcd cal|c-top-li|
|00000240| 73 74 2d 6e 5d 20 36 29 | 29 20 34 33 38 5d 20 33 |st-n] 6)|) 438] 3|
|00000250| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|00000260| 66 61 63 74 6f 72 69 61 | 6c 20 28 61 72 67 29 20 |factoria|l (arg) |
|00000270| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 50 22 |(interac|tive "P"|
|00000280| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 88 |) (byte-|code "..|
|00000290| c1 c2 c3 5c 22 87 22 20 | 5b 6e 69 6c 20 63 61 6c |...\"." |[nil cal|
|000002a0| 63 2d 64 6f 20 28 6c 61 | 6d 62 64 61 20 6e 69 6c |c-do (la|mbda nil|
|000002b0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 c2 c3 | (byte-c|ode "...|
|000002c0| 08 23 87 22 20 5b 61 72 | 67 20 63 61 6c 63 2d 75 |.#." [ar|g calc-u|
|000002d0| 6e 61 72 79 2d 6f 70 20 | 22 66 61 63 74 22 20 63 |nary-op |"fact" c|
|000002e0| 61 6c 63 46 75 6e 63 2d | 66 61 63 74 5d 20 34 29 |alcFunc-|fact] 4)|
|000002f0| 29 20 36 32 35 5d 20 33 | 29 29 0a 0a 28 64 65 66 |) 625] 3|))..(def|
|00000300| 75 6e 20 63 61 6c 63 2d | 67 61 6d 6d 61 20 28 61 |un calc-|gamma (a|
|00000310| 72 67 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |rg) (int|eractive|
|00000320| 20 22 50 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | "P") (b|yte-code|
|00000330| 20 22 c0 88 c1 c2 c3 5c | 22 87 22 20 5b 6e 69 6c | ".....\|"." [nil|
|00000340| 20 63 61 6c 63 2d 64 6f | 20 28 6c 61 6d 62 64 61 | calc-do| (lambda|
|00000350| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00000360| 22 c1 c2 c3 08 23 87 22 | 20 5b 61 72 67 20 63 61 |"....#."| [arg ca|
|00000370| 6c 63 2d 75 6e 61 72 79 | 2d 6f 70 20 22 67 6d 6d |lc-unary|-op "gmm|
|00000380| 61 22 20 63 61 6c 63 46 | 75 6e 63 2d 67 61 6d 6d |a" calcF|unc-gamm|
|00000390| 61 5d 20 34 29 29 20 37 | 39 33 5d 20 33 29 29 0a |a] 4)) 7|93] 3)).|
|000003a0| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 64 6f 75 |.(defun |calc-dou|
|000003b0| 62 6c 65 2d 66 61 63 74 | 6f 72 69 61 6c 20 28 61 |ble-fact|orial (a|
|000003c0| 72 67 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |rg) (int|eractive|
|000003d0| 20 22 50 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | "P") (b|yte-code|
|000003e0| 20 22 c0 88 c1 c2 c3 5c | 22 87 22 20 5b 6e 69 6c | ".....\|"." [nil|
|000003f0| 20 63 61 6c 63 2d 64 6f | 20 28 6c 61 6d 62 64 61 | calc-do| (lambda|
|00000400| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00000410| 22 c1 c2 c3 08 23 87 22 | 20 5b 61 72 67 20 63 61 |"....#."| [arg ca|
|00000420| 6c 63 2d 75 6e 61 72 79 | 2d 6f 70 20 22 64 66 61 |lc-unary|-op "dfa|
|00000430| 63 22 20 63 61 6c 63 46 | 75 6e 63 2d 64 66 61 63 |c" calcF|unc-dfac|
|00000440| 74 5d 20 34 29 29 20 39 | 35 38 5d 20 33 29 29 0a |t] 4)) 9|58] 3)).|
|00000450| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 63 68 6f |.(defun |calc-cho|
|00000460| 6f 73 65 20 28 61 72 67 | 29 20 28 69 6e 74 65 72 |ose (arg|) (inter|
|00000470| 61 63 74 69 76 65 20 22 | 50 22 29 20 28 62 79 74 |active "|P") (byt|
|00000480| 65 2d 63 6f 64 65 20 22 | c0 88 c1 c2 c3 5c 22 87 |e-code "|.....\".|
|00000490| 22 20 5b 6e 69 6c 20 63 | 61 6c 63 2d 64 6f 20 28 |" [nil c|alc-do (|
|000004a0| 6c 61 6d 62 64 61 20 6e | 69 6c 20 28 62 79 74 65 |lambda n|il (byte|
|000004b0| 2d 63 6f 64 65 20 22 c1 | 20 83 0d 00 c2 c3 c4 08 |-code ".| .......|
|000004c0| 23 82 12 00 c2 c5 c6 08 | 23 87 22 20 5b 61 72 67 |#.......|#." [arg|
|000004d0| 20 63 61 6c 63 2d 69 73 | 2d 68 79 70 65 72 62 6f | calc-is|-hyperbo|
|000004e0| 6c 69 63 20 63 61 6c 63 | 2d 62 69 6e 61 72 79 2d |lic calc|-binary-|
|000004f0| 6f 70 20 22 70 65 72 6d | 22 20 63 61 6c 63 46 75 |op "perm|" calcFu|
|00000500| 6e 63 2d 70 65 72 6d 20 | 22 63 68 6f 73 22 20 63 |nc-perm |"chos" c|
|00000510| 61 6c 63 46 75 6e 63 2d | 63 68 6f 6f 73 65 5d 20 |alcFunc-|choose] |
|00000520| 36 29 29 20 31 31 33 34 | 5d 20 33 29 29 0a 0a 28 |6)) 1134|] 3))..(|
|00000530| 64 65 66 75 6e 20 63 61 | 6c 63 2d 70 65 72 6d 20 |defun ca|lc-perm |
|00000540| 28 61 72 67 29 20 28 69 | 6e 74 65 72 61 63 74 69 |(arg) (i|nteracti|
|00000550| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|00000560| 64 65 20 22 c1 88 c2 20 | 88 c3 08 21 87 22 20 5b |de "... |...!." [|
|00000570| 61 72 67 20 6e 69 6c 20 | 63 61 6c 63 2d 68 79 70 |arg nil |calc-hyp|
|00000580| 65 72 62 6f 6c 69 63 2d | 66 75 6e 63 20 63 61 6c |erbolic-|func cal|
|00000590| 63 2d 63 68 6f 6f 73 65 | 5d 20 33 29 29 0a 0a 28 |c-choose|] 3))..(|
|000005a0| 64 65 66 76 61 72 20 63 | 61 6c 63 2d 6c 61 73 74 |defvar c|alc-last|
|000005b0| 2d 72 61 6e 64 6f 6d 2d | 6c 69 6d 69 74 20 28 71 |-random-|limit (q|
|000005c0| 75 6f 74 65 20 28 66 6c | 6f 61 74 20 31 20 30 29 |uote (fl|oat 1 0)|
|000005d0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|000005e0| 72 61 6e 64 6f 6d 20 28 | 6e 29 20 28 69 6e 74 65 |random (|n) (inte|
|000005f0| 72 61 63 74 69 76 65 20 | 22 50 22 29 20 28 62 79 |ractive |"P") (by|
|00000600| 74 65 2d 63 6f 64 65 20 | 22 c0 88 c1 c2 c3 5c 22 |te-code |".....\"|
|00000610| 87 22 20 5b 6e 69 6c 20 | 63 61 6c 63 2d 64 6f 20 |." [nil |calc-do |
|00000620| 28 6c 61 6d 62 64 61 20 | 6e 69 6c 20 28 62 79 74 |(lambda |nil (byt|
|00000630| 65 2d 63 6f 64 65 20 22 | 08 83 12 00 c1 c2 c3 c4 |e-code "|........|
|00000640| c5 c6 08 21 21 44 23 82 | 1d 00 c1 c7 c3 c4 c5 c8 |...!!D#.|........|
|00000650| c7 21 21 44 23 87 22 20 | 5b 6e 20 63 61 6c 63 2d |.!!D#." |[n calc-|
|00000660| 65 6e 74 65 72 2d 72 65 | 73 75 6c 74 20 30 20 22 |enter-re|sult 0 "|
|00000670| 72 61 6e 64 22 20 63 61 | 6c 63 46 75 6e 63 2d 72 |rand" ca|lcFunc-r|
|00000680| 61 6e 64 6f 6d 20 63 61 | 6c 63 2d 67 65 74 2d 72 |andom ca|lc-get-r|
|00000690| 61 6e 64 6f 6d 2d 6c 69 | 6d 69 74 20 70 72 65 66 |andom-li|mit pref|
|000006a0| 69 78 2d 6e 75 6d 65 72 | 69 63 2d 76 61 6c 75 65 |ix-numer|ic-value|
|000006b0| 20 31 20 63 61 6c 63 2d | 74 6f 70 2d 6e 5d 20 31 | 1 calc-|top-n] 1|
|000006c0| 30 29 29 20 31 35 32 31 | 5d 20 33 29 29 0a 0a 28 |0)) 1521|] 3))..(|
|000006d0| 64 65 66 75 6e 20 63 61 | 6c 63 2d 67 65 74 2d 72 |defun ca|lc-get-r|
|000006e0| 61 6e 64 6f 6d 2d 6c 69 | 6d 69 74 20 28 76 61 6c |andom-li|mit (val|
|000006f0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 c2 |) (byte-|code "..|
|00000700| 3d 83 0a 00 09 82 0d 00 | 08 89 11 87 22 20 5b 76 |=.......|...." [v|
|00000710| 61 6c 20 63 61 6c 63 2d | 6c 61 73 74 2d 72 61 6e |al calc-|last-ran|
|00000720| 64 6f 6d 2d 6c 69 6d 69 | 74 20 30 5d 20 32 29 29 |dom-limi|t 0] 2))|
|00000730| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 2d 72 72 |..(defun| calc-rr|
|00000740| 61 6e 64 6f 6d 20 6e 69 | 6c 20 28 69 6e 74 65 72 |andom ni|l (inter|
|00000750| 61 63 74 69 76 65 29 20 | 28 62 79 74 65 2d 63 6f |active) |(byte-co|
|00000760| 64 65 20 22 c0 88 c1 c2 | c3 5c 22 87 22 20 5b 6e |de "....|.\"." [n|
|00000770| 69 6c 20 63 61 6c 63 2d | 64 6f 20 28 6c 61 6d 62 |il calc-|do (lamb|
|00000780| 64 61 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |da nil (|byte-cod|
|00000790| 65 20 22 c1 89 10 88 c2 | c3 c4 c5 c6 44 23 87 22 |e ".....|....D#."|
|000007a0| 20 5b 63 61 6c 63 2d 6c | 61 73 74 2d 72 61 6e 64 | [calc-l|ast-rand|
|000007b0| 6f 6d 2d 6c 69 6d 69 74 | 20 28 66 6c 6f 61 74 20 |om-limit| (float |
|000007c0| 31 20 30 29 20 63 61 6c | 63 2d 65 6e 74 65 72 2d |1 0) cal|c-enter-|
|000007d0| 72 65 73 75 6c 74 20 30 | 20 22 72 61 6e 64 22 20 |result 0| "rand" |
|000007e0| 63 61 6c 63 46 75 6e 63 | 2d 72 61 6e 64 6f 6d 20 |calcFunc|-random |
|000007f0| 28 66 6c 6f 61 74 20 31 | 20 30 29 5d 20 35 29 29 |(float 1| 0)] 5))|
|00000800| 20 31 38 37 31 5d 20 33 | 29 29 0a 0a 28 64 65 66 | 1871] 3|))..(def|
|00000810| 75 6e 20 63 61 6c 63 2d | 72 61 6e 64 6f 6d 2d 61 |un calc-|random-a|
|00000820| 67 61 69 6e 20 28 61 72 | 67 29 20 28 69 6e 74 65 |gain (ar|g) (inte|
|00000830| 72 61 63 74 69 76 65 20 | 22 70 22 29 20 28 62 79 |ractive |"p") (by|
|00000840| 74 65 2d 63 6f 64 65 20 | 22 c0 88 c1 c2 c3 5c 22 |te-code |".....\"|
|00000850| 87 22 20 5b 6e 69 6c 20 | 63 61 6c 63 2d 64 6f 20 |." [nil |calc-do |
|00000860| 28 6c 61 6d 62 64 61 20 | 6e 69 6c 20 28 62 79 74 |(lambda |nil (byt|
|00000870| 65 2d 63 6f 64 65 20 22 | 08 53 89 10 c2 59 85 14 |e-code "|.S...Y..|
|00000880| 00 c3 c2 c4 c5 09 44 23 | 88 82 00 00 87 22 20 5b |......D#|....." [|
|00000890| 61 72 67 20 63 61 6c 63 | 2d 6c 61 73 74 2d 72 61 |arg calc|-last-ra|
|000008a0| 6e 64 6f 6d 2d 6c 69 6d | 69 74 20 30 20 63 61 6c |ndom-lim|it 0 cal|
|000008b0| 63 2d 65 6e 74 65 72 2d | 72 65 73 75 6c 74 20 22 |c-enter-|result "|
|000008c0| 72 61 6e 64 22 20 63 61 | 6c 63 46 75 6e 63 2d 72 |rand" ca|lcFunc-r|
|000008d0| 61 6e 64 6f 6d 5d 20 36 | 29 29 20 32 30 38 39 5d |andom] 6|)) 2089]|
|000008e0| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 3))..(d|efun cal|
|000008f0| 63 2d 73 68 75 66 66 6c | 65 20 28 6e 29 20 28 69 |c-shuffl|e (n) (i|
|00000900| 6e 74 65 72 61 63 74 69 | 76 65 20 22 50 22 29 20 |nteracti|ve "P") |
|00000910| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 c2 |(byte-co|de "....|
|00000920| c3 5c 22 87 22 20 5b 6e | 69 6c 20 63 61 6c 63 2d |.\"." [n|il calc-|
|00000930| 64 6f 20 28 6c 61 6d 62 | 64 61 20 6e 69 6c 20 28 |do (lamb|da nil (|
|00000940| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 83 15 00 c1 |byte-cod|e ".....|
|00000950| c2 c3 c4 c5 08 21 c6 c7 | c2 21 21 45 23 82 23 00 |.....!..|.!!E#.#.|
|00000960| c1 c8 c3 c4 c7 c2 21 c6 | c7 c8 21 21 45 23 87 22 |......!.|..!!E#."|
|00000970| 20 5b 6e 20 63 61 6c 63 | 2d 65 6e 74 65 72 2d 72 | [n calc|-enter-r|
|00000980| 65 73 75 6c 74 20 31 20 | 22 73 68 75 66 22 20 63 |esult 1 |"shuf" c|
|00000990| 61 6c 63 46 75 6e 63 2d | 73 68 75 66 66 6c 65 20 |alcFunc-|shuffle |
|000009a0| 70 72 65 66 69 78 2d 6e | 75 6d 65 72 69 63 2d 76 |prefix-n|umeric-v|
|000009b0| 61 6c 75 65 20 63 61 6c | 63 2d 67 65 74 2d 72 61 |alue cal|c-get-ra|
|000009c0| 6e 64 6f 6d 2d 6c 69 6d | 69 74 20 63 61 6c 63 2d |ndom-lim|it calc-|
|000009d0| 74 6f 70 2d 6e 20 32 5d | 20 31 33 29 29 20 32 33 |top-n 2]| 13)) 23|
|000009e0| 30 37 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |07] 3)).|.(defun |
|000009f0| 63 61 6c 63 2d 72 65 70 | 6f 72 74 2d 70 72 69 6d |calc-rep|ort-prim|
|00000a00| 65 2d 74 65 73 74 20 28 | 72 65 73 29 20 28 62 79 |e-test (|res) (by|
|00000a10| 74 65 2d 63 6f 64 65 20 | 22 08 40 c1 3d 83 0e 00 |te-code |".@.=...|
|00000a20| c4 c5 c6 5c 22 82 4b 00 | 08 40 c2 3d 83 3c 00 08 |...\".K.|.@.=.<..|
|00000a30| 41 83 35 00 c7 08 38 c8 | 3d 83 29 00 c4 c5 c9 5c |A.5...8.|=.)....\|
|00000a40| 22 82 32 00 c4 c5 ca cb | c7 08 38 21 23 82 39 00 |".2.....|..8!#.9.|
|00000a50| c4 c5 cc 5c 22 82 4b 00 | c4 c5 cd c7 08 38 ce 1b |...\".K.|.....8..|
|00000a60| cb cf 08 38 21 29 24 87 | 22 20 5b 72 65 73 20 74 |...8!)$.|" [res t|
|00000a70| 20 6e 69 6c 20 63 61 6c | 63 2d 66 6c 6f 61 74 2d | nil cal|c-float-|
|00000a80| 66 6f 72 6d 61 74 20 63 | 61 6c 63 2d 72 65 63 6f |format c|alc-reco|
|00000a90| 72 64 2d 6d 65 73 73 61 | 67 65 20 22 70 72 69 6d |rd-messa|ge "prim|
|00000aa0| 22 20 22 50 72 69 6d 65 | 20 28 67 75 61 72 61 6e |" "Prime| (guaran|
|00000ab0| 74 65 65 64 29 22 20 31 | 20 75 6e 6b 6e 6f 77 6e |teed)" 1| unknown|
|00000ac0| 20 22 4e 6f 6e 2d 70 72 | 69 6d 65 20 28 66 61 63 | "Non-pr|ime (fac|
|00000ad0| 74 6f 72 73 20 75 6e 6b | 6e 6f 77 6e 29 22 20 22 |tors unk|nown)" "|
|00000ae0| 4e 6f 6e 2d 70 72 69 6d | 65 20 28 25 73 20 69 73 |Non-prim|e (%s is|
|00000af0| 20 61 20 66 61 63 74 6f | 72 29 22 20 6d 61 74 68 | a facto|r)" math|
|00000b00| 2d 66 6f 72 6d 61 74 2d | 6e 75 6d 62 65 72 20 22 |-format-|number "|
|00000b10| 4e 6f 6e 2d 70 72 69 6d | 65 22 20 22 50 72 6f 62 |Non-prim|e" "Prob|
|00000b20| 61 62 6c 79 20 70 72 69 | 6d 65 20 28 25 64 20 69 |ably pri|me (%d i|
|00000b30| 74 65 72 73 3b 20 25 73 | 25 25 20 63 68 61 6e 63 |ters; %s|%% chanc|
|00000b40| 65 20 6f 66 20 65 72 72 | 6f 72 29 22 20 28 66 69 |e of err|or)" (fi|
|00000b50| 78 20 32 29 20 32 5d 20 | 31 32 29 29 0a 0a 28 64 |x 2) 2] |12))..(d|
|00000b60| 65 66 75 6e 20 63 61 6c | 63 2d 70 72 69 6d 65 2d |efun cal|c-prime-|
|00000b70| 74 65 73 74 20 28 69 74 | 65 72 73 29 20 28 69 6e |test (it|ers) (in|
|00000b80| 74 65 72 61 63 74 69 76 | 65 20 22 70 22 29 20 28 |teractiv|e "p") (|
|00000b90| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 88 c1 c2 c3 |byte-cod|e ".....|
|00000ba0| 5c 22 87 22 20 5b 6e 69 | 6c 20 63 61 6c 63 2d 64 |\"." [ni|l calc-d|
|00000bb0| 6f 20 28 6c 61 6d 62 64 | 61 20 6e 69 6c 20 28 62 |o (lambd|a nil (b|
|00000bc0| 79 74 65 2d 63 6f 64 65 | 20 22 c3 c4 21 18 c5 08 |yte-code| "..!...|
|00000bd0| 0a 5c 22 19 c6 09 21 2a | 87 22 20 5b 6e 20 72 65 |.\"...!*|." [n re|
|00000be0| 73 20 69 74 65 72 73 20 | 63 61 6c 63 2d 74 6f 70 |s iters |calc-top|
|00000bf0| 2d 6e 20 31 20 6d 61 74 | 68 2d 70 72 69 6d 65 2d |-n 1 mat|h-prime-|
|00000c00| 74 65 73 74 20 63 61 6c | 63 2d 72 65 70 6f 72 74 |test cal|c-report|
|00000c10| 2d 70 72 69 6d 65 2d 74 | 65 73 74 5d 20 34 29 29 |-prime-t|est] 4))|
|00000c20| 20 32 39 33 39 5d 20 33 | 29 29 0a 0a 28 64 65 66 | 2939] 3|))..(def|
|00000c30| 75 6e 20 63 61 6c 63 2d | 6e 65 78 74 2d 70 72 69 |un calc-|next-pri|
|00000c40| 6d 65 20 28 69 74 65 72 | 73 29 20 28 69 6e 74 65 |me (iter|s) (inte|
|00000c50| 72 61 63 74 69 76 65 20 | 22 70 22 29 20 28 62 79 |ractive |"p") (by|
|00000c60| 74 65 2d 63 6f 64 65 20 | 22 c0 88 c1 c2 c3 5c 22 |te-code |".....\"|
|00000c70| 87 22 20 5b 6e 69 6c 20 | 63 61 6c 63 2d 64 6f 20 |." [nil |calc-do |
|00000c80| 28 6c 61 6d 62 64 61 20 | 6e 69 6c 20 28 62 79 74 |(lambda |nil (byt|
|00000c90| 65 2d 63 6f 64 65 20 22 | c1 18 c3 20 83 16 00 c4 |e-code "|... ....|
|00000ca0| c5 c6 c7 c8 c5 21 c9 0a | 21 45 23 82 5c 22 00 c4 |.....!..|!E#.\"..|
|00000cb0| c5 ca cb c8 c5 21 c9 0a | 21 45 23 29 87 22 20 5b |.....!..|!E#)." [|
|00000cc0| 63 61 6c 63 2d 76 65 72 | 62 6f 73 65 2d 6e 65 78 |calc-ver|bose-nex|
|00000cd0| 74 70 72 69 6d 65 20 74 | 20 69 74 65 72 73 20 63 |tprime t| iters c|
|00000ce0| 61 6c 63 2d 69 73 2d 69 | 6e 76 65 72 73 65 20 63 |alc-is-i|nverse c|
|00000cf0| 61 6c 63 2d 65 6e 74 65 | 72 2d 72 65 73 75 6c 74 |alc-ente|r-result|
|00000d00| 20 31 20 22 70 72 76 70 | 22 20 63 61 6c 63 46 75 | 1 "prvp|" calcFu|
|00000d10| 6e 63 2d 70 72 65 76 70 | 72 69 6d 65 20 63 61 6c |nc-prevp|rime cal|
|00000d20| 63 2d 74 6f 70 2d 6e 20 | 6d 61 74 68 2d 61 62 73 |c-top-n |math-abs|
|00000d30| 20 22 6e 78 74 70 22 20 | 63 61 6c 63 46 75 6e 63 | "nxtp" |calcFunc|
|00000d40| 2d 6e 65 78 74 70 72 69 | 6d 65 5d 20 31 32 29 29 |-nextpri|me] 12))|
|00000d50| 20 33 31 34 35 5d 20 33 | 29 29 0a 0a 28 64 65 66 | 3145] 3|))..(def|
|00000d60| 75 6e 20 63 61 6c 63 2d | 70 72 65 76 2d 70 72 69 |un calc-|prev-pri|
|00000d70| 6d 65 20 28 69 74 65 72 | 73 29 20 28 69 6e 74 65 |me (iter|s) (inte|
|00000d80| 72 61 63 74 69 76 65 20 | 22 70 22 29 20 28 62 79 |ractive |"p") (by|
|00000d90| 74 65 2d 63 6f 64 65 20 | 22 c1 88 c2 20 88 c3 08 |te-code |"... ...|
|00000da0| 21 87 22 20 5b 69 74 65 | 72 73 20 6e 69 6c 20 63 |!." [ite|rs nil c|
|00000db0| 61 6c 63 2d 69 6e 76 65 | 72 74 2d 66 75 6e 63 20 |alc-inve|rt-func |
|00000dc0| 63 61 6c 63 2d 6e 65 78 | 74 2d 70 72 69 6d 65 5d |calc-nex|t-prime]|
|00000dd0| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 3))..(d|efun cal|
|00000de0| 63 2d 70 72 69 6d 65 2d | 66 61 63 74 6f 72 73 20 |c-prime-|factors |
|00000df0| 28 69 74 65 72 73 29 20 | 28 69 6e 74 65 72 61 63 |(iters) |(interac|
|00000e00| 74 69 76 65 20 22 70 22 | 29 20 28 62 79 74 65 2d |tive "p"|) (byte-|
|00000e10| 63 6f 64 65 20 22 c0 88 | c1 c2 c3 5c 22 87 22 20 |code "..|...\"." |
|00000e20| 5b 6e 69 6c 20 63 61 6c | 63 2d 64 6f 20 28 6c 61 |[nil cal|c-do (la|
|00000e30| 6d 62 64 61 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |mbda nil| (byte-c|
|00000e40| 6f 64 65 20 22 c2 c3 c4 | 21 21 18 09 3f 85 0f 00 |ode "...|!!..?...|
|00000e50| c5 c6 c7 5c 22 88 c8 c4 | c6 08 23 29 87 22 20 5b |...\"...|..#)." [|
|00000e60| 72 65 73 20 6d 61 74 68 | 2d 70 72 69 6d 65 2d 66 |res math|-prime-f|
|00000e70| 61 63 74 6f 72 73 2d 66 | 69 6e 69 73 68 65 64 20 |actors-f|inished |
|00000e80| 63 61 6c 63 46 75 6e 63 | 2d 70 72 66 61 63 20 63 |calcFunc|-prfac c|
|00000e90| 61 6c 63 2d 74 6f 70 2d | 6e 20 31 20 63 61 6c 63 |alc-top-|n 1 calc|
|00000ea0| 2d 72 65 63 6f 72 64 2d | 6d 65 73 73 61 67 65 20 |-record-|message |
|00000eb0| 22 70 66 61 63 22 20 22 | 57 61 72 6e 69 6e 67 3a |"pfac" "|Warning:|
|00000ec0| 20 20 4d 61 79 20 6e 6f | 74 20 62 65 20 66 75 6c |  May no|t be ful|
|00000ed0| 6c 79 20 66 61 63 74 6f | 72 65 64 22 20 63 61 6c |ly facto|red" cal|
|00000ee0| 63 2d 65 6e 74 65 72 2d | 72 65 73 75 6c 74 5d 20 |c-enter-|result] |
|00000ef0| 37 29 29 20 33 35 37 31 | 5d 20 33 29 29 0a 0a 28 |7)) 3571|] 3))..(|
|00000f00| 64 65 66 75 6e 20 63 61 | 6c 63 2d 74 6f 74 69 65 |defun ca|lc-totie|
|00000f10| 6e 74 20 28 61 72 67 29 | 20 28 69 6e 74 65 72 61 |nt (arg)| (intera|
|00000f20| 63 74 69 76 65 20 22 50 | 22 29 20 28 62 79 74 65 |ctive "P|") (byte|
|00000f30| 2d 63 6f 64 65 20 22 c0 | 88 c1 c2 c3 5c 22 87 22 |-code ".|....\"."|
|00000f40| 20 5b 6e 69 6c 20 63 61 | 6c 63 2d 64 6f 20 28 6c | [nil ca|lc-do (l|
|00000f50| 61 6d 62 64 61 20 6e 69 | 6c 20 28 62 79 74 65 2d |ambda ni|l (byte-|
|00000f60| 63 6f 64 65 20 22 c1 c2 | c3 08 23 87 22 20 5b 61 |code "..|..#." [a|
|00000f70| 72 67 20 63 61 6c 63 2d | 75 6e 61 72 79 2d 6f 70 |rg calc-|unary-op|
|00000f80| 20 22 70 68 69 22 20 63 | 61 6c 63 46 75 6e 63 2d | "phi" c|alcFunc-|
|00000f90| 74 6f 74 69 65 6e 74 5d | 20 34 29 29 20 33 38 36 |totient]| 4)) 386|
|00000fa0| 38 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |8] 3))..|(defun c|
|00000fb0| 61 6c 63 2d 6d 6f 65 62 | 69 75 73 20 28 61 72 67 |alc-moeb|ius (arg|
|00000fc0| 29 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |) (inter|active "|
|00000fd0| 50 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |P") (byt|e-code "|
|00000fe0| c0 88 c1 c2 c3 5c 22 87 | 22 20 5b 6e 69 6c 20 63 |.....\".|" [nil c|
|00000ff0| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|00001000| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |il (byte|-code ".|
|00001010| c2 c3 08 23 87 22 20 5b | 61 72 67 20 63 61 6c 63 |...#." [|arg calc|
|00001020| 2d 75 6e 61 72 79 2d 6f | 70 20 22 6d 75 22 20 63 |-unary-o|p "mu" c|
|00001030| 61 6c 63 46 75 6e 63 2d | 6d 6f 65 62 69 75 73 5d |alcFunc-|moebius]|
|00001040| 20 34 29 29 20 34 30 33 | 37 5d 20 33 29 29 0a 0a | 4)) 403|7] 3))..|
|00001050| 28 64 65 66 75 6e 20 63 | 61 6c 63 46 75 6e 63 2d |(defun c|alcFunc-|
|00001060| 67 63 64 20 28 61 20 62 | 29 20 28 62 79 74 65 2d |gcd (a b|) (byte-|
|00001070| 63 6f 64 65 20 22 08 3a | 85 11 00 08 40 c3 3d 85 |code ".:|....@.=.|
|00001080| 11 00 c4 08 38 c5 59 85 | 19 00 c6 08 21 89 10 88 |....8.Y.|....!...|
|00001090| 09 3a 85 2b 00 09 40 c3 | 3d 85 2b 00 c4 09 38 c5 |.:.+..@.|=.+...8.|
|000010a0| 59 85 33 00 c6 09 21 89 | 11 88 08 3a 3f 86 3e 00 |Y.3...!.|...:?.>.|
|000010b0| 08 40 c7 3e 85 4b 00 09 | 3a 3f 86 4b 00 09 40 c8 |.@.>.K..|:?.K..@.|
|000010c0| 3e 83 55 00 c9 08 09 5c | 22 82 05 02 08 3a 83 8e |>.U....\|"....:..|
|000010d0| 00 08 40 ca 3d 86 8b 00 | 08 40 cb 3d 3f 85 8b 00 |..@.=...|.@.=?...|
|000010e0| 08 40 cc 3e 83 88 00 cd | 08 38 3a 83 80 00 cd 08 |.@.>....|.8:.....|
|000010f0| 38 40 ca 3d 82 85 00 cd | 08 38 c5 57 82 8b 00 ce |8@.=....|.8.W....|
|00001100| 08 21 82 91 00 08 c5 57 | 86 b4 00 08 3a 85 b4 00 |.!.....W|....:...|
|00001110| 08 40 cf 3d 86 b4 00 08 | 40 d0 3e 85 b4 00 d1 cd |.@.=....|@.>.....|
|00001120| 08 38 21 86 b4 00 d1 c4 | 08 38 21 83 c0 00 d2 d3 |.8!.....|.8!.....|
|00001130| 08 21 09 5c 22 82 05 02 | 09 3a 83 f9 00 09 40 ca |.!.\"...|.:....@.|
|00001140| 3d 86 f6 00 09 40 cb 3d | 3f 85 f6 00 09 40 d4 3e |=....@.=|?....@.>|
|00001150| 83 f3 00 cd 09 38 3a 83 | eb 00 cd 09 38 40 ca 3d |.....8:.|....8@.=|
|00001160| 82 f0 00 cd 09 38 c5 57 | 82 f6 00 ce 09 21 82 fc |.....8.W|.....!..|
|00001170| 00 09 c5 57 86 1f 01 09 | 3a 85 1f 01 09 40 cf 3d |...W....|:....@.=|
|00001180| 86 1f 01 09 40 d5 3e 85 | 1f 01 d1 cd 09 38 21 86 |....@.>.|.....8!.|
|00001190| 1f 01 d1 c4 09 38 21 83 | 2b 01 d2 08 d3 09 21 5c |.....8!.|+.....!\|
|000011a0| 22 82 05 02 08 3a 83 4d | 01 08 40 d6 3e 3f 85 4a |"....:.M|..@.>?.J|
|000011b0| 01 08 40 c3 3d 83 47 01 | cd 08 38 c5 3d 82 4a 01 |..@.=.G.|..8.=.J.|
|000011c0| d7 08 21 82 50 01 08 c5 | 3d 83 57 01 09 82 05 02 |..!.P...|=.W.....|
|000011d0| 09 3a 83 79 01 09 40 d8 | 3e 3f 85 76 01 09 40 c3 |.:.y..@.|>?.v..@.|
|000011e0| 3d 83 73 01 cd 09 38 c5 | 3d 82 76 01 d7 09 21 82 |=.s...8.|=.v...!.|
|000011f0| 7c 01 09 c5 3d 83 83 01 | 08 82 05 02 08 3a 3f 86 ||...=...|.....:?.|
|00001200| 8d 01 08 40 d9 3e 85 9a | 01 09 3a 3f 86 9a 01 09 |...@.>..|..:?....|
|00001210| 40 da 3e 83 e2 01 db c9 | dc 08 21 dd 3d 83 ad 01 |@.>.....|..!.=...|
|00001220| cd 08 38 82 ae 01 08 dc | 09 21 dd 3d 83 bc 01 cd |..8.....|.!.=....|
|00001230| 09 38 82 bd 01 09 5c 22 | de dc 08 21 dd 3d 83 cd |.8....\"|...!.=..|
|00001240| 01 c4 08 38 82 ce 01 cd | dc 09 21 dd 3d 83 dc 01 |...8....|..!.=...|
|00001250| c4 09 38 82 dd 01 cd 5c | 22 5c 22 82 05 02 08 3a |..8....\|"\"....:|
|00001260| 3f 86 ec 01 08 40 df 3e | 3f 83 fc 01 e0 e1 08 5c |?....@.>|?......\|
|00001270| 22 88 d2 08 09 45 82 05 | 02 e0 e1 09 5c 22 88 d2 |"....E..|....\"..|
|00001280| 08 09 45 87 22 20 5b 61 | 20 62 20 74 20 66 6c 6f |..E." [a| b t flo|
|00001290| 61 74 20 32 20 30 20 6d | 61 74 68 2d 74 72 75 6e |at 2 0 m|ath-trun|
|000012a0| 63 20 28 62 69 67 70 6f | 73 20 62 69 67 6e 65 67 |c (bigpo|s bigneg|
|000012b0| 29 20 28 62 69 67 70 6f | 73 20 62 69 67 6e 65 67 |) (bigpo|s bigneg|
|000012c0| 29 20 6d 61 74 68 2d 67 | 63 64 20 62 69 67 6e 65 |) math-g|cd bigne|
|000012d0| 67 20 62 69 67 70 6f 73 | 20 28 66 72 61 63 20 66 |g bigpos| (frac f|
|000012e0| 6c 6f 61 74 29 20 31 20 | 6d 61 74 68 2d 6e 65 67 |loat) 1 |math-neg|
|000012f0| 70 20 6e 65 67 20 28 2a | 20 2f 29 20 6d 61 74 68 |p neg (*| /) math|
|00001300| 2d 6c 6f 6f 6b 73 2d 6e | 65 67 70 20 63 61 6c 63 |-looks-n|egp calc|
|00001310| 46 75 6e 63 2d 67 63 64 | 20 6d 61 74 68 2d 6e 65 |Func-gcd| math-ne|
|00001320| 67 20 28 66 72 61 63 20 | 66 6c 6f 61 74 29 20 28 |g (frac |float) (|
|00001330| 2a 20 2f 29 20 28 62 69 | 67 70 6f 73 20 62 69 67 |* /) (bi|gpos big|
|00001340| 6e 65 67 29 20 6d 61 74 | 68 2d 7a 65 72 6f 70 20 |neg) mat|h-zerop |
|00001350| 28 62 69 67 70 6f 73 20 | 62 69 67 6e 65 67 29 20 |(bigpos |bigneg) |
|00001360| 28 62 69 67 70 6f 73 20 | 62 69 67 6e 65 67 20 66 |(bigpos |bigneg f|
|00001370| 72 61 63 29 20 28 62 69 | 67 70 6f 73 20 62 69 67 |rac) (bi|gpos big|
|00001380| 6e 65 67 20 66 72 61 63 | 29 20 6d 61 74 68 2d 6d |neg frac|) math-m|
|00001390| 61 6b 65 2d 66 72 61 63 | 20 63 61 72 2d 73 61 66 |ake-frac| car-saf|
|000013a0| 65 20 66 72 61 63 20 63 | 61 6c 63 46 75 6e 63 2d |e frac c|alcFunc-|
|000013b0| 6c 63 6d 20 28 62 69 67 | 70 6f 73 20 62 69 67 6e |lcm (big|pos bign|
|000013c0| 65 67 29 20 63 61 6c 63 | 2d 72 65 63 6f 72 64 2d |eg) calc|-record-|
|000013d0| 77 68 79 20 69 6e 74 65 | 67 65 72 70 5d 20 32 37 |why inte|gerp] 27|
|000013e0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 46 |))..(def|un calcF|
|000013f0| 75 6e 63 2d 6c 63 6d 20 | 28 61 20 62 29 20 28 62 |unc-lcm |(a b) (b|
|00001400| 79 74 65 2d 63 6f 64 65 | 20 22 c3 09 0a 5c 22 18 |yte-code| "...\".|
|00001410| 08 3a 3f 86 0f 00 08 40 | c4 3e 83 1c 00 c5 c6 09 |.:?....@|.>......|
|00001420| 0a 5c 22 08 5c 22 82 20 | 00 c7 09 0a 45 29 87 22 |.\".\". |....E)."|
|00001430| 20 5b 67 20 61 20 62 20 | 63 61 6c 63 46 75 6e 63 | [g a b |calcFunc|
|00001440| 2d 67 63 64 20 28 62 69 | 67 70 6f 73 20 62 69 67 |-gcd (bi|gpos big|
|00001450| 6e 65 67 20 66 72 61 63 | 20 66 6c 6f 61 74 20 63 |neg frac| float c|
|00001460| 70 6c 78 20 70 6f 6c 61 | 72 29 20 6d 61 74 68 2d |plx pola|r) math-|
|00001470| 64 69 76 20 6d 61 74 68 | 2d 6d 75 6c 20 63 61 6c |div math|-mul cal|
|00001480| 63 46 75 6e 63 2d 6c 63 | 6d 5d 20 36 29 29 0a 0a |cFunc-lc|m] 6))..|
|00001490| 28 64 65 66 75 6e 20 63 | 61 6c 63 46 75 6e 63 2d |(defun c|alcFunc-|
|000014a0| 65 67 63 64 20 28 61 20 | 62 29 20 28 62 79 74 65 |egcd (a |b) (byte|
|000014b0| 2d 63 6f 64 65 20 22 08 | 3a 3f 86 0a 00 08 40 cc |-code ".|:?....@.|
|000014c0| 3e 3f 83 37 00 08 3a 85 | 1f 00 08 40 cd 3d 85 1f |>?.7..:.|...@.=..|
|000014d0| 00 ce 08 38 cf 59 83 2b | 00 d0 d1 08 21 09 5c 22 |...8.Y.+|....!.\"|
|000014e0| 82 34 00 d2 d3 08 5c 22 | 88 d0 08 09 45 82 d0 00 |.4....\"|....E...|
|000014f0| 09 3a 3f 86 41 00 09 40 | d4 3e 3f 83 6e 00 09 3a |.:?.A..@|.>?.n..:|
|00001500| 85 56 00 09 40 cd 3d 85 | 56 00 ce 09 38 cf 59 83 |.V..@.=.|V...8.Y.|
|00001510| 62 00 d0 08 d1 09 21 5c | 22 82 6b 00 d2 d3 09 5c |b.....!\|".k....\|
|00001520| 22 88 d0 08 09 45 82 d0 | 00 d5 cf 08 cf d5 09 d6 |"....E..|........|
|00001530| d6 d6 1e 0b 1e 0a 1e 09 | 1e 08 1e 07 1e 06 1d 1c |........|........|
|00001540| 1b 0e 08 cf 3d 3f 85 c8 | 00 d7 0d 0e 08 5c 22 16 |....=?..|.....\".|
|00001550| 0b d8 0b d9 0e 06 0e 0b | 40 5c 22 5c 22 16 09 d8 |........|@\"\"...|
|00001560| 0c d9 0e 07 0e 0b 40 5c | 22 5c 22 16 0a 0e 06 13 |......@\|"\".....|
|00001570| 0e 07 14 0e 08 15 0e 09 | 16 06 0e 0a 16 07 0e 0b |........|........|
|00001580| 41 89 16 08 88 82 86 00 | 88 da 0d 0b 0c 46 2e 09 |A.......|.....F..|
|00001590| 87 22 20 5b 61 20 62 20 | 74 20 75 31 20 75 32 20 |." [a b |t u1 u2 |
|000015a0| 75 33 20 76 31 20 76 32 | 20 76 33 20 74 31 20 74 |u3 v1 v2| v3 t1 t|
|000015b0| 32 20 71 20 28 62 69 67 | 70 6f 73 20 62 69 67 6e |2 q (big|pos bign|
|000015c0| 65 67 29 20 66 6c 6f 61 | 74 20 32 20 30 20 63 61 |eg) floa|t 2 0 ca|
|000015d0| 6c 63 46 75 6e 63 2d 65 | 67 63 64 20 6d 61 74 68 |lcFunc-e|gcd math|
|000015e0| 2d 74 72 75 6e 63 20 63 | 61 6c 63 2d 72 65 63 6f |-trunc c|alc-reco|
|000015f0| 72 64 2d 77 68 79 20 69 | 6e 74 65 67 65 72 70 20 |rd-why i|ntegerp |
|00001600| 28 62 69 67 70 6f 73 20 | 62 69 67 6e 65 67 29 20 |(bigpos |bigneg) |
|00001610| 31 20 6e 69 6c 20 6d 61 | 74 68 2d 69 64 69 76 6d |1 nil ma|th-idivm|
|00001620| 6f 64 20 6d 61 74 68 2d | 73 75 62 20 6d 61 74 68 |od math-|sub math|
|00001630| 2d 6d 75 6c 20 76 65 63 | 5d 20 31 35 29 29 0a 0a |-mul vec|] 15))..|
|00001640| 28 64 65 66 75 6e 20 63 | 61 6c 63 46 75 6e 63 2d |(defun c|alcFunc-|
|00001650| 66 61 63 74 20 28 6e 29 | 20 28 62 79 74 65 2d 63 |fact (n)| (byte-c|
|00001660| 6f 64 65 20 22 c8 18 09 | 3a 83 0e 00 09 40 c9 3d |ode "...|:....@.=|
|00001670| 82 11 00 09 ca 57 83 23 | 00 0a 83 1c 00 cb 82 20 |.....W.#|....... |
|00001680| 00 cc 09 cd 5c 22 82 5a | 01 ce 09 21 83 3e 00 09 |....\".Z|...!.>..|
|00001690| cf 58 83 35 00 d0 09 48 | 82 3b 00 d1 09 53 d2 d3 |.X.5...H|.;...S..|
|000016a0| 23 82 5a 01 d4 09 21 85 | 4a 00 d5 09 d6 5c 22 d7 |#.Z...!.|J....\".|
|000016b0| 55 83 81 00 d8 20 88 d9 | 09 21 89 10 88 08 ca 59 |U.... ..|.!.....Y|
|000016c0| 83 7a 00 08 cf 58 83 6a | 00 da db 08 21 21 82 77 |.z...X.j|....!!.w|
|000016d0| 00 dc 0b d3 5c 5c 1b d1 | 08 53 d2 dd 23 29 21 82 |....\\..|.S..#)!.|
|000016e0| 7e 00 cc 09 cd 5c 22 82 | 5a 01 de 09 21 83 47 01 |~....\".|Z...!.G.|
|000016f0| df 09 21 1c 0c 85 a5 00 | d5 09 e0 5c 22 d7 55 85 |..!.....|...\".U.|
|00001700| a5 00 d5 e1 09 5c 22 d7 | 55 85 a5 00 e2 09 21 54 |.....\".|U.....!T|
|00001710| 1d 0d 85 ba 00 0c d2 55 | 85 ba 00 0e 06 86 ba 00 |.......U|........|
|00001720| e3 0d 21 cf 57 83 fa 00 | 0d ca 57 83 d6 00 e4 e5 |..!.W...|..W.....|
|00001730| e6 0d 5b 5c 22 e7 e8 e6 | 0d 5c 22 e9 d3 d2 24 5c |..[\"...|.\"...$\|
|00001740| 22 82 e5 00 e4 e7 e8 d2 | 0d 5c 22 e9 d3 d2 24 e5 |".......|.\"...$.|
|00001750| d2 0d 5c 22 5c 22 1c ea | 0c 0e 06 83 f3 00 eb ec |..\"\"..|........|
|00001760| 44 82 f5 00 ed 20 5c 22 | 29 82 43 01 0d 85 0d 01 |D.... \"|).C.....|
|00001770| 0d ca 59 85 0d 01 0d cf | 57 85 0d 01 0c ee 3e 83 |..Y.....|W.....>.|
|00001780| 34 01 d8 20 88 e4 ea e7 | e8 ef 0d 5c 22 0c d3 ef |4.. ....|...\"...|
|00001790| 24 0c d3 55 83 29 01 f0 | 20 82 2b 01 f1 20 5c 22 |$..U.)..| .+.. \"|
|000017a0| e5 ef 0d 5c 22 5c 22 82 | 43 01 d8 20 88 dc 0b e9 |...\"\".|C.. ....|
|000017b0| 5c 5c 1b f2 da 09 21 21 | 29 21 2a 82 5a 01 f3 09 |\\....!!|)!*.Z...|
|000017c0| f4 5c 22 83 52 01 09 82 | 5a 01 f5 f6 09 5c 22 88 |.\".R...|Z....\".|
|000017d0| db 09 44 29 87 22 20 5b | 74 65 6d 70 20 6e 20 63 |..D)." [|temp n c|
|000017e0| 61 6c 63 2d 69 6e 66 69 | 6e 69 74 65 2d 6d 6f 64 |alc-infi|nite-mod|
|000017f0| 65 20 63 61 6c 63 2d 69 | 6e 74 65 72 6e 61 6c 2d |e calc-i|nternal-|
|00001800| 70 72 65 63 20 71 20 74 | 6e 20 63 61 6c 63 2d 73 |prec q t|n calc-s|
|00001810| 79 6d 62 6f 6c 69 63 2d | 6d 6f 64 65 20 74 20 6e |ymbolic-|mode t n|
|00001820| 69 6c 20 62 69 67 6e 65 | 67 20 30 20 28 76 61 72 |il bigne|g 0 (var|
|00001830| 20 75 69 6e 66 20 76 61 | 72 2d 75 69 6e 66 29 20 | uinf va|r-uinf) |
|00001840| 6d 61 74 68 2d 72 65 6a | 65 63 74 2d 61 72 67 20 |math-rej|ect-arg |
|00001850| 72 61 6e 67 65 20 69 6e | 74 65 67 65 72 70 20 32 |range in|tegerp 2|
|00001860| 30 20 5b 31 20 31 20 32 | 20 36 20 32 34 20 31 32 |0 [1 1 2| 6 24 12|
|00001870| 30 20 37 32 30 20 35 30 | 34 30 20 34 30 33 32 30 |0 720 50|40 40320|
|00001880| 20 33 36 32 38 38 30 20 | 28 62 69 67 70 6f 73 20 | 362880 |(bigpos |
|00001890| 38 30 30 20 36 32 38 20 | 33 29 20 28 62 69 67 70 |800 628 |3) (bigp|
|000018a0| 6f 73 20 38 30 30 20 39 | 31 36 20 33 39 29 20 28 |os 800 9|16 39) (|
|000018b0| 62 69 67 70 6f 73 20 36 | 30 30 20 31 20 34 37 39 |bigpos 6|00 1 479|
|000018c0| 29 20 28 62 69 67 70 6f | 73 20 38 30 30 20 32 30 |) (bigpo|s 800 20|
|000018d0| 20 32 32 37 20 36 29 20 | 28 62 69 67 70 6f 73 20 | 227 6) |(bigpos |
|000018e0| 32 30 30 20 32 39 31 20 | 31 37 38 20 38 37 29 20 |200 291 |178 87) |
|000018f0| 28 62 69 67 70 6f 73 20 | 30 20 33 36 38 20 36 37 |(bigpos |0 368 67|
|00001900| 34 20 33 30 37 20 31 29 | 20 28 62 69 67 70 6f 73 |4 307 1)| (bigpos|
|00001910| 20 30 20 38 38 38 20 37 | 38 39 20 39 32 32 20 32 | 0 888 7|89 922 2|
|00001920| 30 29 20 28 62 69 67 70 | 6f 73 20 30 20 39 36 20 |0) (bigp|os 0 96 |
|00001930| 34 32 38 20 36 38 37 20 | 33 35 35 29 20 28 62 69 |428 687 |355) (bi|
|00001940| 67 70 6f 73 20 30 20 37 | 32 38 20 37 30 35 20 33 |gpos 0 7|28 705 3|
|00001950| 37 33 20 34 30 32 20 36 | 29 20 28 62 69 67 70 6f |73 402 6|) (bigpo|
|00001960| 73 20 30 20 38 33 32 20 | 34 30 38 20 31 30 30 20 |s 0 832 |408 100 |
|00001970| 36 34 35 20 31 32 31 29 | 20 28 62 69 67 70 6f 73 |645 121)| (bigpos|
|00001980| 20 30 20 36 34 30 20 31 | 37 36 20 38 20 39 30 32 | 0 640 1|76 8 902|
|00001990| 20 34 33 32 20 32 29 5d | 20 6d 61 74 68 2d 66 61 | 432 2)]| math-fa|
|000019a0| 63 74 6f 72 69 61 6c 2d | 69 74 65 72 20 32 20 31 |ctorial-|iter 2 1|
|000019b0| 20 6d 61 74 68 2d 6d 65 | 73 73 79 2d 69 6e 74 65 | math-me|ssy-inte|
|000019c0| 67 65 72 70 20 6d 61 74 | 68 2d 63 6f 6d 70 61 72 |gerp mat|h-compar|
|000019d0| 65 20 31 30 30 20 2d 31 | 20 6d 61 74 68 2d 69 6e |e 100 -1| math-in|
|000019e0| 65 78 61 63 74 2d 72 65 | 73 75 6c 74 20 6d 61 74 |exact-re|sult mat|
|000019f0| 68 2d 74 72 75 6e 63 20 | 6d 61 74 68 2d 66 6c 6f |h-trunc |math-flo|
|00001a00| 61 74 20 63 61 6c 63 46 | 75 6e 63 2d 66 61 63 74 |at calcF|unc-fact|
|00001a10| 20 6d 61 74 68 2d 6e 6f | 72 6d 61 6c 69 7a 65 20 | math-no|rmalize |
|00001a20| 28 66 6c 6f 61 74 20 31 | 20 30 29 20 6d 61 74 68 |(float 1| 0) math|
|00001a30| 2d 6e 75 6d 62 65 72 70 | 20 6d 61 74 68 2d 71 75 |-numberp| math-qu|
|00001a40| 61 72 74 65 72 2d 69 6e | 74 65 67 65 72 20 31 30 |arter-in|teger 10|
|00001a50| 30 30 20 2d 31 30 30 30 | 20 6d 61 74 68 2d 66 6c |00 -1000| math-fl|
|00001a60| 6f 6f 72 20 6d 61 74 68 | 2d 61 62 73 20 6d 61 74 |oor math|-abs mat|
|00001a70| 68 2d 64 69 76 20 6d 61 | 74 68 2d 70 6f 77 20 2d |h-div ma|th-pow -|
|00001a80| 32 20 6d 61 74 68 2d 64 | 6f 75 62 6c 65 2d 66 61 |2 math-d|ouble-fa|
|00001a90| 63 74 6f 72 69 61 6c 2d | 69 74 65 72 20 2a 20 33 |ctorial-|iter * 3|
|00001aa0| 20 6d 61 74 68 2d 6d 75 | 6c 20 63 61 6c 63 46 75 | math-mu|l calcFu|
|00001ab0| 6e 63 2d 73 71 72 74 20 | 28 76 61 72 20 70 69 20 |nc-sqrt |(var pi |
|00001ac0| 76 61 72 2d 70 69 29 20 | 6d 61 74 68 2d 73 71 72 |var-pi) |math-sqr|
|00001ad0| 74 2d 70 69 20 28 31 20 | 33 29 20 34 20 6d 61 74 |t-pi (1 |3) 4 mat|
|00001ae0| 68 2d 67 61 6d 6d 61 2d | 31 71 20 6d 61 74 68 2d |h-gamma-|1q math-|
|00001af0| 67 61 6d 6d 61 2d 33 71 | 20 6d 61 74 68 2d 67 61 |gamma-3q| math-ga|
|00001b00| 6d 6d 61 70 31 2d 72 61 | 77 20 65 71 75 61 6c 20 |mmap1-ra|w equal |
|00001b10| 28 76 61 72 20 69 6e 66 | 20 76 61 72 2d 69 6e 66 |(var inf| var-inf|
|00001b20| 29 20 63 61 6c 63 2d 72 | 65 63 6f 72 64 2d 77 68 |) calc-r|ecord-wh|
|00001b30| 79 20 6e 75 6d 62 65 72 | 70 5d 20 34 34 29 29 0a |y number|p] 44)).|
|00001b40| 0a 28 6d 61 74 68 2d 64 | 65 66 63 61 63 68 65 20 |.(math-d|efcache |
|00001b50| 6d 61 74 68 2d 67 61 6d | 6d 61 2d 31 71 20 6e 69 |math-gam|ma-1q ni|
|00001b60| 6c 20 28 6d 61 74 68 2d | 77 69 74 68 2d 65 78 74 |l (math-|with-ext|
|00001b70| 72 61 2d 70 72 65 63 20 | 33 20 28 6d 61 74 68 2d |ra-prec |3 (math-|
|00001b80| 67 61 6d 6d 61 70 31 2d | 72 61 77 20 28 71 75 6f |gammap1-|raw (quo|
|00001b90| 74 65 20 28 66 6c 6f 61 | 74 20 2d 37 35 20 2d 32 |te (floa|t -75 -2|
|00001ba0| 29 29 29 29 29 0a 0a 28 | 6d 61 74 68 2d 64 65 66 |)))))..(|math-def|
|00001bb0| 63 61 63 68 65 20 6d 61 | 74 68 2d 67 61 6d 6d 61 |cache ma|th-gamma|
|00001bc0| 2d 33 71 20 6e 69 6c 20 | 28 6d 61 74 68 2d 77 69 |-3q nil |(math-wi|
|00001bd0| 74 68 2d 65 78 74 72 61 | 2d 70 72 65 63 20 33 20 |th-extra|-prec 3 |
|00001be0| 28 6d 61 74 68 2d 67 61 | 6d 6d 61 70 31 2d 72 61 |(math-ga|mmap1-ra|
|00001bf0| 77 20 28 71 75 6f 74 65 | 20 28 66 6c 6f 61 74 20 |w (quote| (float |
|00001c00| 2d 32 35 20 2d 32 29 29 | 29 29 29 0a 0a 28 64 65 |-25 -2))|)))..(de|
|00001c10| 66 75 6e 20 6d 61 74 68 | 2d 66 61 63 74 6f 72 69 |fun math|-factori|
|00001c20| 61 6c 2d 69 74 65 72 20 | 28 63 6f 75 6e 74 20 6e |al-iter |(count n|
|00001c30| 20 66 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | f) (byt|e-code "|
|00001c40| c4 08 c5 5c 22 c6 55 85 | 17 00 09 c7 3d 85 17 00 |...\".U.|....=...|
|00001c50| c8 c9 ca 08 53 5c 22 0a | 5c 22 88 0b cb 56 83 2b |....S\".|\"...V.+|
|00001c60| 00 cc 0b 53 08 54 cd 08 | 0a 5c 22 23 82 2c 00 0a |...S.T..|.\"#.,..|
|00001c70| 87 22 20 5b 6e 20 63 61 | 6c 63 2d 64 69 73 70 6c |." [n ca|lc-displ|
|00001c80| 61 79 2d 77 6f 72 6b 69 | 6e 67 2d 6d 65 73 73 61 |ay-worki|ng-messa|
|00001c90| 67 65 20 66 20 63 6f 75 | 6e 74 20 25 20 35 20 31 |ge f cou|nt % 5 1|
|00001ca0| 20 6c 6f 74 73 20 6d 61 | 74 68 2d 64 6f 2d 77 6f | lots ma|th-do-wo|
|00001cb0| 72 6b 69 6e 67 20 66 6f | 72 6d 61 74 20 22 66 61 |rking fo|rmat "fa|
|00001cc0| 63 74 6f 72 69 61 6c 28 | 25 64 29 22 20 30 20 6d |ctorial(|%d)" 0 m|
|00001cd0| 61 74 68 2d 66 61 63 74 | 6f 72 69 61 6c 2d 69 74 |ath-fact|orial-it|
|00001ce0| 65 72 20 6d 61 74 68 2d | 6d 75 6c 5d 20 39 29 29 |er math-|mul] 9))|
|00001cf0| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|00001d00| 63 2d 64 66 61 63 74 20 | 28 6e 29 20 28 62 79 74 |c-dfact |(n) (byt|
|00001d10| 65 2d 63 6f 64 65 20 22 | 08 3a 83 0c 00 08 40 c7 |e-code "|.:....@.|
|00001d20| 3d 82 0f 00 08 c8 57 83 | 41 00 c9 08 21 83 3b 00 |=.....W.|A...!.;.|
|00001d30| 08 ca 3d 83 5c 22 00 cb | 82 38 00 cc cd 08 ce 5c |..=.\"..|.8.....\|
|00001d40| 22 cf 3d 83 30 00 cb 82 | 31 00 ca d0 d1 d2 08 5c |".=.0...|1......\|
|00001d50| 22 21 5c 22 82 3e 00 d0 | 08 44 82 f0 00 08 3a 83 |"!\".>..|.D....:.|
|00001d60| 63 00 08 40 d3 3e 3f 85 | 60 00 08 40 d4 3d 83 5d |c..@.>?.|`..@.=.]|
|00001d70| 00 cb 08 38 c8 3d 82 60 | 00 d5 08 21 82 66 00 08 |...8.=.`|...!.f..|
|00001d80| c8 3d 83 6d 00 cb 82 f0 | 00 d6 08 21 83 81 00 d7 |.=.m....|...!....|
|00001d90| 08 d8 d9 08 d8 5c 22 5c | 5c cb d8 24 82 f0 00 da |.....\"\|\..$....|
|00001da0| 08 21 83 dd 00 db 08 21 | 19 dc 20 88 dd 09 21 83 |.!.....!|.. ...!.|
|00001db0| d6 00 de 09 df 5c 22 ca | 55 83 b2 00 e0 0a cb 5c |.....\".|U......\|
|00001dc0| 5c 1a d7 09 d8 d9 09 d8 | 5c 22 5c 5c e1 d8 24 29 |\.......|\"\\..$)|
|00001dd0| 21 82 d3 00 e2 09 21 1b | e3 e4 d8 0b 5c 22 e5 e6 |!.....!.|....\"..|
|00001de0| 0b 21 21 5c 22 1c e7 09 | 21 83 cc 00 0c 82 d2 00 |.!!\"...|!.......|
|00001df0| cc e5 08 21 0c 5c 22 2a | 82 d9 00 d0 0d 44 29 82 |...!.\"*|.....D).|
|00001e00| f0 00 e8 08 e9 5c 22 83 | e8 00 08 82 f0 00 ea dd |.....\".|........|
|00001e10| 08 5c 22 88 d0 08 44 87 | 22 20 5b 6e 20 74 65 6d |.\"...D.|" [n tem|
|00001e20| 70 20 63 61 6c 63 2d 69 | 6e 74 65 72 6e 61 6c 2d |p calc-i|nternal-|
|00001e30| 70 72 65 63 20 68 61 6c | 66 20 65 76 65 6e 20 6d |prec hal|f even m|
|00001e40| 61 78 20 74 20 62 69 67 | 6e 65 67 20 30 20 6d 61 |ax t big|neg 0 ma|
|00001e50| 74 68 2d 6f 64 64 70 20 | 2d 31 20 31 20 6d 61 74 |th-oddp |-1 1 mat|
|00001e60| 68 2d 64 69 76 20 6d 61 | 74 68 2d 6d 6f 64 20 34 |h-div ma|th-mod 4|
|00001e70| 20 33 20 63 61 6c 63 46 | 75 6e 63 2d 64 66 61 63 | 3 calcF|unc-dfac|
|00001e80| 74 20 6d 61 74 68 2d 73 | 75 62 20 2d 32 20 28 62 |t math-s|ub -2 (b|
|00001e90| 69 67 70 6f 73 20 62 69 | 67 6e 65 67 29 20 66 6c |igpos bi|gneg) fl|
|00001ea0| 6f 61 74 20 6d 61 74 68 | 2d 7a 65 72 6f 70 20 69 |oat math|-zerop i|
|00001eb0| 6e 74 65 67 65 72 70 20 | 6d 61 74 68 2d 64 6f 75 |ntegerp |math-dou|
|00001ec0| 62 6c 65 2d 66 61 63 74 | 6f 72 69 61 6c 2d 69 74 |ble-fact|orial-it|
|00001ed0| 65 72 20 32 20 25 20 6d | 61 74 68 2d 6d 65 73 73 |er 2 % m|ath-mess|
|00001ee0| 79 2d 69 6e 74 65 67 65 | 72 70 20 6d 61 74 68 2d |y-intege|rp math-|
|00001ef0| 74 72 75 6e 63 20 6d 61 | 74 68 2d 69 6e 65 78 61 |trunc ma|th-inexa|
|00001f00| 63 74 2d 72 65 73 75 6c | 74 20 6e 61 74 6e 75 6d |ct-resul|t natnum|
|00001f10| 70 20 6d 61 74 68 2d 63 | 6f 6d 70 61 72 65 20 32 |p math-c|ompare 2|
|00001f20| 30 30 20 6d 61 74 68 2d | 6e 6f 72 6d 61 6c 69 7a |00 math-|normaliz|
|00001f30| 65 20 28 66 6c 6f 61 74 | 20 31 20 30 29 20 6d 61 |e (float| 1 0) ma|
|00001f40| 74 68 2d 64 69 76 32 20 | 6d 61 74 68 2d 6d 75 6c |th-div2 |math-mul|
|00001f50| 20 6d 61 74 68 2d 70 6f | 77 20 63 61 6c 63 46 75 | math-po|w calcFu|
|00001f60| 6e 63 2d 66 61 63 74 20 | 6d 61 74 68 2d 66 6c 6f |nc-fact |math-flo|
|00001f70| 61 74 20 6d 61 74 68 2d | 65 76 65 6e 70 20 65 71 |at math-|evenp eq|
|00001f80| 75 61 6c 20 28 76 61 72 | 20 69 6e 66 20 76 61 72 |ual (var| inf var|
|00001f90| 2d 69 6e 66 29 20 63 61 | 6c 63 2d 72 65 63 6f 72 |-inf) ca|lc-recor|
|00001fa0| 64 2d 77 68 79 5d 20 32 | 39 29 29 0a 0a 28 64 65 |d-why] 2|9))..(de|
|00001fb0| 66 75 6e 20 6d 61 74 68 | 2d 64 6f 75 62 6c 65 2d |fun math|-double-|
|00001fc0| 66 61 63 74 6f 72 69 61 | 6c 2d 69 74 65 72 20 28 |factoria|l-iter (|
|00001fd0| 6d 61 78 20 6e 20 66 20 | 73 74 65 70 29 20 28 62 |max n f |step) (b|
|00001fe0| 79 74 65 2d 63 6f 64 65 | 20 22 c5 08 c6 5c 22 09 |yte-code| "...\".|
|00001ff0| 57 85 18 00 0a c7 3d 85 | 18 00 c8 c9 ca 08 09 5a |W.....=.|.......Z|
|00002000| 5c 22 0b 5c 22 88 08 0c | 58 83 2d 00 cb 0c 08 09 |\".\"...|X.-.....|
|00002010| 5c 5c cc 08 0b 5c 22 09 | 24 82 2e 00 0b 87 22 20 |\\...\".|$....." |
|00002020| 5b 6e 20 73 74 65 70 20 | 63 61 6c 63 2d 64 69 73 |[n step |calc-dis|
|00002030| 70 6c 61 79 2d 77 6f 72 | 6b 69 6e 67 2d 6d 65 73 |play-wor|king-mes|
|00002040| 73 61 67 65 20 66 20 6d | 61 78 20 25 20 31 32 20 |sage f m|ax % 12 |
|00002050| 6c 6f 74 73 20 6d 61 74 | 68 2d 64 6f 2d 77 6f 72 |lots mat|h-do-wor|
|00002060| 6b 69 6e 67 20 66 6f 72 | 6d 61 74 20 22 64 66 61 |king for|mat "dfa|
|00002070| 63 74 28 25 64 29 22 20 | 6d 61 74 68 2d 64 6f 75 |ct(%d)" |math-dou|
|00002080| 62 6c 65 2d 66 61 63 74 | 6f 72 69 61 6c 2d 69 74 |ble-fact|orial-it|
|00002090| 65 72 20 6d 61 74 68 2d | 6d 75 6c 5d 20 39 29 29 |er math-|mul] 9))|
|000020a0| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|000020b0| 63 2d 70 65 72 6d 20 28 | 6e 20 6d 29 20 28 62 79 |c-perm (|n m) (by|
|000020c0| 74 65 2d 63 6f 64 65 20 | 22 c6 08 21 85 15 00 c6 |te-code |"..!....|
|000020d0| 09 21 85 15 00 09 08 58 | 85 15 00 09 c7 59 83 23 |.!.....X|.....Y.#|
|000020e0| 00 c8 09 08 09 5a 54 c9 | 23 82 e5 00 ca 08 21 3f |.....ZT.|#.....!?|
|000020f0| 86 4c 00 cb 08 21 85 36 | 00 cc cd 08 5c 22 ce 55 |.L...!.6|....\".U|
|00002100| 86 4c 00 ca 09 21 3f 86 | 4c 00 cb 09 21 85 4c 00 |.L...!?.|L...!.L.|
|00002110| cc cd 09 5c 22 ce 55 83 | a3 00 cf 08 21 86 60 00 |...\".U.|....!.`.|
|00002120| d0 08 d1 5c 22 86 60 00 | d2 08 d3 5c 22 88 cf 09 |...\".`.|...\"...|
|00002130| 21 86 72 00 d0 09 d4 5c | 22 86 72 00 d2 09 d3 5c |!.r....\|".r....\|
|00002140| 22 88 ca 08 21 85 83 00 | d5 08 21 85 83 00 d2 08 |"...!...|..!.....|
|00002150| d6 5c 22 88 ca 09 21 85 | 94 00 d5 09 21 85 94 00 |.\"...!.|....!...|
|00002160| d2 09 d6 5c 22 88 d7 d8 | 08 21 d8 d9 08 09 5c 22 |...\"...|.!....\"|
|00002170| 21 5c 22 82 e5 00 da 08 | 21 da 09 21 1c 1b db 20 |!\".....|!..!... |
|00002180| 88 c6 0b 21 86 b8 00 d2 | 0b dc 5c 22 88 c6 0c 21 |...!....|..\"...!|
|00002190| 86 c3 00 d2 0c dc 5c 22 | 88 0c 0b 58 85 cd 00 0c |......\"|...X....|
|000021a0| c7 59 86 d4 00 d2 0c d6 | 5c 22 88 dd 0d c9 5c 5c |.Y......|\"....\\|
|000021b0| 1d c8 0c 0b 0c 5a 54 de | 23 29 21 2a 87 22 20 5b |.....ZT.|#)!*." [|
|000021c0| 6e 20 6d 20 74 20 74 6e | 20 74 6d 20 63 61 6c 63 |n m t tn| tm calc|
|000021d0| 2d 69 6e 74 65 72 6e 61 | 6c 2d 70 72 65 63 20 69 |-interna|l-prec i|
|000021e0| 6e 74 65 67 65 72 70 20 | 30 20 6d 61 74 68 2d 66 |ntegerp |0 math-f|
|000021f0| 61 63 74 6f 72 69 61 6c | 2d 69 74 65 72 20 31 20 |actorial|-iter 1 |
|00002200| 6d 61 74 68 2d 6e 75 6d | 2d 69 6e 74 65 67 65 72 |math-num|-integer|
|00002210| 70 20 6d 61 74 68 2d 6d | 65 73 73 79 2d 69 6e 74 |p math-m|essy-int|
|00002220| 65 67 65 72 70 20 6d 61 | 74 68 2d 63 6f 6d 70 61 |egerp ma|th-compa|
|00002230| 72 65 20 31 30 30 20 2d | 31 20 6d 61 74 68 2d 72 |re 100 -|1 math-r|
|00002240| 65 61 6c 70 20 65 71 75 | 61 6c 20 28 76 61 72 20 |ealp equ|al (var |
|00002250| 69 6e 66 20 76 61 72 2d | 69 6e 66 29 20 6d 61 74 |inf var-|inf) mat|
|00002260| 68 2d 72 65 6a 65 63 74 | 2d 61 72 67 20 72 65 61 |h-reject|-arg rea|
|00002270| 6c 70 20 28 76 61 72 20 | 69 6e 66 20 76 61 72 2d |lp (var |inf var-|
|00002280| 69 6e 66 29 20 6d 61 74 | 68 2d 6e 65 67 70 20 72 |inf) mat|h-negp r|
|00002290| 61 6e 67 65 20 6d 61 74 | 68 2d 64 69 76 20 63 61 |ange mat|h-div ca|
|000022a0| 6c 63 46 75 6e 63 2d 66 | 61 63 74 20 6d 61 74 68 |lcFunc-f|act math|
|000022b0| 2d 73 75 62 20 6d 61 74 | 68 2d 74 72 75 6e 63 20 |-sub mat|h-trunc |
|000022c0| 6d 61 74 68 2d 69 6e 65 | 78 61 63 74 2d 72 65 73 |math-ine|xact-res|
|000022d0| 75 6c 74 20 66 69 78 6e | 75 6d 70 20 6d 61 74 68 |ult fixn|ump math|
|000022e0| 2d 6e 6f 72 6d 61 6c 69 | 7a 65 20 28 66 6c 6f 61 |-normali|ze (floa|
|000022f0| 74 20 31 20 30 29 5d 20 | 33 38 29 29 0a 0a 28 64 |t 1 0)] |38))..(d|
|00002300| 65 66 75 6e 20 63 61 6c | 63 46 75 6e 63 2d 63 68 |efun cal|cFunc-ch|
|00002310| 6f 6f 73 65 20 28 6e 20 | 6d 29 20 28 62 79 74 65 |oose (n |m) (byte|
|00002320| 2d 63 6f 64 65 20 22 c6 | 08 21 85 15 00 c6 09 21 |-code ".|.!.....!|
|00002330| 85 15 00 09 08 58 85 15 | 00 09 c7 59 83 35 00 09 |.....X..|...Y.5..|
|00002340| c8 08 c9 5c 22 56 83 2c | 00 ca 08 09 5a 08 cb cb |...\"V.,|....Z...|
|00002350| 24 82 32 00 ca 09 08 cb | cb 24 82 00 01 cc 08 21 |$.2.....|.$.....!|
|00002360| 3f 83 43 00 cd 08 ce 5c | 22 82 00 01 cc 09 21 3f |?.C....\|".....!?|
|00002370| 83 51 00 cd 09 ce 5c 22 | 82 00 01 cf 09 21 3f 83 |.Q....\"|.....!?.|
|00002380| 80 00 cf 08 21 85 61 00 | d0 08 21 83 6b 00 d1 08 |....!.a.|..!.k...|
|00002390| 09 45 82 7d 00 d2 d3 d4 | 08 21 21 d5 d3 09 21 d3 |.E.}....|.!!...!.|
|000023a0| d6 08 09 5c 22 21 5c 22 | 5c 22 82 00 01 d0 09 21 |...\"!\"|\".....!|
|000023b0| 83 8a 00 c7 82 00 01 d0 | 08 21 83 ae 00 d1 d7 d7 |........|.!......|
|000023c0| 08 09 5c 22 d8 5c 22 09 | 5c 22 1a d9 da 09 21 21 |..\".\".|\"....!!|
|000023d0| 83 a7 00 0a 82 aa 00 db | 0a 21 29 82 00 01 cf 08 |........|.!).....|
|000023e0| 21 85 ba 00 dc 08 09 5c | 22 d8 55 83 c1 00 c7 82 |!......\|".U.....|
|000023f0| 00 01 dd 20 88 da 09 21 | 1c c6 0c 21 86 d2 00 cd |... ...!|...!....|
|00002400| 0c de 5c 22 88 0c df 56 | 83 f2 00 d2 d3 d4 08 21 |..\"...V|.......!|
|00002410| 21 d5 d3 d4 09 21 21 d3 | d4 d6 08 09 5c 22 21 21 |!....!!.|....\"!!|
|00002420| 5c 22 5c 22 82 ff 00 e0 | 0d cb 5c 5c 1d e1 0c 08 |\"\"....|..\\....|
|00002430| cb cb 24 29 21 29 87 22 | 20 5b 6e 20 6d 20 76 61 |..$)!)."| [n m va|
|00002440| 6c 20 74 20 74 6d 20 63 | 61 6c 63 2d 69 6e 74 65 |l t tm c|alc-inte|
|00002450| 72 6e 61 6c 2d 70 72 65 | 63 20 69 6e 74 65 67 65 |rnal-pre|c intege|
|00002460| 72 70 20 30 20 2f 20 32 | 20 6d 61 74 68 2d 63 68 |rp 0 / 2| math-ch|
|00002470| 6f 6f 73 65 2d 69 74 65 | 72 20 31 20 6d 61 74 68 |oose-ite|r 1 math|
|00002480| 2d 72 65 61 6c 70 20 6d | 61 74 68 2d 72 65 6a 65 |-realp m|ath-reje|
|00002490| 63 74 2d 61 72 67 20 72 | 65 61 6c 70 20 6d 61 74 |ct-arg r|ealp mat|
|000024a0| 68 2d 6e 75 6d 2d 69 6e | 74 65 67 65 72 70 20 6d |h-num-in|tegerp m|
|000024b0| 61 74 68 2d 6e 65 67 70 | 20 63 61 6c 63 46 75 6e |ath-negp| calcFun|
|000024c0| 63 2d 63 68 6f 6f 73 65 | 20 6d 61 74 68 2d 64 69 |c-choose| math-di|
|000024d0| 76 20 63 61 6c 63 46 75 | 6e 63 2d 66 61 63 74 20 |v calcFu|nc-fact |
|000024e0| 6d 61 74 68 2d 66 6c 6f | 61 74 20 6d 61 74 68 2d |math-flo|at math-|
|000024f0| 6d 75 6c 20 6d 61 74 68 | 2d 73 75 62 20 6d 61 74 |mul math|-sub mat|
|00002500| 68 2d 61 64 64 20 2d 31 | 20 6d 61 74 68 2d 65 76 |h-add -1| math-ev|
|00002510| 65 6e 70 20 6d 61 74 68 | 2d 74 72 75 6e 63 20 6d |enp math|-trunc m|
|00002520| 61 74 68 2d 6e 65 67 20 | 6d 61 74 68 2d 63 6f 6d |ath-neg |math-com|
|00002530| 70 61 72 65 20 6d 61 74 | 68 2d 69 6e 65 78 61 63 |pare mat|h-inexac|
|00002540| 74 2d 72 65 73 75 6c 74 | 20 66 69 78 6e 75 6d 70 |t-result| fixnump|
|00002550| 20 31 30 30 20 6d 61 74 | 68 2d 6e 6f 72 6d 61 6c | 100 mat|h-normal|
|00002560| 69 7a 65 20 6d 61 74 68 | 2d 63 68 6f 6f 73 65 2d |ize math|-choose-|
|00002570| 66 6c 6f 61 74 2d 69 74 | 65 72 5d 20 34 38 29 29 |float-it|er] 48))|
|00002580| 0a 0a 28 64 65 66 75 6e | 20 6d 61 74 68 2d 63 68 |..(defun| math-ch|
|00002590| 6f 6f 73 65 2d 69 74 65 | 72 20 28 6d 20 6e 20 69 |oose-ite|r (m n i|
|000025a0| 20 63 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | c) (byt|e-code "|
|000025b0| c5 08 c6 5c 22 c7 55 85 | 0c 00 08 c6 56 85 1d 00 |...\".U.|....V...|
|000025c0| 09 c8 3d 85 1d 00 c9 ca | cb 08 53 5c 22 0a 5c 22 |..=.....|..S\".\"|
|000025d0| 88 08 0b 58 83 35 00 cc | 0b 0c 53 08 54 cd ce 0a |...X.5..|..S.T...|
|000025e0| 0c 5c 22 08 5c 22 24 82 | 36 00 0a 87 22 20 5b 69 |.\".\"$.|6..." [i|
|000025f0| 20 63 61 6c 63 2d 64 69 | 73 70 6c 61 79 2d 77 6f | calc-di|splay-wo|
|00002600| 72 6b 69 6e 67 2d 6d 65 | 73 73 61 67 65 20 63 20 |rking-me|ssage c |
|00002610| 6d 20 6e 20 25 20 35 20 | 31 20 6c 6f 74 73 20 6d |m n % 5 |1 lots m|
|00002620| 61 74 68 2d 64 6f 2d 77 | 6f 72 6b 69 6e 67 20 66 |ath-do-w|orking f|
|00002630| 6f 72 6d 61 74 20 22 63 | 68 6f 6f 73 65 28 25 64 |ormat "c|hoose(%d|
|00002640| 29 22 20 6d 61 74 68 2d | 63 68 6f 6f 73 65 2d 69 |)" math-|choose-i|
|00002650| 74 65 72 20 6d 61 74 68 | 2d 71 75 6f 74 69 65 6e |ter math|-quotien|
|00002660| 74 20 6d 61 74 68 2d 6d | 75 6c 5d 20 31 31 29 29 |t math-m|ul] 11))|
|00002670| 0a 0a 28 64 65 66 75 6e | 20 6d 61 74 68 2d 63 68 |..(defun| math-ch|
|00002680| 6f 6f 73 65 2d 66 6c 6f | 61 74 2d 69 74 65 72 20 |oose-flo|at-iter |
|00002690| 28 63 6f 75 6e 74 20 6e | 20 69 20 63 29 20 28 62 |(count n| i c) (b|
|000026a0| 79 74 65 2d 63 6f 64 65 | 20 22 c5 08 c6 5c 22 c7 |yte-code| "...\".|
|000026b0| 55 85 17 00 09 c8 3d 85 | 17 00 c9 ca cb 08 53 5c |U.....=.|......S\|
|000026c0| 22 0a 5c 22 88 0b cc 56 | 83 32 00 cd 0b 53 ce 0c |".\"...V|.2...S..|
|000026d0| c7 5c 22 08 54 cf d0 0a | 0c 5c 22 08 5c 22 24 82 |.\".T...|.\".\"$.|
|000026e0| 33 00 0a 87 22 20 5b 69 | 20 63 61 6c 63 2d 64 69 |3..." [i| calc-di|
|000026f0| 73 70 6c 61 79 2d 77 6f | 72 6b 69 6e 67 2d 6d 65 |splay-wo|rking-me|
|00002700| 73 73 61 67 65 20 63 20 | 63 6f 75 6e 74 20 6e 20 |ssage c |count n |
|00002710| 25 20 35 20 31 20 6c 6f | 74 73 20 6d 61 74 68 2d |% 5 1 lo|ts math-|
|00002720| 64 6f 2d 77 6f 72 6b 69 | 6e 67 20 66 6f 72 6d 61 |do-worki|ng forma|
|00002730| 74 20 22 63 68 6f 6f 73 | 65 28 25 64 29 22 20 30 |t "choos|e(%d)" 0|
|00002740| 20 6d 61 74 68 2d 63 68 | 6f 6f 73 65 2d 66 6c 6f | math-ch|oose-flo|
|00002750| 61 74 2d 69 74 65 72 20 | 6d 61 74 68 2d 73 75 62 |at-iter |math-sub|
|00002760| 20 6d 61 74 68 2d 64 69 | 76 20 6d 61 74 68 2d 6d | math-di|v math-m|
|00002770| 75 6c 5d 20 31 32 29 29 | 0a 0a 28 64 65 66 75 6e |ul] 12))|..(defun|
|00002780| 20 63 61 6c 63 46 75 6e | 63 2d 73 74 69 72 31 20 | calcFun|c-stir1 |
|00002790| 28 6e 20 6d 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |(n m) (b|yte-code|
|000027a0| 20 22 c2 08 09 c3 23 87 | 22 20 5b 6e 20 6d 20 6d | "....#.|" [n m m|
|000027b0| 61 74 68 2d 73 74 69 72 | 6c 69 6e 67 2d 6e 75 6d |ath-stir|ling-num|
|000027c0| 62 65 72 20 31 5d 20 34 | 29 29 0a 0a 28 64 65 66 |ber 1] 4|))..(def|
|000027d0| 75 6e 20 63 61 6c 63 46 | 75 6e 63 2d 73 74 69 72 |un calcF|unc-stir|
|000027e0| 32 20 28 6e 20 6d 29 20 | 28 62 79 74 65 2d 63 6f |2 (n m) |(byte-co|
|000027f0| 64 65 20 22 c2 08 09 c3 | 23 87 22 20 5b 6e 20 6d |de "....|#." [n m|
|00002800| 20 6d 61 74 68 2d 73 74 | 69 72 6c 69 6e 67 2d 6e | math-st|irling-n|
|00002810| 75 6d 62 65 72 20 30 5d | 20 34 29 29 0a 0a 28 64 |umber 0]| 4))..(d|
|00002820| 65 66 75 6e 20 6d 61 74 | 68 2d 73 74 69 72 6c 69 |efun mat|h-stirli|
|00002830| 6e 67 2d 6e 75 6d 62 65 | 72 20 28 6e 20 6d 20 6b |ng-numbe|r (n m k|
|00002840| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c8 08 |) (byte-|code "..|
|00002850| 21 86 0a 00 c9 08 ca 5c | 22 88 c8 09 21 86 15 00 |!......\|"...!...|
|00002860| c9 09 ca 5c 22 88 08 3a | 85 20 00 cb 08 21 89 10 |...\"..:|. ...!..|
|00002870| 88 cc 08 21 86 2b 00 c9 | 08 cd 5c 22 88 09 3a 85 |...!.+..|..\"..:.|
|00002880| 36 00 cb 09 21 89 11 88 | cc 09 21 86 41 00 c9 09 |6...!...|..!.A...|
|00002890| cd 5c 22 88 08 09 57 83 | 4c 00 ce 82 ab 00 0b 0c |.\"...W.|L.......|
|000028a0| 48 1a 0a 47 08 58 85 98 | 00 0a 47 53 c7 1e 06 1d |H..G.X..|..GS....|
|000028b0| cf 0a d0 0a 47 c7 5c 22 | 5c 22 89 12 88 0b 0c 0a |....G.\"|\"......|
|000028c0| 49 88 0d 54 89 15 0a 47 | 57 85 93 00 0a 0d d0 0d |I..T...G|W.......|
|000028d0| 54 c7 5c 22 89 16 06 49 | 88 0e 06 ce ce 49 88 0e |T.\"...I|.....I..|
|000028e0| 06 0d d1 49 88 82 6e 00 | 2a 88 82 50 00 88 0c d1 |...I..n.|*..P....|
|000028f0| 55 83 a6 00 d2 08 09 5c | 22 82 aa 00 d3 08 09 5c |U......\|"......\|
|00002900| 22 29 87 22 20 5b 6e 20 | 6d 20 63 61 63 68 65 20 |")." [n |m cache |
|00002910| 6d 61 74 68 2d 73 74 69 | 72 6c 69 6e 67 2d 63 61 |math-sti|rling-ca|
|00002920| 63 68 65 20 6b 20 69 20 | 72 6f 77 20 6e 69 6c 20 |che k i |row nil |
|00002930| 6d 61 74 68 2d 6e 75 6d | 2d 6e 61 74 6e 75 6d 70 |math-num|-natnump|
|00002940| 20 6d 61 74 68 2d 72 65 | 6a 65 63 74 2d 61 72 67 | math-re|ject-arg|
|00002950| 20 6e 61 74 6e 75 6d 70 | 20 6d 61 74 68 2d 74 72 | natnump| math-tr|
|00002960| 75 6e 63 20 69 6e 74 65 | 67 65 72 70 20 66 69 78 |unc inte|gerp fix|
|00002970| 6e 75 6d 70 20 30 20 76 | 63 6f 6e 63 61 74 20 6d |nump 0 v|concat m|
|00002980| 61 6b 65 2d 76 65 63 74 | 6f 72 20 31 20 6d 61 74 |ake-vect|or 1 mat|
|00002990| 68 2d 73 74 69 72 6c 69 | 6e 67 2d 31 20 6d 61 74 |h-stirli|ng-1 mat|
|000029a0| 68 2d 73 74 69 72 6c 69 | 6e 67 2d 32 5d 20 31 39 |h-stirli|ng-2] 19|
|000029b0| 29 29 0a 0a 28 73 65 74 | 71 20 6d 61 74 68 2d 73 |))..(set|q math-s|
|000029c0| 74 69 72 6c 69 6e 67 2d | 63 61 63 68 65 20 28 76 |tirling-|cache (v|
|000029d0| 65 63 74 6f 72 20 5b 5b | 31 5d 5d 20 5b 5b 31 5d |ector [[|1]] [[1]|
|000029e0| 5d 29 29 0a 0a 28 64 65 | 66 75 6e 20 6d 61 74 68 |]))..(de|fun math|
|000029f0| 2d 73 74 69 72 6c 69 6e | 67 2d 31 20 28 6e 20 6d |-stirlin|g-1 (n m|
|00002a00| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 09 |) (byte-|code "..|
|00002a10| 48 0a 48 86 1f 00 08 09 | 48 0a c3 c4 09 53 0a 53 |H.H.....|H....S.S|
|00002a20| 5c 22 c5 c6 09 5a c4 09 | 53 0a 5c 22 5c 22 5c 22 |\"...Z..|S.\"\"\"|
|00002a30| 49 87 22 20 5b 63 61 63 | 68 65 20 6e 20 6d 20 6d |I." [cac|he n m m|
|00002a40| 61 74 68 2d 61 64 64 20 | 6d 61 74 68 2d 73 74 69 |ath-add |math-sti|
|00002a50| 72 6c 69 6e 67 2d 31 20 | 6d 61 74 68 2d 6d 75 6c |rling-1 |math-mul|
|00002a60| 20 31 5d 20 31 30 29 29 | 0a 0a 28 64 65 66 75 6e | 1] 10))|..(defun|
|00002a70| 20 6d 61 74 68 2d 73 74 | 69 72 6c 69 6e 67 2d 32 | math-st|irling-2|
|00002a80| 20 28 6e 20 6d 29 20 28 | 62 79 74 65 2d 63 6f 64 | (n m) (|byte-cod|
|00002a90| 65 20 22 08 09 48 0a 48 | 86 1d 00 08 09 48 0a c3 |e "..H.H|.....H..|
|00002aa0| c4 09 53 0a 53 5c 22 c5 | 0a c4 09 53 0a 5c 22 5c |..S.S\".|...S.\"\|
|00002ab0| 22 5c 22 49 87 22 20 5b | 63 61 63 68 65 20 6e 20 |"\"I." [|cache n |
|00002ac0| 6d 20 6d 61 74 68 2d 61 | 64 64 20 6d 61 74 68 2d |m math-a|dd math-|
|00002ad0| 73 74 69 72 6c 69 6e 67 | 2d 32 20 6d 61 74 68 2d |stirling|-2 math-|
|00002ae0| 6d 75 6c 5d 20 31 30 29 | 29 0a 0a 28 64 65 66 75 |mul] 10)|)..(defu|
|00002af0| 6e 20 6d 61 74 68 2d 69 | 6e 69 74 2d 72 61 6e 64 |n math-i|nit-rand|
|00002b00| 6f 6d 2d 62 61 73 65 20 | 6e 69 6c 20 28 62 79 74 |om-base |nil (byt|
|00002b10| 65 2d 63 6f 64 65 20 22 | d0 c0 21 85 07 00 08 83 |e-code "|..!.....|
|00002b20| a3 00 d1 08 21 d2 3d 83 | 16 00 c1 82 a0 00 08 3a |....!.=.|.......:|
|00002b30| 3f 86 20 00 08 40 d3 3e | 83 75 00 d4 d5 08 5c 22 |?. ..@.>|.u....\"|
|00002b40| 1a d6 0a d7 5c 22 54 1b | d6 d8 0a d9 5c 22 da 5c |....\"T.|....\".\|
|00002b50| 22 54 1c db 1d d2 dc dd | 0b 5c 22 42 89 16 06 88 |"T......|.\"B....|
|00002b60| 0d 54 89 15 de 58 85 71 | 00 df e0 0d e1 5c 22 dd |.T...X.q|.....\".|
|00002b70| 5c 22 1e 07 e2 0e 07 0e | 06 5c 22 1e 08 e3 0e 08 |\"......|.\".....|
|00002b80| 0c 5c 22 88 0b 0c 5a 14 | 0e 08 40 89 13 2a 88 82 |.\"...Z.|..@..*..|
|00002b90| 43 00 2c 82 79 00 e4 08 | e5 5c 22 88 d2 08 44 10 |C.,.y...|.\"...D.|
|00002ba0| 0e 06 16 09 c1 16 0a e2 | e6 0e 06 5c 22 89 16 0b |........|...\"...|
|00002bb0| 88 e7 1d 0d 53 89 15 db | 56 85 9f 00 e8 20 88 82 |....S...|V.... ..|
|00002bc0| 90 00 29 82 d3 00 e9 cc | 21 88 c1 10 c1 16 0a db |..).....|!.......|
|00002bd0| 15 ea 89 16 0d 88 0d 54 | 89 15 eb 57 85 d3 00 ec |.......T|...W....|
|00002be0| ed e9 20 21 0e 0d 5c 22 | ee 56 85 cf 00 0e 0d 53 |.. !..\"|.V.....S|
|00002bf0| 89 16 0d 88 82 b3 00 88 | 08 16 0e c1 89 16 0f 87 |........|........|
|00002c00| 22 20 5b 76 61 72 2d 52 | 61 6e 64 53 65 65 64 20 |" [var-R|andSeed |
|00002c10| 6e 69 6c 20 73 65 65 64 | 20 6d 6a 20 6d 6b 20 69 |nil seed| mj mk i|
|00002c20| 20 6d 61 74 68 2d 72 61 | 6e 64 6f 6d 2d 74 61 62 | math-ra|ndom-tab|
|00002c30| 6c 65 20 69 69 20 70 20 | 6d 61 74 68 2d 72 61 6e |le ii p |math-ran|
|00002c40| 64 6f 6d 2d 70 74 72 31 | 20 6d 61 74 68 2d 72 61 |dom-ptr1| math-ra|
|00002c50| 6e 64 6f 6d 2d 63 61 63 | 68 65 20 6d 61 74 68 2d |ndom-cac|he math-|
|00002c60| 72 61 6e 64 6f 6d 2d 70 | 74 72 32 20 74 20 6d 61 |random-p|tr2 t ma|
|00002c70| 74 68 2d 72 61 6e 64 6f | 6d 2d 73 68 69 66 74 20 |th-rando|m-shift |
|00002c80| 6d 61 74 68 2d 6c 61 73 | 74 2d 52 61 6e 64 53 65 |math-las|t-RandSe|
|00002c90| 65 64 20 6d 61 74 68 2d | 67 61 75 73 73 69 61 6e |ed math-|gaussian|
|00002ca0| 2d 63 61 63 68 65 20 62 | 6f 75 6e 64 70 20 63 61 |-cache b|oundp ca|
|00002cb0| 72 2d 73 61 66 65 20 76 | 65 63 20 28 62 69 67 70 |r-safe v|ec (bigp|
|00002cc0| 6f 73 20 62 69 67 6e 65 | 67 29 20 6d 61 74 68 2d |os bigne|g) math-|
|00002cd0| 73 75 62 20 31 36 31 38 | 30 33 20 6d 61 74 68 2d |sub 1618|03 math-|
|00002ce0| 6d 6f 64 20 28 62 69 67 | 70 6f 73 20 30 20 30 20 |mod (big|pos 0 0 |
|00002cf0| 31 29 20 6d 61 74 68 2d | 71 75 6f 74 69 65 6e 74 |1) math-|quotient|
|00002d00| 20 28 62 69 67 70 6f 73 | 20 30 20 30 20 31 29 20 | (bigpos| 0 0 1) |
|00002d10| 28 62 69 67 70 6f 73 20 | 30 20 30 20 31 29 20 30 |(bigpos |0 0 1) 0|
|00002d20| 20 6d 61 6b 65 2d 6c 69 | 73 74 20 35 35 20 35 34 | make-li|st 55 54|
|00002d30| 20 25 20 2a 20 32 31 20 | 6e 74 68 63 64 72 20 73 | % * 21 |nthcdr s|
|00002d40| 65 74 63 61 72 20 6d 61 | 74 68 2d 72 65 6a 65 63 |etcar ma|th-rejec|
|00002d50| 74 2d 61 72 67 20 22 2a | 52 61 6e 64 53 65 65 64 |t-arg "*|RandSeed|
|00002d60| 20 6d 75 73 74 20 62 65 | 20 61 6e 20 69 6e 74 65 | must be| an inte|
|00002d70| 67 65 72 22 20 33 31 20 | 32 30 30 20 6d 61 74 68 |ger" 31 |200 math|
|00002d80| 2d 72 61 6e 64 6f 6d 2d | 62 61 73 65 20 72 61 6e |-random-|base ran|
|00002d90| 64 6f 6d 20 2d 34 20 33 | 30 20 6c 73 68 20 6d 61 |dom -4 3|0 lsh ma|
|00002da0| 74 68 2d 61 62 73 20 34 | 30 39 35 5d 20 32 31 29 |th-abs 4|095] 21)|
|00002db0| 29 0a 0a 28 64 65 66 75 | 6e 20 6d 61 74 68 2d 72 |)..(defu|n math-r|
|00002dc0| 61 6e 64 6f 6d 2d 62 61 | 73 65 20 6e 69 6c 20 28 |andom-ba|se nil (|
|00002dd0| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 83 2a 00 09 |byte-cod|e "..*..|
|00002de0| 41 86 0b 00 0a 41 11 0b | 41 86 13 00 0a 41 89 13 |A....A..|A....A..|
|00002df0| 88 c5 c6 c7 09 c5 09 40 | 0b 40 5a c8 5c 22 5c 22 |.......@|.@Z.\"\"|
|00002e00| c9 5c 22 ca 5c 22 82 32 | 00 c5 c6 cb 20 0c 5c 22 |.\".\".2|.... .\"|
|00002e10| ca 5c 22 87 22 20 5b 76 | 61 72 2d 52 61 6e 64 53 |.\"." [v|ar-RandS|
|00002e20| 65 65 64 20 6d 61 74 68 | 2d 72 61 6e 64 6f 6d 2d |eed math|-random-|
|00002e30| 70 74 72 31 20 6d 61 74 | 68 2d 72 61 6e 64 6f 6d |ptr1 mat|h-random|
|00002e40| 2d 74 61 62 6c 65 20 6d | 61 74 68 2d 72 61 6e 64 |-table m|ath-rand|
|00002e50| 6f 6d 2d 70 74 72 32 20 | 6d 61 74 68 2d 72 61 6e |om-ptr2 |math-ran|
|00002e60| 64 6f 6d 2d 73 68 69 66 | 74 20 6c 6f 67 61 6e 64 |dom-shif|t logand|
|00002e70| 20 6c 73 68 20 73 65 74 | 63 61 72 20 35 32 34 32 | lsh set|car 5242|
|00002e80| 38 37 20 2d 36 20 31 30 | 32 33 20 72 61 6e 64 6f |87 -6 10|23 rando|
|00002e90| 6d 5d 20 39 29 29 0a 0a | 28 73 65 74 71 20 6d 61 |m] 9))..|(setq ma|
|00002ea0| 74 68 2d 72 61 6e 64 6f | 6d 2d 74 61 62 6c 65 20 |th-rando|m-table |
|00002eb0| 6e 69 6c 29 0a 0a 28 73 | 65 74 71 20 6d 61 74 68 |nil)..(s|etq math|
|00002ec0| 2d 6c 61 73 74 2d 52 61 | 6e 64 53 65 65 64 20 6e |-last-Ra|ndSeed n|
|00002ed0| 69 6c 29 0a 0a 28 73 65 | 74 71 20 6d 61 74 68 2d |il)..(se|tq math-|
|00002ee0| 72 61 6e 64 6f 6d 2d 70 | 74 72 31 20 6e 69 6c 29 |random-p|tr1 nil)|
|00002ef0| 0a 0a 28 73 65 74 71 20 | 6d 61 74 68 2d 72 61 6e |..(setq |math-ran|
|00002f00| 64 6f 6d 2d 70 74 72 32 | 20 6e 69 6c 29 0a 0a 28 |dom-ptr2| nil)..(|
|00002f10| 73 65 74 71 20 6d 61 74 | 68 2d 72 61 6e 64 6f 6d |setq mat|h-random|
|00002f20| 2d 73 68 69 66 74 20 6e | 69 6c 29 0a 0a 28 64 65 |-shift n|il)..(de|
|00002f30| 66 75 6e 20 6d 61 74 68 | 2d 72 61 6e 64 6f 6d 2d |fun math|-random-|
|00002f40| 64 69 67 69 74 20 6e 69 | 6c 20 28 62 79 74 65 2d |digit ni|l (byte-|
|00002f50| 63 6f 64 65 20 22 c5 18 | c6 c1 21 85 0b 00 09 0a |code "..|..!.....|
|00002f60| 3d 86 10 00 c7 20 88 0b | 86 33 00 c8 20 14 c9 ca |=.... ..|.3.. ...|
|00002f70| c5 5c 22 13 cb 89 10 88 | 08 54 89 10 ca 57 85 33 |.\".....|.T...W.3|
|00002f80| 00 0b 08 c8 20 49 88 82 | 21 00 88 cc 0c cd 5c 22 |.... I..|!.....\"|
|00002f90| 10 0b 08 48 89 14 88 0b | 08 c8 20 49 88 0c ce 59 |...H....|.. I...Y|
|00002fa0| 85 50 00 c5 88 82 34 00 | 88 0c 29 87 22 20 5b 69 |.P....4.|..)." [i|
|00002fb0| 20 76 61 72 2d 52 61 6e | 64 53 65 65 64 20 6d 61 | var-Ran|dSeed ma|
|00002fc0| 74 68 2d 6c 61 73 74 2d | 52 61 6e 64 53 65 65 64 |th-last-|RandSeed|
|00002fd0| 20 6d 61 74 68 2d 72 61 | 6e 64 6f 6d 2d 63 61 63 | math-ra|ndom-cac|
|00002fe0| 68 65 20 6d 61 74 68 2d | 72 61 6e 64 6f 6d 2d 6c |he math-|random-l|
|00002ff0| 61 73 74 20 6e 69 6c 20 | 62 6f 75 6e 64 70 20 6d |ast nil |boundp m|
|00003000| 61 74 68 2d 69 6e 69 74 | 2d 72 61 6e 64 6f 6d 2d |ath-init|-random-|
|00003010| 62 61 73 65 20 6d 61 74 | 68 2d 72 61 6e 64 6f 6d |base mat|h-random|
|00003020| 2d 62 61 73 65 20 6d 61 | 6b 65 2d 76 65 63 74 6f |-base ma|ke-vecto|
|00003030| 72 20 31 33 20 2d 31 20 | 2f 20 37 39 20 31 30 30 |r 13 -1 |/ 79 100|
|00003040| 30 5d 20 31 30 29 29 0a | 0a 28 73 65 74 71 20 6d |0] 10)).|.(setq m|
|00003050| 61 74 68 2d 72 61 6e 64 | 6f 6d 2d 63 61 63 68 65 |ath-rand|om-cache|
|00003060| 20 6e 69 6c 29 0a 0a 28 | 64 65 66 75 6e 20 6d 61 | nil)..(|defun ma|
|00003070| 74 68 2d 72 61 6e 64 6f | 6d 2d 64 69 67 69 74 73 |th-rando|m-digits|
|00003080| 20 28 6e 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | (n) (by|te-code |
|00003090| 22 08 c6 58 83 16 00 c7 | c8 c9 20 ca 5c 22 c9 20 |"..X....|.. .\". |
|000030a0| 5c 5c c6 08 5a 5c 22 82 | 43 00 cb cc 08 5a cd 5c |\\..Z\".|C....Z.\|
|000030b0| 22 1a ce 08 0a 5c 5c cd | 5c 22 1b c5 1c 0b cf 56 |"....\\.|\".....V|
|000030c0| 85 39 00 c9 20 0c 42 14 | 0b 53 89 13 88 82 26 00 |.9.. .B.|.S....&.|
|000030d0| 88 d0 c7 d1 0c 42 0a 5c | 22 21 2b 87 22 20 5b 6e |.....B.\|"!+." [n|
|000030e0| 20 74 20 73 6c 6f 70 20 | 69 20 64 69 67 73 20 6e | t slop |i digs n|
|000030f0| 69 6c 20 36 20 6d 61 74 | 68 2d 73 63 61 6c 65 2d |il 6 mat|h-scale-|
|00003100| 72 69 67 68 74 20 2a 20 | 6d 61 74 68 2d 72 61 6e |right * |math-ran|
|00003110| 64 6f 6d 2d 64 69 67 69 | 74 20 31 30 30 30 20 25 |dom-digi|t 1000 %|
|00003120| 20 39 30 30 30 30 33 20 | 33 20 2f 20 30 20 6d 61 | 900003 |3 / 0 ma|
|00003130| 74 68 2d 6e 6f 72 6d 61 | 6c 69 7a 65 20 62 69 67 |th-norma|lize big|
|00003140| 70 6f 73 5d 20 31 31 29 | 29 0a 0a 28 64 65 66 75 |pos] 11)|)..(defu|
|00003150| 6e 20 6d 61 74 68 2d 72 | 61 6e 64 6f 6d 2d 66 6c |n math-r|andom-fl|
|00003160| 6f 61 74 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |oat nil |(byte-co|
|00003170| 64 65 20 22 c1 c2 08 21 | 08 5b 5c 22 87 22 20 5b |de "...!|.[\"." [|
|00003180| 63 61 6c 63 2d 69 6e 74 | 65 72 6e 61 6c 2d 70 72 |calc-int|ernal-pr|
|00003190| 65 63 20 6d 61 74 68 2d | 6d 61 6b 65 2d 66 6c 6f |ec math-|make-flo|
|000031a0| 61 74 20 6d 61 74 68 2d | 72 61 6e 64 6f 6d 2d 64 |at math-|random-d|
|000031b0| 69 67 69 74 73 5d 20 34 | 29 29 0a 0a 28 64 65 66 |igits] 4|))..(def|
|000031c0| 75 6e 20 6d 61 74 68 2d | 67 61 75 73 73 69 61 6e |un math-|gaussian|
|000031d0| 2d 66 6c 6f 61 74 20 6e | 69 6c 20 28 62 79 74 65 |-float n|il (byte|
|000031e0| 2d 63 6f 64 65 20 22 c7 | 08 c8 5c 5c 18 09 85 0d |-code ".|..\\....|
|000031f0| 00 09 40 08 55 83 19 00 | 09 41 c2 89 11 88 82 83 |..@.U...|.A......|
|00003200| 00 c9 ca cb 20 c8 5c 22 | cc 5c 22 1b c9 ca cb 20 |.... .\"|.\".... |
|00003210| c8 5c 22 cc 5c 22 1c c9 | cd 0b 21 cd 0c 21 5c 22 |.\".\"..|..!..!\"|
|00003220| 1d ce 0d cf 5c 22 cc 55 | 3f 86 41 00 d0 0d 21 85 |....\".U|?.A...!.|
|00003230| 64 00 c9 ca cb 20 c8 5c | 22 cc 5c 22 13 c9 ca cb |d.... .\|".\"....|
|00003240| 20 c8 5c 22 cc 5c 22 14 | c9 cd 0b 21 cd 0c 21 5c | .\".\".|...!..!\|
|00003250| 22 89 15 88 82 34 00 88 | d1 ca d2 d3 0d 21 0d 5c |"....4..|.....!.\|
|00003260| 22 d4 5c 22 21 1e 06 08 | ca 0b 0e 06 5c 22 42 89 |".\"!...|....\"B.|
|00003270| 11 88 ca 0c 0e 06 5c 22 | 29 2b 29 21 87 22 20 5b |......\"|)+)!." [|
|00003280| 63 61 6c 63 2d 69 6e 74 | 65 72 6e 61 6c 2d 70 72 |calc-int|ernal-pr|
|00003290| 65 63 20 6d 61 74 68 2d | 67 61 75 73 73 69 61 6e |ec math-|gaussian|
|000032a0| 2d 63 61 63 68 65 20 6e | 69 6c 20 76 31 20 76 32 |-cache n|il v1 v2|
|000032b0| 20 72 20 66 61 63 20 6d | 61 74 68 2d 6e 6f 72 6d | r fac m|ath-norm|
|000032c0| 61 6c 69 7a 65 20 32 20 | 6d 61 74 68 2d 61 64 64 |alize 2 |math-add|
|000032d0| 20 6d 61 74 68 2d 6d 75 | 6c 20 6d 61 74 68 2d 72 | math-mu|l math-r|
|000032e0| 61 6e 64 6f 6d 2d 66 6c | 6f 61 74 20 2d 31 20 6d |andom-fl|oat -1 m|
|000032f0| 61 74 68 2d 73 71 72 20 | 6d 61 74 68 2d 63 6f 6d |ath-sqr |math-com|
|00003300| 70 61 72 65 20 31 20 6d | 61 74 68 2d 7a 65 72 6f |pare 1 m|ath-zero|
|00003310| 70 20 6d 61 74 68 2d 73 | 71 72 74 20 6d 61 74 68 |p math-s|qrt math|
|00003320| 2d 64 69 76 20 63 61 6c | 63 46 75 6e 63 2d 6c 6e |-div cal|cFunc-ln|
|00003330| 20 2d 32 5d 20 32 39 29 | 29 0a 0a 28 73 65 74 71 | -2] 29)|)..(setq|
|00003340| 20 6d 61 74 68 2d 67 61 | 75 73 73 69 61 6e 2d 63 | math-ga|ussian-c|
|00003350| 61 63 68 65 20 6e 69 6c | 29 0a 0a 28 64 65 66 75 |ache nil|)..(defu|
|00003360| 6e 20 63 61 6c 63 46 75 | 6e 63 2d 72 61 6e 64 6f |n calcFu|nc-rando|
|00003370| 6d 20 28 6d 61 78 29 20 | 28 62 79 74 65 2d 63 6f |m (max) |(byte-co|
|00003380| 64 65 20 22 08 3a 83 5c | 22 00 08 40 c7 3e 3f 85 |de ".:.\|"..@.>?.|
|00003390| 1f 00 08 40 c8 3d 83 1c | 00 c9 08 38 ca 3d 82 1f |...@.=..|...8.=..|
|000033a0| 00 cb 08 21 82 25 00 08 | ca 3d 83 2d 00 cc 20 82 |...!.%..|.=.-.. .|
|000033b0| 5a 01 08 3a 3f 86 37 00 | 08 40 cd 3e 83 4c 00 ce |Z..:?.7.|.@.>.L..|
|000033c0| 08 21 19 cf 09 d0 5c 5c | 21 1a d1 0a 08 5c 22 2a |.!....\\|!....\"*|
|000033d0| 82 5a 01 08 3a 3f 86 56 | 00 08 40 d2 3e 83 61 00 |.Z..:?.V|..@.>.a.|
|000033e0| d3 d4 20 08 5c 22 82 5a | 01 08 40 d5 3d 85 78 00 |.. .\".Z|..@.=.x.|
|000033f0| d6 08 21 85 78 00 d7 d8 | 08 38 d0 08 38 5c 22 d9 |..!.x...|.8..8\".|
|00003400| 55 83 0b 01 da 08 21 83 | c4 00 db d3 d4 20 dc d0 |U.....!.|..... ..|
|00003410| 08 38 d8 08 38 5c 22 5c | 22 d8 08 38 5c 22 1b c9 |.8..8\"\|"..8\"..|
|00003420| 08 38 dd 3e 85 a3 00 d7 | 0b d8 08 38 5c 22 ca 55 |.8.>....|...8\".U|
|00003430| 86 b6 00 c9 08 38 de 3e | 85 b6 00 d7 0b d0 08 38 |.....8.>|.......8|
|00003440| 5c 22 ca 55 83 bf 00 df | 08 21 82 c0 00 0b 29 82 |\".U....|.!....).|
|00003450| 08 01 c9 08 38 e0 3e 83 | d5 00 db d8 08 38 c9 5c |....8.>.|.....8.\|
|00003460| 22 82 d8 00 d8 08 38 c9 | 08 38 e1 3e 83 e9 00 db |".....8.|.8.>....|
|00003470| d0 08 38 c9 5c 22 82 ec | 00 d0 08 38 1d 1c d7 0c |..8.\"..|...8....|
|00003480| 0d 5c 22 d9 55 83 03 01 | db df dc 0d 0c 5c 22 21 |.\".U...|.....\"!|
|00003490| 0c 5c 22 82 07 01 e2 08 | e3 5c 22 2a 82 5a 01 08 |.\".....|.\"*.Z..|
|000034a0| 40 e4 3d 83 29 01 08 41 | 83 5c 22 01 df 08 47 53 |@.=.)..A|.\"...GS|
|000034b0| 21 54 08 38 82 26 01 e2 | 08 e5 5c 22 82 5a 01 08 |!T.8.&..|..\".Z..|
|000034c0| 40 e6 3d 85 44 01 d6 08 | 21 85 44 01 c9 08 38 3a |@.=.D...|!.D...8:|
|000034d0| 3f 86 44 01 c9 08 38 40 | e7 3e 83 56 01 db d3 cc |?.D...8@|.>.V....|
|000034e0| 20 d8 08 38 5c 22 c9 08 | 38 5c 22 82 5a 01 e2 08 | ..8\"..|8\".Z...|
|000034f0| e8 5c 22 87 22 20 5b 6d | 61 78 20 64 69 67 73 20 |.\"." [m|ax digs |
|00003500| 72 20 76 61 6c 20 6c 6f | 20 68 69 20 74 20 28 62 |r val lo| hi t (b|
|00003510| 69 67 70 6f 73 20 62 69 | 67 6e 65 67 29 20 66 6c |igpos bi|gneg) fl|
|00003520| 6f 61 74 20 31 20 30 20 | 6d 61 74 68 2d 7a 65 72 |oat 1 0 |math-zer|
|00003530| 6f 70 20 6d 61 74 68 2d | 67 61 75 73 73 69 61 6e |op math-|gaussian|
|00003540| 2d 66 6c 6f 61 74 20 28 | 62 69 67 70 6f 73 20 62 |-float (|bigpos b|
|00003550| 69 67 6e 65 67 29 20 6d | 61 74 68 2d 6e 75 6d 64 |igneg) m|ath-numd|
|00003560| 69 67 73 20 6d 61 74 68 | 2d 72 61 6e 64 6f 6d 2d |igs math|-random-|
|00003570| 64 69 67 69 74 73 20 33 | 20 6d 61 74 68 2d 6d 6f |digits 3| math-mo|
|00003580| 64 20 28 62 69 67 70 6f | 73 20 62 69 67 6e 65 67 |d (bigpo|s bigneg|
|00003590| 20 66 72 61 63 20 66 6c | 6f 61 74 29 20 6d 61 74 | frac fl|oat) mat|
|000035a0| 68 2d 6d 75 6c 20 6d 61 | 74 68 2d 72 61 6e 64 6f |h-mul ma|th-rando|
|000035b0| 6d 2d 66 6c 6f 61 74 20 | 69 6e 74 76 20 6d 61 74 |m-float |intv mat|
|000035c0| 68 2d 63 6f 6e 73 74 70 | 20 6d 61 74 68 2d 63 6f |h-constp| math-co|
|000035d0| 6d 70 61 72 65 20 32 20 | 2d 31 20 6d 61 74 68 2d |mpare 2 |-1 math-|
|000035e0| 66 6c 6f 61 74 70 20 6d | 61 74 68 2d 61 64 64 20 |floatp m|ath-add |
|000035f0| 6d 61 74 68 2d 73 75 62 | 20 28 30 20 31 29 20 28 |math-sub| (0 1) (|
|00003600| 30 20 32 29 20 63 61 6c | 63 46 75 6e 63 2d 72 61 |0 2) cal|cFunc-ra|
|00003610| 6e 64 6f 6d 20 28 30 20 | 31 29 20 28 31 20 33 29 |ndom (0 |1) (1 3)|
|00003620| 20 6d 61 74 68 2d 72 65 | 6a 65 63 74 2d 61 72 67 | math-re|ject-arg|
|00003630| 20 22 2a 45 6d 70 74 79 | 20 69 6e 74 65 72 76 61 | "*Empty| interva|
|00003640| 6c 22 20 76 65 63 20 22 | 2a 45 6d 70 74 79 20 6c |l" vec "|*Empty l|
|00003650| 69 73 74 22 20 73 64 65 | 76 20 28 62 69 67 70 6f |ist" sde|v (bigpo|
|00003660| 73 20 62 69 67 6e 65 67 | 20 66 72 61 63 20 66 6c |s bigneg| frac fl|
|00003670| 6f 61 74 29 20 72 65 61 | 6c 70 5d 20 33 33 29 29 |oat) rea|lp] 33))|
|00003680| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 46 75 6e |..(defun| calcFun|
|00003690| 63 2d 73 68 75 66 66 6c | 65 20 28 6e 20 26 6f 70 |c-shuffl|e (n &op|
|000036a0| 74 69 6f 6e 61 6c 20 6d | 61 78 29 20 28 62 79 74 |tional m|ax) (byt|
|000036b0| 65 2d 63 6f 64 65 20 22 | 08 86 09 00 09 10 cc 89 |e-code "|........|
|000036c0| 11 88 09 3a 3f 86 23 00 | 09 40 cd 3e 86 23 00 09 |...:?.#.|.@.>.#..|
|000036d0| 40 ce 3d 85 23 00 cf 09 | 38 d0 59 85 33 00 d1 d2 |@.=.#...|8.Y.3...|
|000036e0| 09 21 89 11 21 86 33 00 | 09 cc 3d 86 3a 00 d3 09 |.!..!.3.|..=.:...|
|000036f0| d4 5c 22 88 d5 08 21 86 | 4c 00 d6 08 21 86 4c 00 |.\"...!.|L...!.L.|
|00003700| d7 08 21 d8 3d 83 63 00 | 09 d0 57 83 5c 5c 00 d3 |..!.=.c.|..W.\\..|
|00003710| 09 d1 5c 22 82 60 00 d9 | 09 08 5c 22 82 c0 01 09 |..\".`..|..\"....|
|00003720| da 58 85 6c 00 09 d0 59 | 83 76 00 d9 09 08 5c 22 |.X.l...Y|.v....\"|
|00003730| 82 c0 01 d7 08 21 db 3d | 85 81 00 dc 08 21 83 38 |.....!.=|.....!.8|
|00003740| 01 dd de df 08 38 cf 08 | 38 5c 22 e0 da 08 38 e1 |.....8..|8\"...8.|
|00003750| 5c 22 41 5c 22 dd cf 08 | 38 da 08 38 e2 3e 83 a5 |\"A\"...|8..8.>..|
|00003760| 00 da 82 a6 00 d0 5c 22 | 1b 1a 09 d0 57 85 b2 00 |......\"|....W...|
|00003770| 0a 89 11 88 e3 0a 21 86 | bd 00 d3 08 e4 5c 22 88 |......!.|.....\".|
|00003780| e5 0a 09 5c 22 cc 55 85 | cb 00 d3 09 e4 5c 22 88 |...\".U.|.....\".|
|00003790| e5 09 e6 0a df 5c 22 5c | 22 cc 55 83 df 00 d9 09 |.....\"\|".U.....|
|000037a0| 08 5c 22 82 34 01 e7 09 | e8 5c 22 e7 0a df 5c 22 |.\".4...|.\"...\"|
|000037b0| 56 83 fb 00 dd de 0b da | 5c 22 e9 09 0a ea 0a 21 |V.......|\".....!|
|000037c0| 23 5c 22 82 34 01 d0 d0 | c7 1e 06 1d 1c 0d 09 57 |#\".4...|.......W|
|000037d0| 85 2a 01 eb 0a 0c 5a 21 | 09 0d 5a 57 85 21 01 dd |.*....Z!|..ZW.!..|
|000037e0| 0b 0c 5c 22 0e 06 42 16 | 06 0d 54 89 15 88 0c 54 |..\"..B.|..T....T|
|000037f0| 89 14 88 82 02 01 88 e9 | 09 09 c6 0e 06 42 23 2b |........|.....B#+|
|00003800| 2a 82 c0 01 d7 08 21 c6 | 3d 83 9a 01 08 47 53 1e |*.....!.|=....GS.|
|00003810| 08 09 d0 57 85 4f 01 0e | 08 89 11 88 09 ec 0e 08 |...W.O..|........|
|00003820| cf 5c 22 56 85 5e 01 09 | 0e 08 58 83 6c 01 e9 09 |.\"V.^..|..X.l...|
|00003830| 0e 08 ed 08 21 23 82 96 | 01 ee 09 db df da 08 47 |....!#..|.......G|
|00003840| 53 46 5c 22 1e 09 0e 09 | 1e 0a 0e 0a 41 89 16 0a |SF\"....|....A...|
|00003850| 85 92 01 ef 0e 0a 0e 0a | 40 08 38 5c 22 88 82 7c |........|@.8\"..||
|00003860| 01 88 0e 09 2a 29 82 c0 | 01 f0 08 21 83 bc 01 e3 |....*)..|...!....|
|00003870| 08 21 83 b1 01 ee 09 db | cf d0 08 46 5c 22 82 b9 |.!......|...F\"..|
|00003880| 01 ee 09 db da 08 d0 46 | 5c 22 82 c0 01 d3 08 f1 |.......F|\"......|
|00003890| 5c 22 87 22 20 5b 6d 61 | 78 20 6e 20 6e 75 6d 20 |\"." [ma|x n num |
|000038a0| 6d 69 6e 20 74 6f 74 20 | 6d 20 76 65 63 20 6e 69 |min tot |m vec ni|
|000038b0| 6c 20 73 69 7a 65 20 76 | 61 6c 73 20 70 20 74 20 |l size v|als p t |
|000038c0| 2d 31 20 28 62 69 67 70 | 6f 73 20 62 69 67 6e 65 |-1 (bigp|os bigne|
|000038d0| 67 29 20 66 6c 6f 61 74 | 20 32 20 30 20 6e 61 74 |g) float| 2 0 nat|
|000038e0| 6e 75 6d 70 20 6d 61 74 | 68 2d 74 72 75 6e 63 20 |nump mat|h-trunc |
|000038f0| 6d 61 74 68 2d 72 65 6a | 65 63 74 2d 61 72 67 20 |math-rej|ect-arg |
|00003900| 69 6e 74 65 67 65 72 70 | 20 6d 61 74 68 2d 7a 65 |integerp| math-ze|
|00003910| 72 6f 70 20 6d 61 74 68 | 2d 66 6c 6f 61 74 70 20 |rop math|-floatp |
|00003920| 63 61 72 2d 73 61 66 65 | 20 73 64 65 76 20 6d 61 |car-safe| sdev ma|
|00003930| 74 68 2d 73 69 6d 70 6c | 65 2d 73 68 75 66 66 6c |th-simpl|e-shuffl|
|00003940| 65 20 31 20 69 6e 74 76 | 20 6d 61 74 68 2d 63 6f |e 1 intv| math-co|
|00003950| 6e 73 74 70 20 6d 61 74 | 68 2d 61 64 64 20 6d 61 |nstp mat|h-add ma|
|00003960| 74 68 2d 73 75 62 20 33 | 20 61 73 73 71 20 28 28 |th-sub 3| assq ((|
|00003970| 30 20 2e 20 2d 31 29 20 | 28 31 20 2e 20 30 29 20 |0 . -1) |(1 . 0) |
|00003980| 28 32 20 2e 20 30 29 20 | 28 33 20 2e 20 31 29 29 |(2 . 0) |(3 . 1))|
|00003990| 20 28 30 20 31 29 20 6d | 61 74 68 2d 70 6f 73 70 | (0 1) m|ath-posp|
|000039a0| 20 72 61 6e 67 65 20 6d | 61 74 68 2d 63 6f 6d 70 | range m|ath-comp|
|000039b0| 61 72 65 20 6d 61 74 68 | 2d 71 75 6f 74 69 65 6e |are math|-quotien|
|000039c0| 74 20 2a 20 34 20 6d 61 | 74 68 2d 73 68 75 66 66 |t * 4 ma|th-shuff|
|000039d0| 6c 65 2d 6c 69 73 74 20 | 63 61 6c 63 46 75 6e 63 |le-list |calcFunc|
|000039e0| 2d 69 6e 64 65 78 20 63 | 61 6c 63 46 75 6e 63 2d |-index c|alcFunc-|
|000039f0| 72 61 6e 64 6f 6d 20 2f | 20 63 6f 70 79 2d 73 65 |random /| copy-se|
|00003a00| 71 75 65 6e 63 65 20 63 | 61 6c 63 46 75 6e 63 2d |quence c|alcFunc-|
|00003a10| 73 68 75 66 66 6c 65 20 | 73 65 74 63 61 72 20 6d |shuffle |setcar m|
|00003a20| 61 74 68 2d 69 6e 74 65 | 67 65 72 70 20 72 65 61 |ath-inte|gerp rea|
|00003a30| 6c 70 5d 20 34 36 29 29 | 0a 0a 28 64 65 66 75 6e |lp] 46))|..(defun|
|00003a40| 20 6d 61 74 68 2d 73 69 | 6d 70 6c 65 2d 73 68 75 | math-si|mple-shu|
|00003a50| 66 66 6c 65 20 28 6e 20 | 6d 61 78 29 20 28 62 79 |ffle (n |max) (by|
|00003a60| 74 65 2d 63 6f 64 65 20 | 22 c1 c1 1a 18 0b 53 89 |te-code |".....S.|
|00003a70| 13 c5 59 85 27 00 c6 c7 | 0c 21 89 12 08 5c 22 85 |..Y.'...|.!...\".|
|00003a80| 1d 00 c1 88 82 0d 00 88 | 0a 08 42 89 10 88 82 04 |........|..B.....|
|00003a90| 00 88 c0 08 42 2a 87 22 | 20 5b 76 65 63 20 6e 69 |....B*."| [vec ni|
|00003aa0| 6c 20 76 61 6c 20 6e 20 | 6d 61 78 20 30 20 6d 61 |l val n |max 0 ma|
|00003ab0| 74 68 2d 6d 65 6d 62 65 | 72 20 63 61 6c 63 46 75 |th-membe|r calcFu|
|00003ac0| 6e 63 2d 72 61 6e 64 6f | 6d 5d 20 35 29 29 0a 0a |nc-rando|m] 5))..|
|00003ad0| 28 64 65 66 75 6e 20 6d | 61 74 68 2d 73 68 75 66 |(defun m|ath-shuf|
|00003ae0| 66 6c 65 2d 6c 69 73 74 | 20 28 6e 20 73 69 7a 65 |fle-list| (n size|
|00003af0| 20 76 65 63 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | vec) (b|yte-code|
|00003b00| 20 22 09 c7 c7 0d 1c 1b | 1a 18 0c 41 89 14 41 85 | "......|...A..A.|
|00003b10| 2e 00 c8 08 21 12 08 53 | 10 0a 0c 38 89 13 88 c9 |....!..S|...8....|
|00003b20| ca 0a 0c 5c 22 0c 40 5c | 22 88 c9 0c 0b 5c 22 88 |...\".@\|"....\".|
|00003b30| 82 08 00 88 c5 ca cb 09 | 0e 06 cc 23 0d 5c 22 42 |........|...#.\"B|
|00003b40| 2c 87 22 20 5b 6a 20 73 | 69 7a 65 20 6b 20 74 65 |,." [j s|ize k te|
|00003b50| 6d 70 20 70 20 76 65 63 | 20 6e 20 6e 69 6c 20 63 |mp p vec| n nil c|
|00003b60| 61 6c 63 46 75 6e 63 2d | 72 61 6e 64 6f 6d 20 73 |alcFunc-|random s|
|00003b70| 65 74 63 61 72 20 6e 74 | 68 63 64 72 20 2d 20 2d |etcar nt|hcdr - -|
|00003b80| 31 5d 20 31 30 29 29 0a | 0a 28 64 65 66 75 6e 20 |1] 10)).|.(defun |
|00003b90| 6d 61 74 68 2d 6d 65 6d | 62 65 72 20 28 78 20 6c |math-mem|ber (x l|
|00003ba0| 69 73 74 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ist) (by|te-code |
|00003bb0| 22 08 85 0a 00 c2 09 08 | 40 5c 22 3f 85 15 00 08 |".......|@\"?....|
|00003bc0| 41 89 10 88 82 00 00 88 | 08 87 22 20 5b 6c 69 73 |A.......|.." [lis|
|00003bd0| 74 20 78 20 65 71 75 61 | 6c 5d 20 34 29 29 0a 0a |t x equa|l] 4))..|
|00003be0| 28 64 65 66 75 6e 20 6d | 61 74 68 2d 70 72 69 6d |(defun m|ath-prim|
|00003bf0| 65 2d 74 65 73 74 20 28 | 6e 20 69 74 65 72 73 29 |e-test (|n iters)|
|00003c00| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 3a 85 | (byte-c|ode ".:.|
|00003c10| 09 00 08 40 d1 3d 85 0e | 00 08 41 85 18 00 08 47 |...@.=..|..A....G|
|00003c20| 53 08 38 89 10 88 08 3a | 85 2a 00 08 40 d2 3d 85 |S.8....:|.*..@.=.|
|00003c30| 2a 00 d3 08 38 d4 59 85 | 32 00 d5 08 21 89 10 88 |*...8.Y.|2...!...|
|00003c40| c2 19 0b d4 56 85 75 02 | d6 08 21 85 44 00 08 d7 |....V.u.|..!.D...|
|00003c50| 58 83 50 00 d8 08 21 08 | 55 43 82 5a 02 08 3a 3f |X.P...!.|UC.Z..:?|
|00003c60| 86 5a 00 08 40 d9 3e 3f | 83 64 00 da db 21 82 5a |.Z..@.>?|.d...!.Z|
|00003c70| 02 08 3a 83 70 00 08 40 | dc 3d 82 73 00 08 d4 57 |..:.p..@|.=.s...W|
|00003c80| 83 7a 00 dd 82 5a 02 08 | 3a 83 8f 00 de 3a 85 8c |.z...Z..|:....:..|
|00003c90| 00 df 08 41 de 41 5c 22 | e0 55 82 97 00 de 3a 86 |...A.A\"|.U....:.|
|00003ca0| 97 00 08 de 57 83 d8 00 | e1 08 21 89 10 88 e0 c2 |....W...|..!.....|
|00003cb0| 1d 1c e2 08 0e 06 0c 54 | 89 14 48 89 15 5c 22 d4 |.......T|..H..\".|
|00003cc0| 56 85 bb 00 e3 0d 0d 5c | 22 08 57 85 c3 00 c2 88 |V......\|".W.....|
|00003cd0| 82 a4 00 88 e2 08 0d 5c | 22 d4 55 83 d3 00 c2 0d |.......\|".U.....|
|00003ce0| 44 82 d4 00 e4 2a 82 5a | 02 e5 08 0e 07 40 5c 22 |D....*.Z|.....@\"|
|00003cf0| 3f 83 c6 01 e2 e6 08 38 | d3 5c 22 d4 55 83 f1 00 |?......8|.\".U...|
|00003d00| e7 82 c3 01 e2 e6 08 38 | e8 5c 22 d4 55 83 00 01 |.......8|.\".U...|
|00003d10| e9 82 c3 01 08 41 d4 1e | 0a 1e 09 0e 09 85 42 01 |.....A..|......B.|
|00003d20| 0e 09 41 83 2f 01 e2 0e | 0a 0e 09 40 5c 5c e3 e6 |..A./...|...@\\..|
|00003d30| 0e 09 38 ea 5c 22 5c 5c | eb 5c 22 16 0a 0e 09 41 |..8.\"\\|.\"....A|
|00003d40| 41 89 16 09 82 3e 01 e2 | 0e 0a 0e 09 40 5c 5c eb |A....>..|....@\\.|
|00003d50| 5c 22 16 0a c2 89 16 09 | 88 82 07 01 88 e2 0e 0a |\"......|........|
|00003d60| ec 5c 22 d4 55 83 51 01 | ed 82 c2 01 e2 0e 0a ee |.\".U.Q.|........|
|00003d70| 5c 22 d4 55 83 5f 01 ef | 82 c2 01 e2 0e 0a f0 5c |\".U._..|.......\|
|00003d80| 22 d4 55 83 6d 01 f1 82 | c2 01 e2 0e 0a f2 5c 22 |".U.m...|......\"|
|00003d90| d4 55 83 7b 01 f3 82 c2 | 01 e2 0e 0a f4 5c 22 d4 |.U.{....|.....\".|
|00003da0| 55 83 89 01 f5 82 c2 01 | e6 16 0b f6 08 21 16 0c |U.......|.....!..|
|00003db0| f7 08 e0 5c 22 89 16 0d | 88 f8 0e 0c 21 85 b0 01 |...\"...|....!...|
|00003dc0| 0e 0b 54 16 0b f6 0e 0c | 21 89 16 0c 88 82 99 01 |..T.....|!.......|
|00003dd0| 88 0b 54 89 13 88 f9 d4 | fa fb fc fd fe 08 21 5c |..T.....|......!\|
|00003de0| 22 5c 22 45 2a 82 5a 02 | e6 0e 07 38 40 f9 3d 3f |"\"E*.Z.|...8@.=?|
|00003df0| 83 d8 01 e6 0e 07 38 82 | 5a 02 f7 ff f7 08 81 40 |......8.|Z......@|
|00003e00| 00 5c 22 21 d3 5c 22 1e | 0e 81 41 00 0e 0e 0e 0c |.\"!.\".|..A.....|
|00003e10| 08 23 1e 0f d4 1e 10 0e | 0f e6 3d 3f 85 0e 02 e5 |.#......|..=?....|
|00003e20| 0e 0f 0e 0d 5c 22 3f 85 | 0e 02 0e 10 54 89 16 10 |....\"?.|....T...|
|00003e30| 0e 0b 57 85 25 02 81 42 | 00 81 43 00 0e 0f 0e 0f |..W.%..B|..C.....|
|00003e40| 5c 22 08 5c 22 89 16 0f | 88 82 f3 01 88 e5 0e 0f |\".\"...|........|
|00003e50| 0e 0d 5c 22 86 3a 02 0e | 0f e6 3d 85 3a 02 0e 10 |..\".:..|..=.:...|
|00003e60| d4 3d 83 56 02 f9 e6 e6 | 0e 07 38 38 54 81 43 00 |.=.V....|..88T.C.|
|00003e70| d3 e6 0e 07 38 38 81 44 | 00 5c 22 45 82 59 02 81 |....88.D|.\"E.Y..|
|00003e80| 45 00 2b 89 11 88 08 09 | 44 16 07 09 40 f9 3d 83 |E.+.....|D...@.=.|
|00003e90| 6e 02 0b 53 82 6f 02 d4 | 89 13 88 82 35 00 88 09 |n..S.o..|....5...|
|00003ea0| 29 87 22 20 5b 6e 20 72 | 65 73 20 6e 69 6c 20 69 |)." [n r|es nil i|
|00003eb0| 74 65 72 73 20 69 20 76 | 20 6d 61 74 68 2d 70 72 |ters i v| math-pr|
|00003ec0| 69 6d 65 73 2d 74 61 62 | 6c 65 20 6d 61 74 68 2d |imes-tab|le math-|
|00003ed0| 70 72 69 6d 65 2d 74 65 | 73 74 2d 63 61 63 68 65 |prime-te|st-cache|
|00003ee0| 20 74 20 64 69 67 20 73 | 75 6d 20 6d 61 74 68 2d | t dig s|um math-|
|00003ef0| 70 72 69 6d 65 2d 74 65 | 73 74 2d 63 61 63 68 65 |prime-te|st-cache|
|00003f00| 2d 6b 20 6d 61 74 68 2d | 70 72 69 6d 65 2d 74 65 |-k math-|prime-te|
|00003f10| 73 74 2d 63 61 63 68 65 | 2d 71 20 6d 61 74 68 2d |st-cache|-q math-|
|00003f20| 70 72 69 6d 65 2d 74 65 | 73 74 2d 63 61 63 68 65 |prime-te|st-cache|
|00003f30| 2d 6e 6d 31 20 78 20 79 | 20 6a 20 76 65 63 20 66 |-nm1 x y| j vec f|
|00003f40| 6c 6f 61 74 20 32 20 30 | 20 6d 61 74 68 2d 74 72 |loat 2 0| math-tr|
|00003f50| 75 6e 63 20 69 6e 74 65 | 67 65 72 70 20 35 30 30 |unc inte|gerp 500|
|00003f60| 33 20 6d 61 74 68 2d 6e | 65 78 74 2d 73 6d 61 6c |3 math-n|ext-smal|
|00003f70| 6c 2d 70 72 69 6d 65 20 | 28 62 69 67 70 6f 73 20 |l-prime |(bigpos |
|00003f80| 62 69 67 6e 65 67 29 20 | 65 72 72 6f 72 20 22 41 |bigneg) |error "A|
|00003f90| 72 67 75 6d 65 6e 74 20 | 6d 75 73 74 20 62 65 20 |rgument |must be |
|00003fa0| 61 6e 20 69 6e 74 65 67 | 65 72 22 20 62 69 67 6e |an integ|er" bign|
|00003fb0| 65 67 20 28 6e 69 6c 29 | 20 28 62 69 67 70 6f 73 |eg (nil)| (bigpos|
|00003fc0| 20 30 20 30 20 38 29 20 | 6d 61 74 68 2d 63 6f 6d | 0 0 8) |math-com|
|00003fd0| 70 61 72 65 2d 62 69 67 | 6e 75 6d 20 2d 31 20 6d |pare-big|num -1 m|
|00003fe0| 61 74 68 2d 66 69 78 6e | 75 6d 20 25 20 2a 20 28 |ath-fixn|um % * (|
|00003ff0| 74 29 20 65 71 75 61 6c | 20 31 20 28 6e 69 6c 20 |t) equal| 1 (nil |
|00004000| 32 29 20 35 20 28 6e 69 | 6c 20 35 29 20 31 30 30 |2) 5 (ni|l 5) 100|
|00004010| 30 20 31 31 31 31 31 31 | 20 33 20 28 6e 69 6c 20 |0 111111| 3 (nil |
|00004020| 33 29 20 37 20 28 6e 69 | 6c 20 37 29 20 31 31 20 |3) 7 (ni|l 7) 11 |
|00004030| 28 6e 69 6c 20 31 31 29 | 20 31 33 20 28 6e 69 6c |(nil 11)| 13 (nil|
|00004040| 20 31 33 29 20 33 37 20 | 28 6e 69 6c 20 33 37 29 | 13) 37 |(nil 37)|
|00004050| 20 6d 61 74 68 2d 64 69 | 76 32 20 6d 61 74 68 2d | math-di|v2 math-|
|00004060| 61 64 64 20 6d 61 74 68 | 2d 65 76 65 6e 70 20 6d |add math|-evenp m|
|00004070| 61 79 62 65 20 6d 61 74 | 68 2d 73 75 62 20 31 30 |aybe mat|h-sub 10|
|00004080| 30 20 6d 61 74 68 2d 64 | 69 76 20 28 66 6c 6f 61 |0 math-d|iv (floa|
|00004090| 74 20 32 33 32 20 30 29 | 20 6d 61 74 68 2d 6e 75 |t 232 0)| math-nu|
|000040a0| 6d 64 69 67 73 20 63 61 | 6c 63 46 75 6e 63 2d 72 |mdigs ca|lcFunc-r|
|000040b0| 61 6e 64 6f 6d 20 2d 32 | 20 6d 61 74 68 2d 70 6f |andom -2| math-po|
|000040c0| 77 2d 6d 6f 64 20 6d 61 | 74 68 2d 6d 6f 64 20 6d |w-mod ma|th-mod m|
|000040d0| 61 74 68 2d 6d 75 6c 20 | 28 66 6c 6f 61 74 20 32 |ath-mul |(float 2|
|000040e0| 35 20 2d 32 29 20 28 6e | 69 6c 20 75 6e 6b 6e 6f |5 -2) (n|il unkno|
|000040f0| 77 6e 29 5d 20 34 32 29 | 29 0a 0a 28 64 65 66 76 |wn)] 42)|)..(defv|
|00004100| 61 72 20 6d 61 74 68 2d | 70 72 69 6d 65 2d 74 65 |ar math-|prime-te|
|00004110| 73 74 2d 63 61 63 68 65 | 20 28 71 75 6f 74 65 20 |st-cache| (quote |
|00004120| 28 2d 31 29 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |(-1)))..|(defun c|
|00004130| 61 6c 63 46 75 6e 63 2d | 70 72 69 6d 65 20 28 6e |alcFunc-|prime (n|
|00004140| 20 26 6f 70 74 69 6f 6e | 61 6c 20 69 74 65 72 73 | &option|al iters|
|00004150| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c2 08 |) (byte-|code "..|
|00004160| 21 86 0a 00 c3 08 c4 5c | 22 88 09 3f 86 1a 00 c2 |!......\|"..?....|
|00004170| 09 21 86 1a 00 c3 09 c4 | 5c 22 88 c5 c6 08 21 c6 |.!......|\"....!.|
|00004180| 09 86 25 00 c7 21 5c 22 | 40 83 2f 00 c7 82 30 00 |..%..!\"|@./...0.|
|00004190| c8 87 22 20 5b 6e 20 69 | 74 65 72 73 20 6d 61 74 |.." [n i|ters mat|
|000041a0| 68 2d 6e 75 6d 2d 69 6e | 74 65 67 65 72 70 20 6d |h-num-in|tegerp m|
|000041b0| 61 74 68 2d 72 65 6a 65 | 63 74 2d 61 72 67 20 69 |ath-reje|ct-arg i|
|000041c0| 6e 74 65 67 65 72 70 20 | 6d 61 74 68 2d 70 72 69 |ntegerp |math-pri|
|000041d0| 6d 65 2d 74 65 73 74 20 | 6d 61 74 68 2d 74 72 75 |me-test |math-tru|
|000041e0| 6e 63 20 31 20 30 5d 20 | 39 29 29 0a 0a 28 64 65 |nc 1 0] |9))..(de|
|000041f0| 66 75 6e 20 63 61 6c 63 | 46 75 6e 63 2d 70 72 66 |fun calc|Func-prf|
|00004200| 61 63 20 28 6e 29 20 28 | 62 79 74 65 2d 63 6f 64 |ac (n) (|byte-cod|
|00004210| 65 20 22 c1 89 10 88 0a | 3a 85 15 00 0a 40 c9 3d |e ".....|:....@.=|
|00004220| 85 15 00 ca 0a 38 cb 59 | 85 1d 00 cc 0a 21 89 12 |.....8.Y|.....!..|
|00004230| 88 0a 3a 83 2a 00 0a 40 | cd 3d 82 2d 00 0a cb 59 |..:.*..@|.=.-...Y|
|00004240| 83 1d 01 ca 3a 83 45 00 | 0a 3a 85 42 00 ce ca 41 |....:.E.|.:.B...A|
|00004250| 0a 41 5c 22 cf 55 82 4d | 00 0a 3a 86 4d 00 ca 0a |.A\".U.M|..:.M...|
|00004260| 57 83 17 01 d0 d0 d0 cb | 1e 06 1d 1c 1b 0a d1 3d |W.......|.......=|
|00004270| 3f 85 66 00 0e 06 0e 07 | 47 57 85 ff 00 0e 07 0e |?.f.....|GW......|
|00004280| 06 48 89 15 88 0a 0d 3d | 83 7d 00 d1 cb 42 82 9e |.H.....=|.}...B..|
|00004290| 00 0a d1 3d 83 89 00 cb | d1 42 82 9e 00 0a 3a 83 |...=....|.B....:.|
|000042a0| 95 00 d2 0a 0d 5c 22 82 | 9e 00 d3 0a 0d 5c 22 d4 |.....\".|.....\".|
|000042b0| 0a 0d 5c 22 42 89 14 41 | cb 3d 85 c0 00 0e 08 d5 |..\"B..A|.=......|
|000042c0| 3d 85 b1 00 d6 d7 0d 5c | 22 88 d8 0b 0d 43 5c 22 |=......\|"....C\"|
|000042d0| 13 0c 40 89 12 88 82 71 | 00 88 0a d1 3d 86 f4 00 |..@....q|....=...|
|000042e0| 0d 3a 83 de 00 0c 40 3a | 85 db 00 ce 0d 41 0c 40 |.:....@:|.....A.@|
|000042f0| 41 5c 22 cf 55 82 e8 00 | 0c 40 3a 86 e8 00 0d 0c |A\".U...|.@:.....|
|00004300| 40 57 86 f4 00 d8 0b 0a | 43 5c 22 13 d1 89 12 88 |@W......|C\".....|
|00004310| 0e 06 54 89 16 06 88 82 | 59 00 88 0a d1 3d 89 10 |..T.....|Y....=..|
|00004320| 86 0f 01 d8 0b 0a 43 5c | 22 89 13 88 d9 0b 42 2c |......C\|".....B,|
|00004330| 82 1a 01 d9 0a 44 82 4b | 01 0a 3a 3f 86 27 01 0a |.....D.K|..:?.'..|
|00004340| 40 da 3e 83 43 01 0a cf | 3d 83 36 01 d9 0a 44 82 |@.>.C...|=.6...D.|
|00004350| 40 01 d9 cf db dc 0a 21 | 21 41 42 42 82 4b 01 dd |@......!|!ABB.K..|
|00004360| de 0a 5c 22 88 db 0a 44 | 87 22 20 5b 6d 61 74 68 |..\"...D|." [math|
|00004370| 2d 70 72 69 6d 65 2d 66 | 61 63 74 6f 72 73 2d 66 |-prime-f|actors-f|
|00004380| 69 6e 69 73 68 65 64 20 | 74 20 6e 20 66 61 63 74 |inished |t n fact|
|00004390| 6f 72 73 20 72 65 73 20 | 70 20 69 20 6d 61 74 68 |ors res |p i math|
|000043a0| 2d 70 72 69 6d 65 73 2d | 74 61 62 6c 65 20 63 61 |-primes-|table ca|
|000043b0| 6c 63 2d 64 69 73 70 6c | 61 79 2d 77 6f 72 6b 69 |lc-displ|ay-worki|
|000043c0| 6e 67 2d 6d 65 73 73 61 | 67 65 20 66 6c 6f 61 74 |ng-messa|ge float|
|000043d0| 20 32 20 30 20 6d 61 74 | 68 2d 74 72 75 6e 63 20 | 2 0 mat|h-trunc |
|000043e0| 62 69 67 70 6f 73 20 6d | 61 74 68 2d 63 6f 6d 70 |bigpos m|ath-comp|
|000043f0| 61 72 65 2d 62 69 67 6e | 75 6d 20 2d 31 20 6e 69 |are-bign|um -1 ni|
|00004400| 6c 20 31 20 6d 61 74 68 | 2d 69 64 69 76 6d 6f 64 |l 1 math|-idivmod|
|00004410| 20 2f 20 25 20 6c 6f 74 | 73 20 6d 61 74 68 2d 64 | / % lot|s math-d|
|00004420| 6f 2d 77 6f 72 6b 69 6e | 67 20 22 66 61 63 74 6f |o-workin|g "facto|
|00004430| 72 22 20 6e 63 6f 6e 63 | 20 76 65 63 20 28 62 69 |r" nconc| vec (bi|
|00004440| 67 70 6f 73 20 62 69 67 | 6e 65 67 29 20 63 61 6c |gpos big|neg) cal|
|00004450| 63 46 75 6e 63 2d 70 72 | 66 61 63 20 6d 61 74 68 |cFunc-pr|fac math|
|00004460| 2d 6e 65 67 20 63 61 6c | 63 2d 72 65 63 6f 72 64 |-neg cal|c-record|
|00004470| 2d 77 68 79 20 69 6e 74 | 65 67 65 72 70 5d 20 31 |-why int|egerp] 1|
|00004480| 35 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |5))..(de|fun calc|
|00004490| 46 75 6e 63 2d 74 6f 74 | 69 65 6e 74 20 28 6e 29 |Func-tot|ient (n)|
|000044a0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 3a 85 | (byte-c|ode ".:.|
|000044b0| 11 00 08 40 c4 3d 85 11 | 00 c5 08 38 c6 59 85 19 |...@.=..|...8.Y..|
|000044c0| 00 c7 08 21 89 10 88 08 | 3a 83 26 00 08 40 c8 3d |...!....|:.&..@.=|
|000044d0| 82 29 00 08 c6 59 83 db | 00 08 3a 83 41 00 c5 3a |.)...Y..|..:.A..:|
|000044e0| 85 3e 00 c9 08 41 c5 41 | 5c 22 ca 55 82 49 00 c5 |.>...A.A|\".U.I..|
|000044f0| 3a 86 49 00 08 c5 57 83 | 97 00 08 3a 83 85 00 08 |:.I...W.|...:....|
|00004500| 40 cb 3d 86 82 00 08 40 | c8 3d 3f 85 82 00 08 40 |@.=....@|.=?....@|
|00004510| cc 3e 83 7f 00 cd 08 38 | 3a 83 77 00 cd 08 38 40 |.>.....8|:.w...8@|
|00004520| cb 3d 82 7c 00 cd 08 38 | c6 57 82 82 00 ce 08 21 |.=.|...8|.W.....!|
|00004530| 82 88 00 08 c6 57 83 93 | 00 cf d0 08 21 21 82 94 |.....W..|....!!..|
|00004540| 00 08 82 d8 00 d1 08 21 | 41 d2 1a 19 0b 83 cf 00 |.......!|A.......|
|00004550| 09 85 ca 00 09 40 12 d3 | d4 08 0a 5c 22 d5 0a ca |.....@..|...\"...|
|00004560| 5c 22 5c 22 89 10 88 d6 | 0a 09 40 5c 22 85 c6 00 |\"\"....|..@\"...|
|00004570| 09 41 89 11 88 82 b6 00 | 88 82 a2 00 88 08 82 d7 |.A......|........|
|00004580| 00 d7 d8 08 5c 22 88 cf | 08 44 2a 82 e3 00 d7 d9 |....\"..|.D*.....|
|00004590| 08 5c 22 88 cf 08 44 87 | 22 20 5b 6e 20 66 61 63 |.\"...D.|" [n fac|
|000045a0| 74 6f 72 73 20 70 20 6d | 61 74 68 2d 70 72 69 6d |tors p m|ath-prim|
|000045b0| 65 2d 66 61 63 74 6f 72 | 73 2d 66 69 6e 69 73 68 |e-factor|s-finish|
|000045c0| 65 64 20 66 6c 6f 61 74 | 20 32 20 30 20 6d 61 74 |ed float| 2 0 mat|
|000045d0| 68 2d 74 72 75 6e 63 20 | 62 69 67 70 6f 73 20 6d |h-trunc |bigpos m|
|000045e0| 61 74 68 2d 63 6f 6d 70 | 61 72 65 2d 62 69 67 6e |ath-comp|are-bign|
|000045f0| 75 6d 20 2d 31 20 62 69 | 67 6e 65 67 20 28 66 72 |um -1 bi|gneg (fr|
|00004600| 61 63 20 66 6c 6f 61 74 | 29 20 31 20 6d 61 74 68 |ac float|) 1 math|
|00004610| 2d 6e 65 67 70 20 63 61 | 6c 63 46 75 6e 63 2d 74 |-negp ca|lcFunc-t|
|00004620| 6f 74 69 65 6e 74 20 6d | 61 74 68 2d 61 62 73 20 |otient m|ath-abs |
|00004630| 63 61 6c 63 46 75 6e 63 | 2d 70 72 66 61 63 20 6e |calcFunc|-prfac n|
|00004640| 69 6c 20 6d 61 74 68 2d | 6d 75 6c 20 6d 61 74 68 |il math-|mul math|
|00004650| 2d 64 69 76 20 6d 61 74 | 68 2d 61 64 64 20 65 71 |-div mat|h-add eq|
|00004660| 75 61 6c 20 63 61 6c 63 | 2d 72 65 63 6f 72 64 2d |ual calc|-record-|
|00004670| 77 68 79 20 22 2a 4e 75 | 6d 62 65 72 20 74 6f 6f |why "*Nu|mber too|
|00004680| 20 62 69 67 20 74 6f 20 | 66 61 63 74 6f 72 22 20 | big to |factor" |
|00004690| 6e 61 74 6e 75 6d 70 5d | 20 31 34 29 29 0a 0a 28 |natnump]| 14))..(|
|000046a0| 64 65 66 75 6e 20 63 61 | 6c 63 46 75 6e 63 2d 6d |defun ca|lcFunc-m|
|000046b0| 6f 65 62 69 75 73 20 28 | 6e 29 20 28 62 79 74 65 |oebius (|n) (byte|
|000046c0| 2d 63 6f 64 65 20 22 08 | 3a 85 11 00 08 40 c4 3d |-code ".|:....@.=|
|000046d0| 85 11 00 c5 08 38 c6 59 | 85 19 00 c7 08 21 89 10 |.....8.Y|.....!..|
|000046e0| 88 08 3a 83 26 00 08 40 | c8 3d 82 29 00 08 c6 59 |..:.&..@|.=.)...Y|
|000046f0| 85 30 00 08 c6 3d 3f 83 | d8 00 08 3a 83 48 00 c5 |.0...=?.|...:.H..|
|00004700| 3a 85 45 00 c9 08 41 c5 | 41 5c 22 ca 55 82 50 00 |:.E...A.|A\".U.P.|
|00004710| c5 3a 86 50 00 08 c5 57 | 83 9e 00 08 3a 83 8c 00 |.:.P...W|....:...|
|00004720| 08 40 cb 3d 86 89 00 08 | 40 c8 3d 3f 85 89 00 08 |.@.=....|@.=?....|
|00004730| 40 cc 3e 83 86 00 cd 08 | 38 3a 83 7e 00 cd 08 38 |@.>.....|8:.~...8|
|00004740| 40 cb 3d 82 83 00 cd 08 | 38 c6 57 82 89 00 ce 08 |@.=.....|8.W.....|
|00004750| 21 82 8f 00 08 c6 57 83 | 9a 00 cf d0 08 21 21 82 |!.....W.|.....!!.|
|00004760| 9b 00 cd 82 d5 00 d1 08 | 21 41 cd 1a 19 0b 83 cc |........|!A......|
|00004770| 00 09 85 c7 00 d2 09 40 | cd 09 38 5c 22 83 bb 00 |.......@|..8\"...|
|00004780| c6 82 be 00 d3 0a 21 12 | 09 41 89 11 88 82 a9 00 |......!.|.A......|
|00004790| 88 0a 82 d4 00 d4 d5 08 | 5c 22 88 cf 08 44 2a 82 |........|\"...D*.|
|000047a0| e0 00 d4 d6 08 5c 22 88 | cf 08 44 87 22 20 5b 6e |.....\".|..D." [n|
|000047b0| 20 66 61 63 74 6f 72 73 | 20 6d 75 20 6d 61 74 68 | factors| mu math|
|000047c0| 2d 70 72 69 6d 65 2d 66 | 61 63 74 6f 72 73 2d 66 |-prime-f|actors-f|
|000047d0| 69 6e 69 73 68 65 64 20 | 66 6c 6f 61 74 20 32 20 |inished |float 2 |
|000047e0| 30 20 6d 61 74 68 2d 74 | 72 75 6e 63 20 62 69 67 |0 math-t|runc big|
|000047f0| 70 6f 73 20 6d 61 74 68 | 2d 63 6f 6d 70 61 72 65 |pos math|-compare|
|00004800| 2d 62 69 67 6e 75 6d 20 | 2d 31 20 62 69 67 6e 65 |-bignum |-1 bigne|
|00004810| 67 20 28 66 72 61 63 20 | 66 6c 6f 61 74 29 20 31 |g (frac |float) 1|
|00004820| 20 6d 61 74 68 2d 6e 65 | 67 70 20 63 61 6c 63 46 | math-ne|gp calcF|
|00004830| 75 6e 63 2d 6d 6f 65 62 | 69 75 73 20 6d 61 74 68 |unc-moeb|ius math|
|00004840| 2d 61 62 73 20 63 61 6c | 63 46 75 6e 63 2d 70 72 |-abs cal|cFunc-pr|
|00004850| 66 61 63 20 65 71 75 61 | 6c 20 6d 61 74 68 2d 6e |fac equa|l math-n|
|00004860| 65 67 20 63 61 6c 63 2d | 72 65 63 6f 72 64 2d 77 |eg calc-|record-w|
|00004870| 68 79 20 22 4e 75 6d 62 | 65 72 20 74 6f 6f 20 62 |hy "Numb|er too b|
|00004880| 69 67 20 74 6f 20 66 61 | 63 74 6f 72 22 20 70 6f |ig to fa|ctor" po|
|00004890| 73 69 6e 74 70 5d 20 31 | 32 29 29 0a 0a 28 64 65 |sintp] 1|2))..(de|
|000048a0| 66 75 6e 20 63 61 6c 63 | 46 75 6e 63 2d 6e 65 78 |fun calc|Func-nex|
|000048b0| 74 70 72 69 6d 65 20 28 | 6e 20 26 6f 70 74 69 6f |tprime (|n &optio|
|000048c0| 6e 61 6c 20 69 74 65 72 | 73 29 20 28 62 79 74 65 |nal iter|s) (byte|
|000048d0| 2d 63 6f 64 65 20 22 08 | 3a 3f 86 0a 00 08 40 c4 |-code ".|:?....@.|
|000048e0| 3e 83 73 00 08 3a 83 19 | 00 08 40 c5 3d 82 1c 00 |>.s..:..|..@.=...|
|000048f0| 08 c6 57 83 23 00 c7 82 | 70 00 c8 08 21 85 2c 00 |..W.#...|p...!.,.|
|00004900| 08 c9 57 83 36 00 ca 08 | 54 21 82 70 00 cb 08 21 |..W.6...|T!.p...!|
|00004910| 85 42 00 cc 08 cd 5c 22 | 89 10 88 ce 19 cf cc 08 |.B....\"|........|
|00004920| c7 5c 22 89 10 0a 86 51 | 00 d0 5c 22 89 11 40 3f |.\"....Q|..\"..@?|
|00004930| 85 5e 00 ce 88 82 45 00 | 88 0b 85 67 00 09 40 d1 |.^....E.|...g..@.|
|00004940| 3d 85 6d 00 d2 09 21 29 | 88 08 82 8d 00 08 3a 3f |=.m...!)|......:?|
|00004950| 86 7d 00 08 40 d3 3e 83 | 89 00 d4 d5 08 21 0a 5c |.}..@.>.|.....!.\|
|00004960| 22 82 8d 00 d6 08 c8 5c | 22 87 22 20 5b 6e 20 72 |"......\|"." [n r|
|00004970| 65 73 20 69 74 65 72 73 | 20 63 61 6c 63 2d 76 65 |es iters| calc-ve|
|00004980| 72 62 6f 73 65 2d 6e 65 | 78 74 70 72 69 6d 65 20 |rbose-ne|xtprime |
|00004990| 28 62 69 67 70 6f 73 20 | 62 69 67 6e 65 67 29 20 |(bigpos |bigneg) |
|000049a0| 62 69 67 6e 65 67 20 30 | 20 32 20 69 6e 74 65 67 |bigneg 0| 2 integ|
|000049b0| 65 72 70 20 35 30 30 33 | 20 6d 61 74 68 2d 6e 65 |erp 5003| math-ne|
|000049c0| 78 74 2d 73 6d 61 6c 6c | 2d 70 72 69 6d 65 20 6d |xt-small|-prime m|
|000049d0| 61 74 68 2d 65 76 65 6e | 70 20 6d 61 74 68 2d 61 |ath-even|p math-a|
|000049e0| 64 64 20 2d 31 20 6e 69 | 6c 20 6d 61 74 68 2d 70 |dd -1 ni|l math-p|
|000049f0| 72 69 6d 65 2d 74 65 73 | 74 20 31 20 6d 61 79 62 |rime-tes|t 1 mayb|
|00004a00| 65 20 63 61 6c 63 2d 72 | 65 70 6f 72 74 2d 70 72 |e calc-r|eport-pr|
|00004a10| 69 6d 65 2d 74 65 73 74 | 20 28 62 69 67 70 6f 73 |ime-test| (bigpos|
|00004a20| 20 62 69 67 6e 65 67 20 | 66 72 61 63 20 66 6c 6f | bigneg |frac flo|
|00004a30| 61 74 29 20 63 61 6c 63 | 46 75 6e 63 2d 6e 65 78 |at) calc|Func-nex|
|00004a40| 74 70 72 69 6d 65 20 6d | 61 74 68 2d 74 72 75 6e |tprime m|ath-trun|
|00004a50| 63 20 6d 61 74 68 2d 72 | 65 6a 65 63 74 2d 61 72 |c math-r|eject-ar|
|00004a60| 67 5d 20 31 32 29 29 0a | 0a 28 73 65 74 71 20 63 |g] 12)).|.(setq c|
|00004a70| 61 6c 63 2d 76 65 72 62 | 6f 73 65 2d 6e 65 78 74 |alc-verb|ose-next|
|00004a80| 70 72 69 6d 65 20 6e 69 | 6c 29 0a 0a 28 64 65 66 |prime ni|l)..(def|
|00004a90| 75 6e 20 63 61 6c 63 46 | 75 6e 63 2d 70 72 65 76 |un calcF|unc-prev|
|00004aa0| 70 72 69 6d 65 20 28 6e | 20 26 6f 70 74 69 6f 6e |prime (n| &option|
|00004ab0| 61 6c 20 69 74 65 72 73 | 29 20 28 62 79 74 65 2d |al iters|) (byte-|
|00004ac0| 63 6f 64 65 20 22 08 3a | 3f 86 0a 00 08 40 c4 3e |code ".:|?....@.>|
|00004ad0| 83 57 00 c5 08 c6 5c 22 | c7 55 83 1a 00 c8 82 54 |.W....\"|.U.....T|
|00004ae0| 00 c9 08 21 85 26 00 ca | 08 cb 5c 22 89 10 88 cc |...!.&..|..\"....|
|00004af0| 19 cd ca 08 ce 5c 22 89 | 10 0a 86 35 00 cb 5c 22 |.....\".|...5..\"|
|00004b00| 89 11 40 3f 85 42 00 cc | 88 82 29 00 88 0b 85 4b |..@?.B..|..)....K|
|00004b10| 00 09 40 cf 3d 85 51 00 | d0 09 21 29 88 08 82 71 |..@.=.Q.|..!)...q|
|00004b20| 00 08 3a 3f 86 61 00 08 | 40 d1 3e 83 6d 00 d2 d3 |..:?.a..|@.>.m...|
|00004b30| 08 21 0a 5c 22 82 71 00 | d4 08 d5 5c 22 87 22 20 |.!.\".q.|...\"." |
|00004b40| 5b 6e 20 72 65 73 20 69 | 74 65 72 73 20 63 61 6c |[n res i|ters cal|
|00004b50| 63 2d 76 65 72 62 6f 73 | 65 2d 6e 65 78 74 70 72 |c-verbos|e-nextpr|
|00004b60| 69 6d 65 20 28 62 69 67 | 70 6f 73 20 62 69 67 6e |ime (big|pos bign|
|00004b70| 65 67 29 20 6d 61 74 68 | 2d 63 6f 6d 70 61 72 65 |eg) math|-compare|
|00004b80| 20 34 20 2d 31 20 32 20 | 6d 61 74 68 2d 65 76 65 | 4 -1 2 |math-eve|
|00004b90| 6e 70 20 6d 61 74 68 2d | 61 64 64 20 31 20 6e 69 |np math-|add 1 ni|
|00004ba0| 6c 20 6d 61 74 68 2d 70 | 72 69 6d 65 2d 74 65 73 |l math-p|rime-tes|
|00004bb0| 74 20 2d 32 20 6d 61 79 | 62 65 20 63 61 6c 63 2d |t -2 may|be calc-|
|00004bc0| 72 65 70 6f 72 74 2d 70 | 72 69 6d 65 2d 74 65 73 |report-p|rime-tes|
|00004bd0| 74 20 28 62 69 67 70 6f | 73 20 62 69 67 6e 65 67 |t (bigpo|s bigneg|
|00004be0| 20 66 72 61 63 20 66 6c | 6f 61 74 29 20 63 61 6c | frac fl|oat) cal|
|00004bf0| 63 46 75 6e 63 2d 70 72 | 65 76 70 72 69 6d 65 20 |cFunc-pr|evprime |
|00004c00| 6d 61 74 68 2d 63 65 69 | 6c 69 6e 67 20 6d 61 74 |math-cei|ling mat|
|00004c10| 68 2d 72 65 6a 65 63 74 | 2d 61 72 67 20 69 6e 74 |h-reject|-arg int|
|00004c20| 65 67 65 72 70 5d 20 31 | 31 29 29 0a 0a 28 64 65 |egerp] 1|1))..(de|
|00004c30| 66 75 6e 20 6d 61 74 68 | 2d 6e 65 78 74 2d 73 6d |fun math|-next-sm|
|00004c40| 61 6c 6c 2d 70 72 69 6d | 65 20 28 6e 29 20 28 62 |all-prim|e (n) (b|
|00004c50| 79 74 65 2d 63 6f 64 65 | 20 22 c5 08 21 85 09 00 |yte-code| "..!...|
|00004c60| 08 c6 56 83 3f 00 c7 0b | 47 c8 1c 1a 19 0a 09 5a |..V.?...|G......Z|
|00004c70| c9 56 85 37 00 08 0b ca | 09 0a 5c 5c c7 5c 22 89 |.V.7....|..\\.\".|
|00004c80| 14 48 56 83 30 00 0c 89 | 11 82 33 00 0c 89 12 88 |.HV.0...|..3.....|
|00004c90| 82 13 00 88 0b 0a 48 2b | 82 40 00 c6 87 22 20 5b |......H+|.@..." [|
|00004ca0| 6e 20 6c 6f 20 68 69 20 | 6d 61 74 68 2d 70 72 69 |n lo hi |math-pri|
|00004cb0| 6d 65 73 2d 74 61 62 6c | 65 20 6d 69 64 20 69 6e |mes-tabl|e mid in|
|00004cc0| 74 65 67 65 72 70 20 32 | 20 2d 31 20 6e 69 6c 20 |tegerp 2| -1 nil |
|00004cd0| 31 20 61 73 68 5d 20 37 | 29 29 0a 0a 28 64 65 66 |1 ash] 7|))..(def|
|00004ce0| 63 6f 6e 73 74 20 6d 61 | 74 68 2d 70 72 69 6d 65 |const ma|th-prime|
|00004cf0| 73 2d 74 61 62 6c 65 20 | 5b 32 20 33 20 35 20 37 |s-table |[2 3 5 7|
|00004d00| 20 31 31 20 31 33 20 31 | 37 20 31 39 20 32 33 20 | 11 13 1|7 19 23 |
|00004d10| 32 39 20 33 31 20 33 37 | 20 34 31 20 34 33 20 34 |29 31 37| 41 43 4|
|00004d20| 37 20 35 33 20 35 39 20 | 36 31 20 36 37 20 37 31 |7 53 59 |61 67 71|
|00004d30| 20 37 33 20 37 39 20 38 | 33 20 38 39 20 39 37 20 | 73 79 8|3 89 97 |
|00004d40| 31 30 31 20 31 30 33 20 | 31 30 37 20 31 30 39 20 |101 103 |107 109 |
|00004d50| 31 31 33 20 31 32 37 20 | 31 33 31 20 31 33 37 20 |113 127 |131 137 |
|00004d60| 31 33 39 20 31 34 39 20 | 31 35 31 20 31 35 37 20 |139 149 |151 157 |
|00004d70| 31 36 33 20 31 36 37 20 | 31 37 33 20 31 37 39 20 |163 167 |173 179 |
|00004d80| 31 38 31 20 31 39 31 20 | 31 39 33 20 31 39 37 20 |181 191 |193 197 |
|00004d90| 31 39 39 20 32 31 31 20 | 32 32 33 20 32 32 37 20 |199 211 |223 227 |
|00004da0| 32 32 39 20 32 33 33 20 | 32 33 39 20 32 34 31 20 |229 233 |239 241 |
|00004db0| 32 35 31 20 32 35 37 20 | 32 36 33 20 32 36 39 20 |251 257 |263 269 |
|00004dc0| 32 37 31 20 32 37 37 20 | 32 38 31 20 32 38 33 20 |271 277 |281 283 |
|00004dd0| 32 39 33 20 33 30 37 20 | 33 31 31 20 33 31 33 20 |293 307 |311 313 |
|00004de0| 33 31 37 20 33 33 31 20 | 33 33 37 20 33 34 37 20 |317 331 |337 347 |
|00004df0| 33 34 39 20 33 35 33 20 | 33 35 39 20 33 36 37 20 |349 353 |359 367 |
|00004e00| 33 37 33 20 33 37 39 20 | 33 38 33 20 33 38 39 20 |373 379 |383 389 |
|00004e10| 33 39 37 20 34 30 31 20 | 34 30 39 20 34 31 39 20 |397 401 |409 419 |
|00004e20| 34 32 31 20 34 33 31 20 | 34 33 33 20 34 33 39 20 |421 431 |433 439 |
|00004e30| 34 34 33 20 34 34 39 20 | 34 35 37 20 34 36 31 20 |443 449 |457 461 |
|00004e40| 34 36 33 20 34 36 37 20 | 34 37 39 20 34 38 37 20 |463 467 |479 487 |
|00004e50| 34 39 31 20 34 39 39 20 | 35 30 33 20 35 30 39 20 |491 499 |503 509 |
|00004e60| 35 32 31 20 35 32 33 20 | 35 34 31 20 35 34 37 20 |521 523 |541 547 |
|00004e70| 35 35 37 20 35 36 33 20 | 35 36 39 20 35 37 31 20 |557 563 |569 571 |
|00004e80| 35 37 37 20 35 38 37 20 | 35 39 33 20 35 39 39 20 |577 587 |593 599 |
|00004e90| 36 30 31 20 36 30 37 20 | 36 31 33 20 36 31 37 20 |601 607 |613 617 |
|00004ea0| 36 31 39 20 36 33 31 20 | 36 34 31 20 36 34 33 20 |619 631 |641 643 |
|00004eb0| 36 34 37 20 36 35 33 20 | 36 35 39 20 36 36 31 20 |647 653 |659 661 |
|00004ec0| 36 37 33 20 36 37 37 20 | 36 38 33 20 36 39 31 20 |673 677 |683 691 |
|00004ed0| 37 30 31 20 37 30 39 20 | 37 31 39 20 37 32 37 20 |701 709 |719 727 |
|00004ee0| 37 33 33 20 37 33 39 20 | 37 34 33 20 37 35 31 20 |733 739 |743 751 |
|00004ef0| 37 35 37 20 37 36 31 20 | 37 36 39 20 37 37 33 20 |757 761 |769 773 |
|00004f00| 37 38 37 20 37 39 37 20 | 38 30 39 20 38 31 31 20 |787 797 |809 811 |
|00004f10| 38 32 31 20 38 32 33 20 | 38 32 37 20 38 32 39 20 |821 823 |827 829 |
|00004f20| 38 33 39 20 38 35 33 20 | 38 35 37 20 38 35 39 20 |839 853 |857 859 |
|00004f30| 38 36 33 20 38 37 37 20 | 38 38 31 20 38 38 33 20 |863 877 |881 883 |
|00004f40| 38 38 37 20 39 30 37 20 | 39 31 31 20 39 31 39 20 |887 907 |911 919 |
|00004f50| 39 32 39 20 39 33 37 20 | 39 34 31 20 39 34 37 20 |929 937 |941 947 |
|00004f60| 39 35 33 20 39 36 37 20 | 39 37 31 20 39 37 37 20 |953 967 |971 977 |
|00004f70| 39 38 33 20 39 39 31 20 | 39 39 37 20 31 30 30 39 |983 991 |997 1009|
|00004f80| 20 31 30 31 33 20 31 30 | 31 39 20 31 30 32 31 20 | 1013 10|19 1021 |
|00004f90| 31 30 33 31 20 31 30 33 | 33 20 31 30 33 39 20 31 |1031 103|3 1039 1|
|00004fa0| 30 34 39 20 31 30 35 31 | 20 31 30 36 31 20 31 30 |049 1051| 1061 10|
|00004fb0| 36 33 20 31 30 36 39 20 | 31 30 38 37 20 31 30 39 |63 1069 |1087 109|
|00004fc0| 31 20 31 30 39 33 20 31 | 30 39 37 20 31 31 30 33 |1 1093 1|097 1103|
|00004fd0| 20 31 31 30 39 20 31 31 | 31 37 20 31 31 32 33 20 | 1109 11|17 1123 |
|00004fe0| 31 31 32 39 20 31 31 35 | 31 20 31 31 35 33 20 31 |1129 115|1 1153 1|
|00004ff0| 31 36 33 20 31 31 37 31 | 20 31 31 38 31 20 31 31 |163 1171| 1181 11|
|00005000| 38 37 20 31 31 39 33 20 | 31 32 30 31 20 31 32 31 |87 1193 |1201 121|
|00005010| 33 20 31 32 31 37 20 31 | 32 32 33 20 31 32 32 39 |3 1217 1|223 1229|
|00005020| 20 31 32 33 31 20 31 32 | 33 37 20 31 32 34 39 20 | 1231 12|37 1249 |
|00005030| 31 32 35 39 20 31 32 37 | 37 20 31 32 37 39 20 31 |1259 127|7 1279 1|
|00005040| 32 38 33 20 31 32 38 39 | 20 31 32 39 31 20 31 32 |283 1289| 1291 12|
|00005050| 39 37 20 31 33 30 31 20 | 31 33 30 33 20 31 33 30 |97 1301 |1303 130|
|00005060| 37 20 31 33 31 39 20 31 | 33 32 31 20 31 33 32 37 |7 1319 1|321 1327|
|00005070| 20 31 33 36 31 20 31 33 | 36 37 20 31 33 37 33 20 | 1361 13|67 1373 |
|00005080| 31 33 38 31 20 31 33 39 | 39 20 31 34 30 39 20 31 |1381 139|9 1409 1|
|00005090| 34 32 33 20 31 34 32 37 | 20 31 34 32 39 20 31 34 |423 1427| 1429 14|
|000050a0| 33 33 20 31 34 33 39 20 | 31 34 34 37 20 31 34 35 |33 1439 |1447 145|
|000050b0| 31 20 31 34 35 33 20 31 | 34 35 39 20 31 34 37 31 |1 1453 1|459 1471|
|000050c0| 20 31 34 38 31 20 31 34 | 38 33 20 31 34 38 37 20 | 1481 14|83 1487 |
|000050d0| 31 34 38 39 20 31 34 39 | 33 20 31 34 39 39 20 31 |1489 149|3 1499 1|
|000050e0| 35 31 31 20 31 35 32 33 | 20 31 35 33 31 20 31 35 |511 1523| 1531 15|
|000050f0| 34 33 20 31 35 34 39 20 | 31 35 35 33 20 31 35 35 |43 1549 |1553 155|
|00005100| 39 20 31 35 36 37 20 31 | 35 37 31 20 31 35 37 39 |9 1567 1|571 1579|
|00005110| 20 31 35 38 33 20 31 35 | 39 37 20 31 36 30 31 20 | 1583 15|97 1601 |
|00005120| 31 36 30 37 20 31 36 30 | 39 20 31 36 31 33 20 31 |1607 160|9 1613 1|
|00005130| 36 31 39 20 31 36 32 31 | 20 31 36 32 37 20 31 36 |619 1621| 1627 16|
|00005140| 33 37 20 31 36 35 37 20 | 31 36 36 33 20 31 36 36 |37 1657 |1663 166|
|00005150| 37 20 31 36 36 39 20 31 | 36 39 33 20 31 36 39 37 |7 1669 1|693 1697|
|00005160| 20 31 36 39 39 20 31 37 | 30 39 20 31 37 32 31 20 | 1699 17|09 1721 |
|00005170| 31 37 32 33 20 31 37 33 | 33 20 31 37 34 31 20 31 |1723 173|3 1741 1|
|00005180| 37 34 37 20 31 37 35 33 | 20 31 37 35 39 20 31 37 |747 1753| 1759 17|
|00005190| 37 37 20 31 37 38 33 20 | 31 37 38 37 20 31 37 38 |77 1783 |1787 178|
|000051a0| 39 20 31 38 30 31 20 31 | 38 31 31 20 31 38 32 33 |9 1801 1|811 1823|
|000051b0| 20 31 38 33 31 20 31 38 | 34 37 20 31 38 36 31 20 | 1831 18|47 1861 |
|000051c0| 31 38 36 37 20 31 38 37 | 31 20 31 38 37 33 20 31 |1867 187|1 1873 1|
|000051d0| 38 37 37 20 31 38 37 39 | 20 31 38 38 39 20 31 39 |877 1879| 1889 19|
|000051e0| 30 31 20 31 39 30 37 20 | 31 39 31 33 20 31 39 33 |01 1907 |1913 193|
|000051f0| 31 20 31 39 33 33 20 31 | 39 34 39 20 31 39 35 31 |1 1933 1|949 1951|
|00005200| 20 31 39 37 33 20 31 39 | 37 39 20 31 39 38 37 20 | 1973 19|79 1987 |
|00005210| 31 39 39 33 20 31 39 39 | 37 20 31 39 39 39 20 32 |1993 199|7 1999 2|
|00005220| 30 30 33 20 32 30 31 31 | 20 32 30 31 37 20 32 30 |003 2011| 2017 20|
|00005230| 32 37 20 32 30 32 39 20 | 32 30 33 39 20 32 30 35 |27 2029 |2039 205|
|00005240| 33 20 32 30 36 33 20 32 | 30 36 39 20 32 30 38 31 |3 2063 2|069 2081|
|00005250| 20 32 30 38 33 20 32 30 | 38 37 20 32 30 38 39 20 | 2083 20|87 2089 |
|00005260| 32 30 39 39 20 32 31 31 | 31 20 32 31 31 33 20 32 |2099 211|1 2113 2|
|00005270| 31 32 39 20 32 31 33 31 | 20 32 31 33 37 20 32 31 |129 2131| 2137 21|
|00005280| 34 31 20 32 31 34 33 20 | 32 31 35 33 20 32 31 36 |41 2143 |2153 216|
|00005290| 31 20 32 31 37 39 20 32 | 32 30 33 20 32 32 30 37 |1 2179 2|203 2207|
|000052a0| 20 32 32 31 33 20 32 32 | 32 31 20 32 32 33 37 20 | 2213 22|21 2237 |
|000052b0| 32 32 33 39 20 32 32 34 | 33 20 32 32 35 31 20 32 |2239 224|3 2251 2|
|000052c0| 32 36 37 20 32 32 36 39 | 20 32 32 37 33 20 32 32 |267 2269| 2273 22|
|000052d0| 38 31 20 32 32 38 37 20 | 32 32 39 33 20 32 32 39 |81 2287 |2293 229|
|000052e0| 37 20 32 33 30 39 20 32 | 33 31 31 20 32 33 33 33 |7 2309 2|311 2333|
|000052f0| 20 32 33 33 39 20 32 33 | 34 31 20 32 33 34 37 20 | 2339 23|41 2347 |
|00005300| 32 33 35 31 20 32 33 35 | 37 20 32 33 37 31 20 32 |2351 235|7 2371 2|
|00005310| 33 37 37 20 32 33 38 31 | 20 32 33 38 33 20 32 33 |377 2381| 2383 23|
|00005320| 38 39 20 32 33 39 33 20 | 32 33 39 39 20 32 34 31 |89 2393 |2399 241|
|00005330| 31 20 32 34 31 37 20 32 | 34 32 33 20 32 34 33 37 |1 2417 2|423 2437|
|00005340| 20 32 34 34 31 20 32 34 | 34 37 20 32 34 35 39 20 | 2441 24|47 2459 |
|00005350| 32 34 36 37 20 32 34 37 | 33 20 32 34 37 37 20 32 |2467 247|3 2477 2|
|00005360| 35 30 33 20 32 35 32 31 | 20 32 35 33 31 20 32 35 |503 2521| 2531 25|
|00005370| 33 39 20 32 35 34 33 20 | 32 35 34 39 20 32 35 35 |39 2543 |2549 255|
|00005380| 31 20 32 35 35 37 20 32 | 35 37 39 20 32 35 39 31 |1 2557 2|579 2591|
|00005390| 20 32 35 39 33 20 32 36 | 30 39 20 32 36 31 37 20 | 2593 26|09 2617 |
|000053a0| 32 36 32 31 20 32 36 33 | 33 20 32 36 34 37 20 32 |2621 263|3 2647 2|
|000053b0| 36 35 37 20 32 36 35 39 | 20 32 36 36 33 20 32 36 |657 2659| 2663 26|
|000053c0| 37 31 20 32 36 37 37 20 | 32 36 38 33 20 32 36 38 |71 2677 |2683 268|
|000053d0| 37 20 32 36 38 39 20 32 | 36 39 33 20 32 36 39 39 |7 2689 2|693 2699|
|000053e0| 20 32 37 30 37 20 32 37 | 31 31 20 32 37 31 33 20 | 2707 27|11 2713 |
|000053f0| 32 37 31 39 20 32 37 32 | 39 20 32 37 33 31 20 32 |2719 272|9 2731 2|
|00005400| 37 34 31 20 32 37 34 39 | 20 32 37 35 33 20 32 37 |741 2749| 2753 27|
|00005410| 36 37 20 32 37 37 37 20 | 32 37 38 39 20 32 37 39 |67 2777 |2789 279|
|00005420| 31 20 32 37 39 37 20 32 | 38 30 31 20 32 38 30 33 |1 2797 2|801 2803|
|00005430| 20 32 38 31 39 20 32 38 | 33 33 20 32 38 33 37 20 | 2819 28|33 2837 |
|00005440| 32 38 34 33 20 32 38 35 | 31 20 32 38 35 37 20 32 |2843 285|1 2857 2|
|00005450| 38 36 31 20 32 38 37 39 | 20 32 38 38 37 20 32 38 |861 2879| 2887 28|
|00005460| 39 37 20 32 39 30 33 20 | 32 39 30 39 20 32 39 31 |97 2903 |2909 291|
|00005470| 37 20 32 39 32 37 20 32 | 39 33 39 20 32 39 35 33 |7 2927 2|939 2953|
|00005480| 20 32 39 35 37 20 32 39 | 36 33 20 32 39 36 39 20 | 2957 29|63 2969 |
|00005490| 32 39 37 31 20 32 39 39 | 39 20 33 30 30 31 20 33 |2971 299|9 3001 3|
|000054a0| 30 31 31 20 33 30 31 39 | 20 33 30 32 33 20 33 30 |011 3019| 3023 30|
|000054b0| 33 37 20 33 30 34 31 20 | 33 30 34 39 20 33 30 36 |37 3041 |3049 306|
|000054c0| 31 20 33 30 36 37 20 33 | 30 37 39 20 33 30 38 33 |1 3067 3|079 3083|
|000054d0| 20 33 30 38 39 20 33 31 | 30 39 20 33 31 31 39 20 | 3089 31|09 3119 |
|000054e0| 33 31 32 31 20 33 31 33 | 37 20 33 31 36 33 20 33 |3121 313|7 3163 3|
|000054f0| 31 36 37 20 33 31 36 39 | 20 33 31 38 31 20 33 31 |167 3169| 3181 31|
|00005500| 38 37 20 33 31 39 31 20 | 33 32 30 33 20 33 32 30 |87 3191 |3203 320|
|00005510| 39 20 33 32 31 37 20 33 | 32 32 31 20 33 32 32 39 |9 3217 3|221 3229|
|00005520| 20 33 32 35 31 20 33 32 | 35 33 20 33 32 35 37 20 | 3251 32|53 3257 |
|00005530| 33 32 35 39 20 33 32 37 | 31 20 33 32 39 39 20 33 |3259 327|1 3299 3|
|00005540| 33 30 31 20 33 33 30 37 | 20 33 33 31 33 20 33 33 |301 3307| 3313 33|
|00005550| 31 39 20 33 33 32 33 20 | 33 33 32 39 20 33 33 33 |19 3323 |3329 333|
|00005560| 31 20 33 33 34 33 20 33 | 33 34 37 20 33 33 35 39 |1 3343 3|347 3359|
|00005570| 20 33 33 36 31 20 33 33 | 37 31 20 33 33 37 33 20 | 3361 33|71 3373 |
|00005580| 33 33 38 39 20 33 33 39 | 31 20 33 34 30 37 20 33 |3389 339|1 3407 3|
|00005590| 34 31 33 20 33 34 33 33 | 20 33 34 34 39 20 33 34 |413 3433| 3449 34|
|000055a0| 35 37 20 33 34 36 31 20 | 33 34 36 33 20 33 34 36 |57 3461 |3463 346|
|000055b0| 37 20 33 34 36 39 20 33 | 34 39 31 20 33 34 39 39 |7 3469 3|491 3499|
|000055c0| 20 33 35 31 31 20 33 35 | 31 37 20 33 35 32 37 20 | 3511 35|17 3527 |
|000055d0| 33 35 32 39 20 33 35 33 | 33 20 33 35 33 39 20 33 |3529 353|3 3539 3|
|000055e0| 35 34 31 20 33 35 34 37 | 20 33 35 35 37 20 33 35 |541 3547| 3557 35|
|000055f0| 35 39 20 33 35 37 31 20 | 33 35 38 31 20 33 35 38 |59 3571 |3581 358|
|00005600| 33 20 33 35 39 33 20 33 | 36 30 37 20 33 36 31 33 |3 3593 3|607 3613|
|00005610| 20 33 36 31 37 20 33 36 | 32 33 20 33 36 33 31 20 | 3617 36|23 3631 |
|00005620| 33 36 33 37 20 33 36 34 | 33 20 33 36 35 39 20 33 |3637 364|3 3659 3|
|00005630| 36 37 31 20 33 36 37 33 | 20 33 36 37 37 20 33 36 |671 3673| 3677 36|
|00005640| 39 31 20 33 36 39 37 20 | 33 37 30 31 20 33 37 30 |91 3697 |3701 370|
|00005650| 39 20 33 37 31 39 20 33 | 37 32 37 20 33 37 33 33 |9 3719 3|727 3733|
|00005660| 20 33 37 33 39 20 33 37 | 36 31 20 33 37 36 37 20 | 3739 37|61 3767 |
|00005670| 33 37 36 39 20 33 37 37 | 39 20 33 37 39 33 20 33 |3769 377|9 3793 3|
|00005680| 37 39 37 20 33 38 30 33 | 20 33 38 32 31 20 33 38 |797 3803| 3821 38|
|00005690| 32 33 20 33 38 33 33 20 | 33 38 34 37 20 33 38 35 |23 3833 |3847 385|
|000056a0| 31 20 33 38 35 33 20 33 | 38 36 33 20 33 38 37 37 |1 3853 3|863 3877|
|000056b0| 20 33 38 38 31 20 33 38 | 38 39 20 33 39 30 37 20 | 3881 38|89 3907 |
|000056c0| 33 39 31 31 20 33 39 31 | 37 20 33 39 31 39 20 33 |3911 391|7 3919 3|
|000056d0| 39 32 33 20 33 39 32 39 | 20 33 39 33 31 20 33 39 |923 3929| 3931 39|
|000056e0| 34 33 20 33 39 34 37 20 | 33 39 36 37 20 33 39 38 |43 3947 |3967 398|
|000056f0| 39 20 34 30 30 31 20 34 | 30 30 33 20 34 30 30 37 |9 4001 4|003 4007|
|00005700| 20 34 30 31 33 20 34 30 | 31 39 20 34 30 32 31 20 | 4013 40|19 4021 |
|00005710| 34 30 32 37 20 34 30 34 | 39 20 34 30 35 31 20 34 |4027 404|9 4051 4|
|00005720| 30 35 37 20 34 30 37 33 | 20 34 30 37 39 20 34 30 |057 4073| 4079 40|
|00005730| 39 31 20 34 30 39 33 20 | 34 30 39 39 20 34 31 31 |91 4093 |4099 411|
|00005740| 31 20 34 31 32 37 20 34 | 31 32 39 20 34 31 33 33 |1 4127 4|129 4133|
|00005750| 20 34 31 33 39 20 34 31 | 35 33 20 34 31 35 37 20 | 4139 41|53 4157 |
|00005760| 34 31 35 39 20 34 31 37 | 37 20 34 32 30 31 20 34 |4159 417|7 4201 4|
|00005770| 32 31 31 20 34 32 31 37 | 20 34 32 31 39 20 34 32 |211 4217| 4219 42|
|00005780| 32 39 20 34 32 33 31 20 | 34 32 34 31 20 34 32 34 |29 4231 |4241 424|
|00005790| 33 20 34 32 35 33 20 34 | 32 35 39 20 34 32 36 31 |3 4253 4|259 4261|
|000057a0| 20 34 32 37 31 20 34 32 | 37 33 20 34 32 38 33 20 | 4271 42|73 4283 |
|000057b0| 34 32 38 39 20 34 32 39 | 37 20 34 33 32 37 20 34 |4289 429|7 4327 4|
|000057c0| 33 33 37 20 34 33 33 39 | 20 34 33 34 39 20 34 33 |337 4339| 4349 43|
|000057d0| 35 37 20 34 33 36 33 20 | 34 33 37 33 20 34 33 39 |57 4363 |4373 439|
|000057e0| 31 20 34 33 39 37 20 34 | 34 30 39 20 34 34 32 31 |1 4397 4|409 4421|
|000057f0| 20 34 34 32 33 20 34 34 | 34 31 20 34 34 34 37 20 | 4423 44|41 4447 |
|00005800| 34 34 35 31 20 34 34 35 | 37 20 34 34 36 33 20 34 |4451 445|7 4463 4|
|00005810| 34 38 31 20 34 34 38 33 | 20 34 34 39 33 20 34 35 |481 4483| 4493 45|
|00005820| 30 37 20 34 35 31 33 20 | 34 35 31 37 20 34 35 31 |07 4513 |4517 451|
|00005830| 39 20 34 35 32 33 20 34 | 35 34 37 20 34 35 34 39 |9 4523 4|547 4549|
|00005840| 20 34 35 36 31 20 34 35 | 36 37 20 34 35 38 33 20 | 4561 45|67 4583 |
|00005850| 34 35 39 31 20 34 35 39 | 37 20 34 36 30 33 20 34 |4591 459|7 4603 4|
|00005860| 36 32 31 20 34 36 33 37 | 20 34 36 33 39 20 34 36 |621 4637| 4639 46|
|00005870| 34 33 20 34 36 34 39 20 | 34 36 35 31 20 34 36 35 |43 4649 |4651 465|
|00005880| 37 20 34 36 36 33 20 34 | 36 37 33 20 34 36 37 39 |7 4663 4|673 4679|
|00005890| 20 34 36 39 31 20 34 37 | 30 33 20 34 37 32 31 20 | 4691 47|03 4721 |
|000058a0| 34 37 32 33 20 34 37 32 | 39 20 34 37 33 33 20 34 |4723 472|9 4733 4|
|000058b0| 37 35 31 20 34 37 35 39 | 20 34 37 38 33 20 34 37 |751 4759| 4783 47|
|000058c0| 38 37 20 34 37 38 39 20 | 34 37 39 33 20 34 37 39 |87 4789 |4793 479|
|000058d0| 39 20 34 38 30 31 20 34 | 38 31 33 20 34 38 31 37 |9 4801 4|813 4817|
|000058e0| 20 34 38 33 31 20 34 38 | 36 31 20 34 38 37 31 20 | 4831 48|61 4871 |
|000058f0| 34 38 37 37 20 34 38 38 | 39 20 34 39 30 33 20 34 |4877 488|9 4903 4|
|00005900| 39 30 39 20 34 39 31 39 | 20 34 39 33 31 20 34 39 |909 4919| 4931 49|
|00005910| 33 33 20 34 39 33 37 20 | 34 39 34 33 20 34 39 35 |33 4937 |4943 495|
|00005920| 31 20 34 39 35 37 20 34 | 39 36 37 20 34 39 36 39 |1 4957 4|967 4969|
|00005930| 20 34 39 37 33 20 34 39 | 38 37 20 34 39 39 33 20 | 4973 49|87 4993 |
|00005940| 34 39 39 39 20 35 30 30 | 33 5d 29 0a             |4999 500|3]).    |
+--------+-------------------------+-------------------------+--------+--------+