# FASL compiled from "/home/common-lisp.ru/yavannadil/oci/oci.lisp" at Monday, July 14, 2008 05:55:40 AM [+0] on cymraeg.ru using SBCL version 1.0.17 X86-64M1.0.17'(:GENCGC :SB-PACKAGE-LOCKS :SB-UNICODE)QSB-IMPLR %DEFPACKAGEOCI COMMON-LISPCOEDENMKLIST INTERLEAVEGROUP GRAPHICALIZE GRAPH->LINES IMAGE->LINES IMAGE->BLOCKS BLOCKS->GRAPH SHRINK-LSTINSTANTIATE-RECTANGLE MERGE-BLOCKS HAF-TRANSFORM MOUNT-BLOCKSBRESENHAM-LINEDITER MAKE-GRAPHDIJKSTRA-SHORTEST-PATH WIDEN-LINESRENDER-SVG-PATHLINES->SVG-PATH TREE->LINESREDRAWWORSEN-VISIBILITY ASSIGNMENTMAKE-COST-MATRIX GRAPH-COSTGRAPH43 ADD23! GRAFS->TREE" GRAFS->FILE# GATHER-FRUIT$ ALIST->HASH% OBSERVE-WORD&BOXIFY'CARVE-INTO-BOXES( COPY-RECT) WRITE-NETPBM* READ-NETPBM+FOURIER-SEARCH,NEGATE-GRAYSCALE-IMAGE-LOGARITHM-FILTER. SHRINK-IMAGE/FOURIER-MELLIN-SEARCH0 MARK-IMAGE1 JOIN-CENTRES2FILTER-CENTRES3 RESTORE-RECT4 IMAGE-MEAN5HOUGH+SOBEL-CIRCLE-TRANSFORM6GRAYSCALE-IMAGE7AVERAGE8EUCLIDEAN-DISTANCE9TRESHOLD-FOURIER!: PAD-IMAGE;6<=$$,/home/common-lisp.ru/yavannadil/oci/oci.lisp>QSB-C ?DEFINITION-SOURCE-LOCATIONRQR(A$$$-BQLSTRUCTURE-OBJECTRB(D$$$-EQSB-SYS FSTRUCTURE!OBJECTRBE(H$$$-I(J$$$-K1L8 LSETL *PACKAGE*8 %DEFUNQOCIR PCREF>R#IBL ARRAY-RANKIHHHHkHP HBLULMLEHIHHIIHHkHP HBLULMLEH u1HeHmAIHIHH9pAuIH|IHH9~H; IP)IH1IH9HHIH9{HIHu` H OH H H OH  N " "N=uQ PIMAGE PI PJyLFUNCTION{LVALUESL &OPTIONAL~$$>K18O PDIJKSTRA-SHORTEST-PATH>#m BNELTNENDNALLOW-OTHER-KEYSLARRAY-DIMENSION< V VECTOR-FILL*RQNABSOLUTERQ GENERIC-+RQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region:QNABSOLUTER boxed_region,QNABSOLUTER boxed_region =z|LMEMBER} ٍ  ?&OPTIONAL-DISPATCH PGRAPHL&KEYLELT$ PENDL1-$zY$$>K18LPROCLAIMLINLINE P NEW-POINT8O>#B$#$?$$(]^$$$$N$$#$$#(`ah1 $H#$H$$(]^$$$#$$#(h1 (r1;2EHeHu[Hڀ %h L%IKH9 %v?H %IHI4%h t HYHyHHeHm NjL%AYQNABSOLUTER alloc_trampQNABSOLUTER boxed_regionjQNABSOLUTER boxed_region`QNABSOLUTER boxed_regionT=wxz|LCONS} ?LAMBDA-WITH-LEXENVLBLOCKwx$$>K18 PPOINT-I 8O> $zB$$p$?$$(]^$$$$N$$#( `a h1  $H$u$H$$(]^$$$$O( h1 (r1;z2EHeHu+Hʋ$<u%HHPHeHm N O= PPz~LCAR$$>K18 PPOINT-J8O>$zB$$p$?$$(]^$ $$$N$$#(`a h1 !$H$u$H$$(]^$ $$$O("h1 #($r1%&;z2EHeHu+Hʋ$<u%HHPHeHm N O='(LCDR*+,$$ >K1-8O PSQUARE>/#B$#$?$$(]^$ $$$N$$#(/`a.0h1 1$L#$L$$(]^$ $,#$D(2.h1 3(4.r156;2EHeHu;HHuHHL%AHBHuHeHm NQNABSOLUTERQ GENERIC-*RV=9. PNUM;z|LNUMBER}=>?$$ >K1@8O PAVERAGE>B#BL+<$##$$(]^$ $$$D(C`aADh1 E(F ? VARARGS-ENTRYAHr1IJ;2EKH]H)HHHvLI)M1ONIHuHHUHtH}Ht HuHeHMHMHt  gH %h L%LH9%H%IHRHHHHRHHBHuHB 4%h t HM1H tHIIH tH$<t OLEMu1HeHmHHpH HHܺ H9tqHIH$<t OHH)HHH)HSH{HsHHkHPHBLEIHUHHH%  HB`H+%RL%AZ QNABSOLUTER alloc_trampQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=PAQL&REST PARGSTzRUYVW$$ >K1X8O PEUCLIDEAN-DISTANCE>Z#1BLSQRT<$# $?$$(]^$ $$$N$$#$$#([`aY\h1 ]$Q#%$Q$$(]^$$$d$$#(^Yh1 _(`r1ab;12EHeHHUH}HU$<HRH}؋$<HL%AHBHHuHEHPHEHxL%AHBLLEHuHHL%AHBHULEIIL%AHBHHUL%AHBHu` N  QNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-*RQNABSOLUTERQ GENERIC-*RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC--R}=mY PP1 PP2pz|LOR.r/stL DOUBLE-FLOATsvwL SINGLE-FLOATryzLCOMPLEXx|{u}~}$ $$$$$$ $$$$$(($$ >K18O P MAKE-GRAPH>#BK18O PDITER>##B<<<UX$#$B$$(]^$$$$N$$#$$#$$#(`ah1 $r#$r$$(]^$$,#$d$,#$D( ?&OPTIONAL-PROCESSORh1 ###$$(]$ ? OPTIONAL-ARGS$$($$ PS#$D$ PU##$ PV#O#(  ?HAIRY-ARG-PROCESSORh1 (r1̵;#2 EHeLHt!HtHuLLV NHL HA HHH1LUHuHCHkHP HBHuLULILI uIHeHm %h L%IsH94%$H4%IHv4%h t HuLFLVLI$<AA<<AIHIHH9II$<urAAK18O P READ-NETPBM>#BLOPENK18O P WRITE-NETPBM>#BN DIRECTIONNOUTPUTN IF-EXISTSN SUPERSEDENIF-DOES-NOT-EXISTNCREATE<pbmLSEARCH<P2< ~a~%~a ~a~%LFORMAT<<255~%R<W<~a[~%~a[<$#P$B$$(]^$$$$N$$#$$#(`ah1 $T#U$T$$(]^$$$#$$#D(h1 ###$$(+O^$( CLEANUP-FUN-[WRITE-NETPBM]345h1  (!r1""#;2"EHHHUH}HH8HUH=H5HHCHHCHHCHHCH8HkHP HBHXO %h L%ICH9%tH%IHBH@HH4%h t H`H% H@H%8 H %8 HHHPH8HhH%h HHiHHAHhH%h HHHH}HHkHP HBH H HMHHHU1HHkHP HBHUHHHUHxHkHP HBHUHEHH(HXH=LHuHEHCHEHCH9(HkHP HBHH0HUH=1HC HCHC H0HkHP HBH t/HHHXH=HHkHP HBHEHEH;EHHHXH=HvHkHP HBHUH` HHH%h HH%h HHHH`HXHBHH HEHUHeHmHEHEH;E|HMHHM7HH0HUH=1HC HCHC H0HkHP HBH bHU0L%AHBH HHHUH}HkHP HBHHUHEH@)HMHI1H]H}H9HHH]HEH9HHHHHkHP HBHHHHXH=HHkHP HBHUL%AHBHUHMHHM}HEH OHEHHHXH=H:HkHP HBHHHUH@HkHP HBHHUHEH@)HMHI1H]H}H9HHH]HEH9HHHHHkHP HBHHHHXH=HrHkHP HBHEH OH HMoHUH]HMHHHPH%8 H %8 H@H% H9t8HBH tHRtHJHHHBHBHH9uH% HHHH`HXHBHHHEHEH]HML%AH u HeHmHsHHHH=HHkHP HB뿐 NjL%AX " "N " "NQNABSOLUTER alloc_tramp[QNABSOLUTERQ ?UNWINDRQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC->R QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=.v/z|qL CHARACTER12L BASE-STRINGLNULL5}678$$>K198O PPOINT<>;#!B$#$?$$(]^$$$$N$$#$$#(;`a:<h1 =$Q#$Q$$(]^$$$D$$$d(>:h1 ?(@r1AB;!2EHeHHUH}HU$<HRH}$<HL%AHBH uoHEHPHEHxL%AHBH u HeHmHEHPHEHxL%AHBH u źO 뾺O 뷐 N  QNABSOLUTERQ GENERIC-<RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-<R}=I: PA PBL$$$$$M$$$$$N(O(PQ$$>K1R8O P HOR-POINT<>T#!B$#$?$$(]^$$$$N$$#$$#(T`aSUh1 V$Q#$Q$$(]^$$$D$$$d(WSh1 X(Yr1Z[;!2EHeHHUH}HU$<HRH}$<HL%AHBH uoHEHPHEHxL%AHBH u HeHmHEHPHEHxL%AHBH u źO 뾺O 뷐 N  QNABSOLUTERQ GENERIC-<RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-<R}=bSL$$$$$c$$$$$d(e(fg$$>K1h8O P/-POINT<>j#!B$#$?$$(]^$$$$N$$#$$#(j`aikh1 l$Q#$Q$$(]^$$$D$$$d(mih1 n(or1pq;!2EHeHHUH}HU$<HRH}$<HL%AHBH uoHEHPHEHxL%AHBH u HeHmHEHPHEHxL%AHBH u źO 뾺O 뷐 N  QNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-<R}=xiL$$$$$y$$$$$z({(|}$$>K1~8># BNCURVE-Q1NANGLE V%PUTK1 %DEFPARAMETER<$# $?$$(]^$(NTOPLEVEL ?TOP-LEVEL-FORMLQUOTELLET$LSETFLGET$-#$-#$LDOTIMESJQ ?DEBUG-NAME-MARKERRBEI($$$-1 ?SOURCE-LOCATIONh1 (DEFPARAMETER SAXONSr1ȶȶ; 2EHeHHHSH=ThHPHkHP HBHHH7H= 8HHkHP HBHHH H=hHHkHP HBHHHH=8HHkHP HBHHHH=1HHkHP HBM1uHJTIHHEH*MH wHH fHnYHHfH~H HH=LEHHkHP HBLEII|HH(HH= HC HHCH(HkHP HB HeHm=z8O P ANGLE->TMP>#BLFLOOR<U$#$?$$(]^$$$$N$$#(`ah1 $M#$M$$(]^$$$$D(h1 (r1;2 EHeHHUHHHHR$<A<HHuHHHUH=VHWHkHP r HHHuu5HH|,HHH9HNH9v-HTHeHmH  N  LO "N=J$$(($$>K18O PANGLE~>#BLABS< GET2<$#$?$$(]^$$$$N$$#$$#$$#(`ah1 $U#$U$$(]^$$$#$$#$$#(h1 (r1;2 EHeHWHUH}HuHMH $<u ARQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC->RwQNABSOLUTERQ GENERIC--R@QNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC--R= PDIFF PSYM1 PSYM2z{|}$$>K18O P %ROTATE-POINT>#,B V %UNARY-ROUNDK1 8O P ROTATE-POINT>"#B/-DT! @"LCOSK158O P IMAGE->BLACKS>7# B<R<W?; 2 EHeHHUHHHU1HoHkHP HBHUHHHUȿHAHkHP HBHE HEHUHEHEqHHHUHHkHP HBHHUHEH@)HMHI1H]H}H9HHH]HEH9HHHHHkHP HB1L%AHBH HUпL%AHBHUЀ %h L%IKH9 %(H %IHI4%h t HUHQHUHQ %h L%ISH9%H%IHR4%h t HJHMHJHUHMHHMHEH;EHMHHMHEH;EZHUHHHmHkHP HBH}HuHMHMHݹ HmHccHEH 3 O N " "NjL%AYjL%AZ QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-=Rg=L6vMz|LLISTL UNSIGNED-BYTEUU}PQ$$$$$$$$R(S(TU$$>K1V8O PMOVE-AND-CLIP-RECTANGLE>X#wB7<$#@$K$$(]^$$$$N$$#$$#$$#$$#$$#$$#O(X`aWYh1 Z$m#E$m$$(]^$$#$$#$$#$$$#D$$#d$$#( [Wh1 \(]r1^_;w2EHeH]LELMH0HUH}HuH]LELMHE HEHMHMNHEHpHuHEHHHMЋ$<HHxHUL%AHBHUHuH~HUL%AHBHUHMt t$<(A<v<HU1L%AHBH uHU1L%AHBH t HUH}L%AHBH uAHUؿL%AHBHUH}L%AHBH p'HMt t$<@A<v<1HU1L%AHBH u"HU1L%AHBH VHUH}L%AHBH 2 %h L%IKH9 %H %IHI4%h t HUHQHUHQ %h L%ISH9%H%IHR4%h t HJHMHJHUHMЋ$<H HUHu` HEH O HeHmHEH O N jL%AY jL%AZF OQNABSOLUTER alloc_trampeQNABSOLUTER alloc_trampRQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regiondQNABSOLUTER boxed_regionVQNABSOLUTER boxed_regionJQNABSOLUTERQ GENERIC-<R&QNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-+R}QNABSOLUTERQ GENERIC-<R\QNABSOLUTERQ GENERIC-=R<QNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+R=|W PLIM PY PX PHEIGHT PWIDTH PRECTz|N}$$$$$$$$$$$$$$$$$$$$$$$(($$>K18O PINSTANTIATE-RECTANGLE>#*BN ELEMENT-TYPE<R<[$#$?$$(]^$$$$N$$#(`ah1 $M#$M$$(]^$$#(h1 (r1;*2 EHeHwHUHM$<hHHH$<ZHIHEHP$<GHRHEHX$<4H[HEHp$<!HvHMHUH]HuHEHHHMHEH@HEHEHHHMHM$<HHXH]t t$<C<v<rHMt t$<GA<v<8HUHL%AHBH]H u'HUHL%AHBH]H HMHMHEHXH]t t$<C<v<HMt t$<uA<v<fHUHL%AHBH]H u'HUHL%AHBH]H HMHMHEHXH]t t$<C<v<HMt t$<A<v<HUHL%AHBH]H u'HUHL%AHBH]H BHMHMHEHXH]t t$< C<v<HMt t$<A<v<HUHL%AHBH]H u'HUHL%AHBH]H pHMHMHM؋$<!H  HUH}L%AHBL%AHBHUHUH}L%AHBL%AHBHHU %h L%I[ H9%H%IH[HHPHH@HxH@ 4%h t HHHH=5O H1HkHP HBHHuHMHMHEL@LEHEHHHMI$< IHPH}L%AHBHULEHuIPH}L%AHBHUHuHHHHHkHP HBHuHHF)HN1HUH9HHHHUrH9nHHN$<dA<YHDHM$<DH HH}HuHݹHmHccH HHEH OH HHEH OH HHEH u OHh HHEH O OHB  N O O    O Oj L%A[b   "  "N LO OQNABSOLUTER alloc_trampQNABSOLUTERQ GENERIC--R%QNABSOLUTERQ GENERIC--RQNABSOLUTER boxed_regionXQNABSOLUTER boxed_regionJQNABSOLUTER boxed_region>QNABSOLUTERQ GENERIC-+R QNABSOLUTERQ GENERIC--R QNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-<RmQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-<RQNABSOLUTERQ GENERIC-=R8QNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC->Ri=z|<<}$$$$$$$$$$$$(($$>K18O P CONDLET-BINDS>#cB V%ASSOC<$#$?$$(]^$$$$N$$#$$#(`ah1 $Q#$Q$$(]^$$$$D$$#(h1 ( PBINDFORMr1;c2EHeHHUH}Ѐ %h L%IKH9 %H %IHI4%h t HA HA HMH}Ћ$<vHwHHULFLEI &I$<IPH}$<7HHHuHHkHP HBLEHuHRIX %h L%IKH9 %H %IHI4%h t HQHYHр %h L%IKH9 %H %IHI4%h t HQHA HH]HKHv$<HH HEHPHeHm n NjL%AYV  jL%AYjL%AYF QNABSOLUTER alloc_trampOQNABSOLUTER alloc_tramp<QNABSOLUTER alloc_trampQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionSQNABSOLUTER boxed_regionEQNABSOLUTER boxed_region9QNABSOLUTER boxed_regionwQNABSOLUTER boxed_regioniQNABSOLUTER boxed_region]= PVARS PCLzPaul Graham. On Lisp, p.146$$>K18O PCONDLET-CLAUSE>#zB< BACKQ-CONS<<$#$?$$(]^$$$$N$$#$$#$$#(`ah1 $U#$U$$(]^$$$#$$#$$#(h1 (r1;z2 EHeHHUH}HuHM$<HH@HEЀ %h L%IKH9 %H %IHI4%h t HA HA HHHMkHHQ$<QHZ %h L%ISH9%0H%IHR4%h t HZHB HHWHI$<HH yHNHMHHH}HUHrHkHP HBHU %h L%IKH9 %H %IHI4%h t HA HA HHHMkHHQ$<lHZ %h L%ISH9%KH%IHR4%h t HZHB HHWHI$< HH yH~HHHUHmHkHP HBHHHHQH}HNHkHP HBHHHH"H}HHkHP HBHHUHu` N OjL%AYp jL%AZ OjL%AYU jL%AZ OQNABSOLUTER alloc_tramphQNABSOLUTER alloc_trampPQNABSOLUTER alloc_tramp8QNABSOLUTER alloc_tramp QNABSOLUTER boxed_regionQNABSOLUTER boxed_region QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region|= PBODFNz{Y$$$$$$(($$>K18 ? %DEFMACRO PCONDLET> #SBQSB-INTR LIST-OF-LENGTH-AT-LEAST-PH %IHI4%h t HA HA HMЀ %h L%IKH9 %H %IHI4%h t HA HA LLEHHpH  %h L%IKH9 %H %IHI4%h t HA HA HHIkLHQ$<vHZ %h L%ISH9%UH%IHR4%h t HZHB HIQHI$<*HH yHOHܺ H9tqHIH$<t OHH)HHH)HSH{HsHHkHPHBLEHIkHHQ$<HZ %h L%ISH9%H%IHR4%h t HZHB HHVHI$<aHH yIPHHHHkHP HBHHUHUHVHHHuHHkHPHBHu %h L%IKH9 %H %IHI4%h t HQHA HH]HKHv$<HH [HEHPHMHMHUȀ %h L%IKH9 %dH %IHI4%h t HA HA HHHkHHQ$<.HZ %h L%ISH9% H%IHR4%h t HZHB HHWHI$<HH yH~HHHUHuH?HkHP HBHHH&HkHP HBHU؀ %h L%IKH9 %cH %IHI4%h t HA HA HMHLEHUIxHHHUHuLEHHkHP HBLE %h L%IKH9 %H %IHI4%h t HQHA HH]HKM@I$<IH RHEHxHHHHHkHP HBHHH}Hu` HH0HH=HHCHCHC H0HkHP HBW N  O OjL%AYjL%AY jL%AYL jL%AZ O jL%AZl OjL%AY& jL%AY jL%AZ OjL%AYjL%AY QNABSOLUTER alloc_tramp?QNABSOLUTER alloc_tramp,QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_tramp}QNABSOLUTER alloc_trampjQNABSOLUTER boxed_region]QNABSOLUTER boxed_regionOQNABSOLUTER boxed_regionCQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region|QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region<QNABSOLUTER boxed_region.QNABSOLUTER boxed_region"QNABSOLUTER boxed_regionVQNABSOLUTER boxed_regionHQNABSOLUTER boxed_region<QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region{QNABSOLUTER boxed_regionmQNABSOLUTER boxed_regionaQNABSOLUTER boxed_region*QNABSOLUTER boxed_regionQNABSOLUTER boxed_region=J WHOLE661 ENVIRONMENT662MzYN$$$$$$$$O(P(Q>S#B <$#$?$$(]^$$$$N$$#(S`TUVh1 W$M#$M$$(]^$$$$D(XUh1 Y(ZDEFMACRO CONDLET[r1\];2EHeHwHUHHH1HjHP HB %h L%IKH9 %vh#BRQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC--Ru=g PXSTART PXEND PYSTART PYENDz$$$$$$$($$$$(($$>K18O PBUILD-RECTANGLE>#K B"#<$<<g< HkHP HBHUHUL%AHBHUHUL%AHB %h L%IKH9 % H %IHI4%h t H]HYHQHHHUH}HHHkHP HBHUHEHPH}L%AHBHUHEHPH}L%AHBHUHEHPH}L%AHBHUHEHPH}L%AHBHUHEHPH}L%AHBHUHEHPH}L%AHBHUHEHPH}L%AHBHUHEHPH}L%AHBLELpLMLMHMHMHMHMHUHH IH}IHEHCHG HkHP HBLpLMHUHH IH}IHEHCH HkHP HBHUHH HUH}HuHEHCH HkHP HBHUHH HUH}HuHEHCH HkHP HBHHH HUH}HuHKHg HkHP HBHUHpH HHH=>H?HkHP HBH-HxH HHHHkHP HBHEHE HE HUH} HMȋ$<_HHHH HEHHH HUHHHHkHP HB$< HJ$<HIHEHP$<HRt t$<A<v<HUt t$<dB<v<UHMHUпL%AHBHUHEHH$<fHQ %h L%IKH9 %EH %IHI4%h t HQHUHQ %h L%ISH9%H%IHR4%h t HJHMHJHUHUL%AHBHUHUH}L%AHBH HUHHHHkHP HBH}HݹHmHc cH H OHUпL%AHBHUHEHP %h L%IKH9 %H %IHI4%h t HQHUHQHMH/HU&H} uyHM$<HHP %h L%IKH9 %H %IHI4%h t HQHUHQHMHEHPHMHUHM$<qHHH$<cHQHMȋ$<THHH$<FHyL%AHBH HUHHHHkHP HB$<HJ$<HIHEHP$<HRt t$<A<v<HUt t$<B<v<HMHUпL%AHBHUHEHH$<VHQ %h L%IKH9 %5H %IHI4%h t HQHUHQ %h L%ISH9%H%IHR4%h t HJHMHJHUHUL%AHBHUHUH}L%AHBH HM$<HHP %h L%IKH9 %sH %IHI4%h t HQHA HEHPHMHUH H O NjL%AXjL%AYYjL%AYjL%AYq   O  O  OjL%AYjL%AZjL%AY OjL%AYJ O O O O  O  OjL%AYjL%AZ OjL%AYQNABSOLUTER alloc_tramp> QNABSOLUTER alloc_tramp& QNABSOLUTER alloc_tramp QNABSOLUTER alloc_tramp QNABSOLUTER alloc_tramp QNABSOLUTER alloc_tramp QNABSOLUTER alloc_tramp QNABSOLUTER alloc_trampd QNABSOLUTER alloc_trampQ QNABSOLUTER alloc_tramp> QNABSOLUTER alloc_tramp+ QNABSOLUTER boxed_region QNABSOLUTER boxed_region QNABSOLUTER boxed_region QNABSOLUTERQ GENERIC->Rt QNABSOLUTERQ GENERIC-+RY QNABSOLUTER boxed_region% QNABSOLUTER boxed_region QNABSOLUTER boxed_region QNABSOLUTER boxed_region QNABSOLUTER boxed_region QNABSOLUTER boxed_region QNABSOLUTERQ GENERIC-+R QNABSOLUTERQ GENERIC-=R QNABSOLUTER boxed_region( QNABSOLUTER boxed_region QNABSOLUTER boxed_region QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC-+RlQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC-+RQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionSQNABSOLUTER boxed_regionEQNABSOLUTER boxed_region9QNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+R|QNABSOLUTERQ GENERIC-+R]QNABSOLUTERQ GENERIC-+R>QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC--RQNABSOLUTER boxed_region.QNABSOLUTER boxed_region QNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC--RQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC--RlQNABSOLUTER boxed_region,QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC-*R}=~ PW PLJz|LSEQUENCE}$ $$$$$$$$$$ $$ $ $$$$$$$$$$ $ $ $$$$$$$$$$ :$ $$$$$$$g$ $$$$$$$$$ g$ $$$$$$$$$  g$ $$$$$$$$$ !g$ $$$$$$$$$ "$ $$$$$$#$ $$$$$$$$ $$$$$$%(&('($$ >K1)8 P*LIM1*.L?+$$!>K1,8 P*LIM2*.p}?.$$">K1/8 P*UGOL*$$#>K118O PLIMIT>3#B$$F3<$#$?$$(]^$$$$$N$$#$$#$`(4`a25h1 6$Q#$Q$$(]^$$$$$D$$$d$`(72h1 8(92r1:;;2EHeHHUH}HUH}L%AHBH=L%AHBHHHgHkHP HBL%AHBHeHm NQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-*RsQNABSOLUTERQ GENERIC-*R]=B2JCz{|\}DEF$$$>K1G8O P SORT-RECT>I#BS<K1l8O P RECTAL-TESTI>n#BW<:<<<$#${$$(]^$&$`$ #$ #$ #$($D$D$ #$ #$ #O$ #$ #O$ #$ #$ #$ $d$ #(n`amoh1 p###$$(]^$&$ #$ #$ #$$ $O$ #D$ $D$ #$ #d$ #$ #$ #$ #$ #$ #(qmh1 r###$$(]^$&$(##$ #$ #$ #$ $D$ #$ #$ $d$ #$ #(s P SET-N-RETURNuh1 v(wr1xy;2 EHeHMHMH]LELMLULmLuL}HMHMHMHMHMHMHUH}HuHMH]LELMLULmLuLEH}HuHH0HUL{LCHKH0HkHP HBM1HUH LHJHRHYHIHEH@1HHHHEH@HHHHDHHHHIH uI!HUH}HݹHmHc cLMH}L)HUL%AHBLMH 1HULHJHRHqHIHEH@1HHHHEH@HHHHDHHHHHH uLMH}L)H)HUL%AHBLMH u HUH} LUH]HuHMHMHMHMH}LEHMHMHMHMLMGLUH]HuHMHMHMHMH}LEHMHMHMHMLM HUH}MMiMIIMIULs1HIHLsLIIHITIHHHITAIMIULn1HIHLnLIIHITIHHHITAI _H9}1H5dHuHaHxHHIHTHkHP HBHuHHH}HuHM %h L%I[@H9%H%IH[HHPHH@HxHH@HpHH@HMHHH@ 4%h t %h L%IKH9 %H %IHI4%h t HYHUHQH}H+}HHݹHmHc cLUHHIH=HkHP HBLUHj@L%A[jL%AYXQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER boxed_regionWQNABSOLUTER boxed_regionIQNABSOLUTER boxed_region=QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC->R=m PBLACKS PBLOCKS PCOVERED P RECTANGLE PLB} PBLJ~zZO$O$ |\##}$&$$$$$$$$&$$$$$$$:$&$$$$$$$$ $&$$$$$$$$ W$&$$$$$( ($$&>K18O P COPY-IMAGE>#BLARRAY-DIMENSIONS<<<W<$#$?$$(]^$'$`$ #(`ah1 $C#$C$$(]^$'$ #(h1 (r1;2 EHeHUHUHHH{HkHP HBHHH=bH5cHdHkHP HBHUHHHU1HAHkHP HBHUM1LMHHHUؿHHkHP HBLMHU1LMHuHUHEH@1IHHHHHHHkHP HBHuLMHEH@1IHHHHEHXHHLIHHHTHHHL HHTHH;uZIILL;M HUHeHm=Mz|}$$'>K18O PDUPLICATE-IMAGE>#BK18O P%LCD>#B*.@@.4C0<2<m<$#p$V$$(]^$)$`$ #$ #$ #$ $O$ #$ #$ #O$ #(`ah1 $\#p$\$$(]^$)$(#N#$$(##$(##d$(##d$(##D$(##$$(#O#$(##(h1 #@##@$$(+O^$)$ #( PLOOPERh1 (G} G884 G885R G886r1; 2EHHMH]LELMLULLLULxLpHhL`H HLH% HEH%8 H %8 HEHMHeHMH%h HHiHHALL} %h L%ICH9%kH%IHBH@HH4%h t HE %h L%ICH9%2H%IHBH@Hp4%h t HEHHH@Hǁ LHHUHXHUHPL@L8LH0L(HHIHAHH HEELHH L`HhLpLxLUL}HHH@HǁO LHHUHXHUHPL@L8LH0L(HHIHAHH HEHEHXs HSHeHHEHMH%8 H %8 HuH% H9t8HBH tHRtHJHHHBHBHH9uH% HHeHmHUHEHHHHhuHhHEHHHEHH}HUHHH%  HBHHxL%AHBH uMHhHHhHhH;wHMHHMH}A HeHmH %H}~HhHHMH*MHEHHEH*U^H fHH fHn/H H ;HRQNABSOLUTER boxed_regionUQNABSOLUTER boxed_regionGQNABSOLUTER boxed_region;QNABSOLUTER boxed_region QNABSOLUTER boxed_regionQNABSOLUTER boxed_region= PWW PLL PSCHWARZz~$)$$$$$$$ $$$ $ $)$$$$$$$ $$$ $$$$$$)$$$$$$$ $$$ $$$$$ m$)$$$$$$$ $$$ $$$$2$)$$$$$$$ $$$ $$$$( 0$)$$$$$$$ $$ 0$)$$$$$$$ $$$ *$)$$$$$$$ $$$ (($$)>K18O P HAF-TRANSFORM>#{B6<<<K18O P SB-LENGTH>#B<Y<$#$?$$(]^$+$$$N$$#(`ah1 $L#$L$$(]^$+$,#$d(h1 (r1 ;2EHeHukHHu$<uaHHBHEHHHHHkHP HBHu$<u-HzHUHZu` N  =! PSB#aY$+$$(%(&'$$+>K1(8O PSB-STRAIGHT-LINE-MIDDLE>*#B<$#$?$$(]^$,$$$N$$#(*`a)+h1 ,$M#$M$$(]^$$#(-)h1 .(/r101;2EHeHHUHU؋$<HJ$<}HAHEHHHUHiHkHP HB$<IHJ$<>HyHUL%AHBHUHHH%  HBHUHEHH$<HAHEHHHUHHkHP HB$<HJ$<HyHUL%AHBHUHHH%  HB %h L%IKH9 %v_H %IHI4%h t H]HYHQHHeHm N  O  O O  OjL%AYQNABSOLUTER alloc_trampQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC-+R]QNABSOLUTERQ GENERIC-+R=:)#c$,$$$$;$,$$$$<$,$=(>(?@$$,>K1A8O P ADJACENT-P>C#!B<$#$?$$(]^$-$$$N$$#$$#(C`aBDh1 E$Q#$Q$$(]^$$$D$$$d(FBh1 G(Hr1IJ;!2EHeHHUH}HU$<HRH}$<HL%AHBHHHZHkHP HBHH]t t$<2C<v<#HL%AHBH]H u$HL%AHBH HEHPHEHxL%AHBHHHHkHP HBHH]tt$<unC<v<ucHL%AHBH]H u8HL%AHBH tO HeHm O H  H  N  QNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-<RQNABSOLUTERQ GENERIC--R1QNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-<RQNABSOLUTERQ GENERIC--R}=WB~XzY$-$$$$$Z$-$$$$$[(\(]^$$->K1_8O PSB-AVERAGE-CENTRE>a#B.?a$#$?$$(]^$.$$$N$$#(b`a`ch1 d$M#$M$$(]^$$#(e`h1 f(gr1hi;2EHeHHUHEHEHEHMHMHEH@HEHEHHHMHUпL%AHBHUHM$<OHHxHUL%AHBHUHEHxHUL%AHBHUHM؋$<H bHUH}HUHHH%  HBH=HUHHH%  HBHUHUH}HUHHH%  HBH=dHUHHH%  HB %h L%IKH9 %vGH %IHI4%h t H]HYHQHHeHm N O OjL%AYQNABSOLUTER alloc_trampQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+R=t`#c$.$$$$u$.$$$$v$.$$w(x(yz$$.>K1{8O P SB-POSITION>}#BB< V %MEMBER-TEST<.(?NM$#$?$$(]^$/$$$N$$#$$#(`a|h1 $Q#$Q$$(]^$/$$$d$$#(|h1 (|r1; 2EHeHGHUH}HU$<4HRH4HpH H}؋$<HHH HkHP HBHUHHHUHHkHP HB$<HRHHpH HHH}HHkHP HBH} tMH tDHzH={HRWHEHuHVLEHIHHmH<%H} H HHHUH HkHP HBHEHxHHHHkHP HBHUHHHUHHkHP HBHHUHUHHH%  HBHUHUH=L%AHBH tH`HRHUH=gL%AHBH HUH=HL%AHBH tH1HRHUH=L%AHBH uHUH=L%AHBH u HR)HHRHUH=L%AHBH 3HMHRH@HR N     QNABSOLUTERQ GENERIC-=RJQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-<RQNABSOLUTERQ GENERIC->R}QNABSOLUTERQ GENERIC-<REQNABSOLUTERQ ?RETURN-MULTIPLERu=|"wz|~}$/$$$$$$$$ )$/$$$$$$$$$ Y$/$$$$$$$$ B$/$$$$$B$/$$$$$( ($$/>K18O P SAME-LINE-P>#BH<<Y< APPEND2<RQNABSOLUTERQ GENERIC->RQNABSOLUTER boxed_region QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionqQNABSOLUTER boxed_regioneQNABSOLUTERQ GENERIC-+R QNABSOLUTERQ GENERIC-*RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-*RQNABSOLUTER boxed_regionZQNABSOLUTER boxed_regionLQNABSOLUTER boxed_region@QNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC-*RQNABSOLUTERQ GENERIC-*RQNABSOLUTERQ GENERIC--RlQNABSOLUTERQ GENERIC--RIQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=UTz JK PRzY$0$$$$$H$0$$$$$H$0$$$$$$0$$$$$$$$$$$$$$0$$$$$$$$$$$$$( ($$0>K18O P INTERSECSION>#BB<L INTERSECTION<$#$?$$(]^$1$$$N$$#$$#(`ah1 $K#$K$$(]^$1$$#$$#O(h1 (r1;2 EHeHuKLLHHHH t6IIH5|HMHy u` N =LB$1$$(($$1>K18O PCROSS-RELATION>#B<:<<|<$#$?$$(]^$2$$$N$$#$$#(`ah1 $Q#$Q$$(]^$2$$#$$#(h1 ( r1  ;2 EHeHwHUH}HUȋ$<dHJ$<YHI$<NHI$<CHQH}$<4HO$<+HI$< HI$<HIHUHMHHHUH}HHkHP HBHUH} u HeHmHEHHHEHPH9tHUHUHHH%  HBHUHEHH$<wHYH]HEHH$<`HqHu@t!@t$<F<v<t t$<C<v<HHL%AHBH]HuH u*HHL%AHBH]HuH VH]HUHL%AHBH]H HnHxH ~HHHUHSHkHP HBHHuHHHUHH,HkHP HBHuHUHHHUHHHkHP HBHHU %h L%I[ H9%H%IH[HHPHH@HxH@ 4%h t HHUHL%AHBH HHS HF  N  O O O  O O O O O j L%A["QNABSOLUTER alloc_trampQNABSOLUTERQ GENERIC-=RqQNABSOLUTER boxed_region,QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC->RGQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-<R=L|$2$$$$$$|$2$$$$$$:$2$$$$$$$$ $2$$$$$(($$2>K1 8O PBLOCK-EXTENSION-P>"#GB<<$#$?$$(]^$3$$$N$$#$$#("`a!#h1 $$Q#$Q$$(]^$3$$$D$$#(%!h1 &('!r1();G2 EHeHHUH}HU$<HJ$<HI$<~HI$<sHQH}؋$<dHO$<[HI$<PHI$<EHyHHHHkHP HBH u HeHmHEHHH9 HEHHH9 HEH@HEHEHH$<HI$<HI$<HAHEHEHH$<HI$<HI$<~HAHEHEHH$<gHYH]HEHH$<PHqHu@t!@t$<F<v<tt$<C<v<uvHHL%AHBH]HuH u&HHL%AHBH]HuH t%HHUH}HuHMHH u` HH9 H,  *O N  O O O  O O O O O O O O O O OQNABSOLUTERQ GENERIC-=RrQNABSOLUTERQ GENERIC-<RL=.!LY$3$$$$/$3$$0(1(23$$3>K148O P BLOCK-JOINT>6#lB<:<<N<|<$#$?$$(]^$4$$$N$$#$$#(6`a57h1 8$Q#$Q$$(]^$4$$#$$#(95h1 :(;5r1<=;l2 EHeHHUH}HUЋ$<HJ$<HI$<HI$<HQH}ȋ$<HO$<{HI$<pHI$<eHyHHHHkHP HBHHxH -HHHHkHP HBHUH} H HAH= HEHEHH$<HI$<HI$<HQHHH}HFHkHP r HRHSH{HsHHEHH)HSH{HsHHkHPHBHUH HAH= @HEHEHH$<-HI$<"HI$<HQHHH}HHkHP r HRHSH{HsHHEHH)HSH{HsHHkHPHBHHUHuHRWVHHEHuHVLEHIHHmH<% HRĐ N  O O O  O O O  O O O O O O O OQNABSOLUTERQ ?RETURN-MULTIPLER=@5Lz|N}NAB|$4$$$$$C|$4$$$$$D:$4$$$$$E$4$$$$$F(G(HI$$4>K1J8 P*CURVES*#$L$~$-M$-~$ZN$Z~$xO$x~#P#~$~Q#~$xR$x~$ZS$Z~$-T$-~$U$F~$-VU$#W#~$ZX$Z~#Y#~$~Z$~$[$~$F\]$$5>K1^8 P *NOT-CURVES*$~$Z`$$Za$p$Cb$p$Zc$Z$Cd$Z~$p~e$C~$p~f$~#g#~$h i$$6>K1j8O PCURVE?>l#B~$#$C$$(]^$7$$$N$$#$$#$$#$$#( l`akmh1 n$]#$]$$(]^$7$ $D$ #$ $d$ #(okh1 p(qkr1rs;2EHeH]H 3HUH}HuH]HUH}L%AHBH H hH9MPH _H9MH NH9MtmH 9H9Mt HeHmH H9MuHUH}L%AHBL%AHBH tO 묺 H H9MuHUH}L%AHBL%AHBH t O Z PH wH9M HUH}L%AHBHL%AHBL%AHBH t O  H H9MHUH}L%AHBHL%AHBL%AHBH t O z pHMHUHUHMHMHUHUHM NQNABSOLUTERQ GENERIC->R*QNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC->RJQNABSOLUTERQ GENERIC--R6QNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC->Ri=k PA1n PA2oz$$7>K18O P BLOCK-SAME-P>#B5<<N< P INTERLEAVE<k<$#@$?$$(]^$8$$$N$$#$$#(`ah1 $Q#E$Q$$(]^$8$$#$$#(h1 ( G[BLOCK-SAME-P]1072r1; 2EHeHHUH}HHHUH}HYHkHP r  HHHHuHUH}HU$<HRHHH=HHkHP HBHUH}$<hHWHHH=HHkHP HBHUH}  HEHHH9 uO HeHmHEHHH9  %h L%MCL9%L%MM@4%h t LEI@ I@ LEH-HPH HH  HuHEHCH HkHP HBLEHILHUIH$<NHHxHI$<<HAHH HUHuHCLEH HkHP HBLE %h L%IKH9 %H %IHI4%h t HQHA HH]HKM@I$<IH 'HEHHHQH u#HI$<H uں    N  jL%AAX  O OjL%AY  OQNABSOLUTER alloc_trampzQNABSOLUTER alloc_trampWQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionxQNABSOLUTER boxed_region}QNABSOLUTER boxed_regionoQNABSOLUTER boxed_regionc=Lz~$8$$$$$$$5$8$$k$8$$$$$$$$$ (($$8>K18O PGROUP>#DBLIDENTITY ((1 1 1) (2)); if every is true, ensures that pred is true for any pair within a group; if every is funcallable, calls it with group so far and a potential member, then ANDs the result with that of predicate$$$9>K1%8O PSEGMENT>'#B<$#$?$$(]^$:$$$N$$#('`a&(h1 )$M#$M$$(]^$:$$#(*&h1 +(,&r1-.;2 EHeHHUHE@ HEHE HMHMHEHHHEHPHU$<CHQHHH=R<QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC->RTQNABSOLUTERQ GENERIC-=R%QNABSOLUTERQ GENERIC->R=A&BzCD$$:>K1E8O PCURVE-P>G#B$#$?$$(]^$;$$$N$$#(G`aFHh1 I$M#$M$$(]^$;$$$D(JFh1 K(LFr1MN;2EHeHHUHU$<HJ$<HQHEHxL%AHBtt$<u@B<v<u5L%AHBH u HeHmO H  N  OQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC--R}=SF PSEGUzVW$$;>K1X8O P CURVE-ENDS>Z# B P BLOCKS->GRAPH< PWORSEN-VISIBILITY<<4<R<WHI$<3HI$<(HyIЀ %h L%I[ H9%H%IH[HHPHH@HxH@ 4%h t HHeHmHN$<HI$<HI$<HI$<HI$<HQHHLEHHkHP HBLEHHO$<VHI$<KHI$<@HI$<5HI$<*LAD$<HHRH}$< G<HOHEH9H| %h L%I[ H9%H%IH[HHPHH@HxH@ 4%h t %h L%IKH9 %H %IHI4%h t HYHUHQHM HEH@)HMHI1HUH}H9THHHUHEH9DHHHHH#HkHP HB$<HRHEH @ OHEH 7 O2EHeHH$<HHH$<HI$<HI$<|HI$<qHI$<fHQHu` N OjL%AY " "NjL%AY    O O O O O  O O O O Oj L%A[ O O O O O O O O O O  L "Nj L%A[!jL%AYf " "N  N  O O O O OQNABSOLUTER alloc_tramp QNABSOLUTER alloc_tramp| QNABSOLUTER alloc_tramp QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region QNABSOLUTER boxed_regionQNABSOLUTER boxed_regiongQNABSOLUTER boxed_regionYQNABSOLUTER boxed_regionMQNABSOLUTER boxed_region:QNABSOLUTER boxed_region,QNABSOLUTER boxed_region =dccYBC`$<$$$$$$$$$ :$<$$$$$$$[$<$$$$$Z$<$$(($$<>K18O PFLATTEN-BLOCKS>#B<LUNION<$#$?$$(]^$=$$$N$$#$$#(`Lh1 $K#$K$$(]^$=$$#$$#O(h1 (DEFUN FLATTEN-BLOCKSr1;2 EHeHuKLLHHHH t6IIH5|HMHy u` N =L>#BLFOURTHK18O P FLATTEN-CURVE>#BY<<<$$$N$$#(`ah1 $M#$M$$(]^$>$$#(h1 (r1; 2EHeHHUHHHUHQHkHP HBHUHHHUH0HkHP HBHUHEH@HEHEHPHEHH$<HyH HAH= HH H5HCH HkHP HBHH HAH= HH HUH5HCH HkHP HBHHEHH$<HqHHHUH[HkHP HBH!HpH tMH=H .HMHEO H#(u` N O O O O =Bz|qYY4 VEXTENDED-SEQUENCE}$>$$$$$Y$>$$$$$(($$>>K18O P MAKE-BLOCK>#%B$#$?$$(]^$?$$$N$$#$$#$$#(`ah1 $X#$X$$(]^$?$$$D$$#$,##(h1 (r1;%2EHeHHUH}LLEIHUHHH%  HBHLEHUH}LE %h L%I[@H9%vkH%IH[HHPHH@HxHH@HpHH@HMHHH@ 4%h t HHeHm Nj@L%A[QNABSOLUTER alloc_trampQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=c PPOINTSz{$$?>K18O PCOMPARE>#UB<IL=$#P$?$$(]^$@$$$N$$#$$#$$#(`ah1 $U#U$U$$(]^$@$$#$$$D$$$d(h1 (r1;U2 EHeHHUH}HuHUH}L%AHBH HUH}L%AHBHHHBHkHP HBHHUL%AHBH ucHUH}L%AHBH u:HUH}L%AHBH u HeHmHHHHА NQNABSOLUTERQ GENERIC-<RQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC-=Ra= PEJKz{|I}$$@>K18O P POINT-COMPARE>#sB<$#P$?$$(]^$A$$$N$$#$$#$$#(`ah1 $U#U$U$$(]^$$$d$$#$$#(h1 (r1;s2EHeHHUH}HuH}؋$<HHuЋ$<HvHHHUHaHkHP HBHUHEHxHEHpHHHUH(HkHP HBHHU %h L%I[ H9%vcH%IH[HHPHH@HxH@ 4%h t HHeHm N  j L%A[QNABSOLUTER alloc_trampiQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=$A$$$$A$$$A$$$$A$$(( $$A>K1 8O P CURVE-TYPE> #B<.@ BL REMOVE-IF-NOTRQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC->RJQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC->R}QNABSOLUTERQ GENERIC->RDQNABSOLUTERQ GENERIC->RyQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region.QNABSOLUTER boxed_region QNABSOLUTER boxed_regionQNABSOLUTER boxed_region|QNABSOLUTER boxed_regionnQNABSOLUTER boxed_regionbQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionnQNABSOLUTER boxed_region`QNABSOLUTER boxed_regionTQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+R=G PV@G H G PVpG I G PVG J G PVG K G  L z|M }N O $B$$$$$$$$$$ P $B$$$$Q $B$$$$R (S (T U $$B>K1V 8O P QUARTER-CURVE>X #B<h$$(]^$C$$$N$$#(` ` G[QUARTER-CURVE]1288b c d h1 e #X##X$$(]^$C$$#(f c h1 g (h DEFUN QUARTER-CURVEi r1j k ; 2EH@HDHUH}H}؋$<1HWHHH=JHKHkHP HBHUH}L%AHBHHHHkHP HBH% HEH%8 H %8 HEHMHeHMH%h HHiHFHA %h L%ICH9%gH%IHBH@HH4%h t HEH r %h L%Is0H94%'H4%IHv HF6HAHF4%h t HxHMHNHMHNHVHHHUHHkHP HBHxH tAHHH HuHHkHP HBO HE1HHHEH O HSHeHHEHMH%8 H %8 HuH% H9t8HBH tHRtHJHHHBHBHH9uH% HE1HHHHeHm2lEH@HXHpHxHzHUH]HuH}HUȋ$<_HRHHH=FHGHkHP HBHUH}L%AHBHHHHkHP HBHUHUH}L%AHBH umHU1L%AHBH u>HU1L%AHBH u HUH}L%AHBH t HeHm HRHEH@L%A㐐 N jL%AXj0L%A^ N QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTERQ ?UNWINDR|QNABSOLUTERQ GENERIC-=R=QNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC--RQNABSOLUTER boxed_regionQNABSOLUTER boxed_region~QNABSOLUTER boxed_regionrQNABSOLUTER boxed_region9QNABSOLUTER boxed_region+QNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC--R= c b    [ Z > #B< <$#$B$$(]^$C$$$N$$#( `aW  h1  $K#$K$$(]^$C$$#( W h1  ( c r1  ;2 EHeHHuHLHHPH t6IH5H xHMH} u` N = W BzY $C$$ $C$ ( (  $$C>K1 8O P CURVE-BLOCKS> #B&<F<W <<<:<7< < #B <<< <<<$#P$B$$(]^$D$$$N$$#( `a  h1  $P#U$P$$(]^$D$$#(  h1  ( x  r1  ; 2EHeHHH}H iHAH= HE %h L%IsH94%H4%IHv4%h t HuHF HF HuHHPH HHH}HHkHP HBHuHHHHUHVHHHuHHkHPHBHuȀ %h L%IKH9 %H %IHI4%h t HQHA HH]HKHv$<HH [HEHHHܺ H9tqHIH$<t OHH)HEHH)HSH{HsHHkHPHBHHxH tlHHHH t]o HMH u` N OjL%A^+ jL%AY   QNABSOLUTER alloc_trampxQNABSOLUTER alloc_tramp`QNABSOLUTER boxed_regionfQNABSOLUTER boxed_regionXQNABSOLUTER boxed_regionLQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionw=  B$D$$$$$ $D$$$$  $D$$$$$$$$$$$$  $D$$$$$$$$$$$  :$D$$$$$$$$$$$$  $D$$$$$$$$$$$$$ $D$$$$$$$$$$  H$D$$$$$$$$$  $D$$$$$$$$  W $D$$$$$$$$  &$D$$$$$$$$$  F$D$$$$$$$$  &$D$$$$$$$$$  F$D$$$$$$$$  &$D$$$$$$$$$  F$D$$$$$$$$  (  (  $$D>K1 8O P MERGE-BLOCKS> #B$#$?$$(]^$E$$$N$$#$$#( `h1  $Q#$Q$$(]^$E$$$D$$$d( h1  ( DEFUN MERGE-BLOCKS r1  ;2EHeHHUH}HU$<HJ$<yHI$<urHQH}$<ugHO$<ubHI$<u[HyL%AHBH u HeHmO 퐐 N  O O  O OQNABSOLUTERQ GENERIC->R= L> #mB&<$#P$?$$(]^$E$$$N$$#$$#( `\ h1  $Q#U$Q$$(]^$E$$$D$$$d( [ h1  (  r1  ;m2EHeHHUH} %h L%IKH9 %H %IHI4%h t HUHQHUHQHHHHAHkHP HBHJ$<HAHzHL%AHBtt$<u@B<v<u5L%AHBH u HeHmO H  NjL%AY OQNABSOLUTER alloc_tramp[QNABSOLUTERQ GENERIC-<RQNABSOLUTERQ GENERIC--RQNABSOLUTER boxed_regionwQNABSOLUTER boxed_regioniQNABSOLUTER boxed_region]= [ Z Y> #NB<H<<$#0$?$$(]^$E$$$N$$#( ` h1  $M#5$M$$(]^$E$$$D(  h1  (  r1  ;N2 EHeHHUHU$<HJ$<HAHEHEHH$<HI$<HAHEHEHH$<HAHEHHHUHHkHP HBHHHHUHHkHP HBHHUH}Hu` N  O O O O=   C> #B!<  < $#$B$$(]^$E$$$N$$#( `a  h1  $P#$P$$(]^$E$$#(  h1  (  r1  ; 2EHeHHH} %h L%MCL9%cL%MM@4%h t LEI@ I@ LEHHPH ,H L HH0H}H5HKHHCLKH0HkHP HBLEHIHUHVHHHuHHkHPHBHu %h L%IKH9 %H %IHI4%h t HQHA HH]HKHv$<uWHH _HEHPHeHm NjL%AAX jL%AYv QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER boxed_regionpQNABSOLUTER boxed_regionbQNABSOLUTER boxed_regionVQNABSOLUTER boxed_regionvQNABSOLUTER boxed_regionhQNABSOLUTER boxed_region\=  BC!$E$$$ $E$$ $E$$$$$$ H$E$$$$$ $E$$$$ &$E$$$$$$$$  (  (  $$E>K1 8O P SORT-BLOCKS> #{B:<$#@$E$$(]^$F$$$N$$#$$#( `h1  $O#E$O$$(]^$F$$#$$#( h1  ( DEFUN SORT-BLOCKS r1 ! ;{2EHeHLH$<HHHH9 I$<IHHH9 fuO HeHmHN$<HI$<HI$<HI$<HQIH$<uzHI$<usHI$<ulHI$<ueHyHu`  ` N   O O O O O O O O=" L>$ $uB# <$$p$?$$(]^$F$$$N$$#($ `a % h1 & $H$u$H$$(]^$F$$#('  h1 ( () r1* + ;u2EHeHu+HHH=Hu` N=,  B:$F$$$$$$- (. (/ 0 $$F>K11 8O P MOUNT-BLOCKS>3 #sB<<<2 h1 ? (@ r1A > A B ; s2EHeHt$HtHuHUH}Hu NH HUH]HE H} UHM$<dHHH$<VHIH9 HEHH$<6HI$<+HI$< HI$<HQH HAH= HH H}H5HCH HkHP HB1H tHRHH tH$<t HHEH@HEHEHH %h L%MCL9%jL%MM@4%h t LEIHHMIHLEHEHH$<;HI$<0HI$<%HI$<HQHHHH HH H}H5fHKHk HkHP HBLEHHUIHKu` HEHPH}HuH)u` HEHH$<HI$<wHIt(t#$<A<v<<*HL%AHBH HEHH$<HI$<HI$<HI$<HQH 6HAH= HH H}H5HCH1 HkHP HBH H OHUHu` O O O O O O OjL%AAX O O O O  O O O O O O OQNABSOLUTER alloc_tramp)QNABSOLUTERQ GENERIC-=RQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=I 2 J }< ; K 2 $G$$$L 2 $G$$$M  $G$$N (O (P Q $$G>K1R 8O PBLK-REL>T #BHI$<3HQHHH-HkHP HBHUH}$<HO$<HI$<HI$<HQHHHHkHP HBHH]$<u C<&g$<u C<*THM$<u A<&,HM$<u A<*HUHL%AHBH]H u'HUHL%AHBH]H HuHHH(HuHHkHP HBHuHHHUHHH%  HBHUHMH9M&HEH@HEHEHH$<HI$<HI$<zHI$<oHyHEHH$<\HI$<QHI$<FHI$<;HqHHHUHHkHP HBHUHEHH$<HI$<HI$<HI$<HAHEHEHH$<HI$<HI$<HQHHHbHkHP HB$<HrHHHUH}H!HkHP HBHUHEHH$<EHI$<:HI$</HQHHHHkHP HB$<HzHEHH$<HI$<HI$<HI$<HqHHHUHGHkHP HBHUHEHH$<HI$<HI$<}HQHHHHkHP HB$<QHBHEHEHH$<:HI$</HI$<$HQHHHHkHP HB$<HrHHHUH}HDHkHP HBHHUH}HuHM؀ %h L%I[PH9%H%IH[HHPHH@HxHH@HpHH@HMHHHH@HMHHH@ 4%h t HHeHmHHHUH}HHkHP HBHUH9HEH ^ OHQ  N  O O O  O O O O O O O O O O O O O O O O O O  O O O  O O O O O O O  O O O jPL%A[]QNABSOLUTER alloc_trampQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-<R=e S L$H$$$f $H$$$g $H$$$h $H$$$i $H$$$$j $H$$$$$$k $H$$$$$$l (m (n o $$H>K1p 8O P IMAGE->BLOCKS>r #B< < <2 <$#$?$$(]^$I$$$N$$#(r `aq s h1 t $M#$M$$(]^$I$$$D(u q h1 v (w q r1x y ;2 EHeHHUHHHUHHkHP HBHHHhHkHP HBHHHOHkHP HBH=u` N=z q PIMG|  $I$$$$}  $I$$$~  $I$$ 2 $I$ ( (  $$I>K1 8OZ> #BS <<$#$B$$(]^$J$$$N$$#( `aZ h1  $K#$K$$(]^$J$$#( Zh1  ( Zr1  ;2EHeHHu8HHHPH t&HHu` N = ZBz S $J$$ $J$ ( (  $$J>K1 8O P GRAPHICALIZE> #Bq <Z<$#$?$$(]^$K$$$N$$#( `a  h1  $I#$I$$(]^$K$$$D(  h1  (  r1  ;2EHeHu;HUHHHUHHkHP HBHu` N=  M q $K$$ Z$K$ ( (  $$K>K1 8 P *OVERLAY*$$L>K1 8O PMKLIST> #B$#$?$$(]^$M$$$N$$#( `a  h1  $H#$H$$(]^$M$$$O(  h1  (  r1  ;2EHeHukHʋ$<tQ %h L%ISH9%vGH%IHR4%h t HJHB HeHmH NjL%AZQNABSOLUTER alloc_trampQNABSOLUTER boxed_regionrQNABSOLUTER boxed_regionhQNABSOLUTER boxed_region\=  POBJ C $$M>K1 8O> #B<< <<$#`#$$(]^$N$$#$$#$$#$$#( `a h1  (    r1  ;2 EHv1H]H)HHHLI)M1ONIHuHHeHMHUH}HuH}HMHt HA gH %h L%LH9%H%IHRHLHHRHHBHuHB 4%h t LMH} HHHUHHkHP HBHUHHHUHHkHP HB$<Hܹ H9trHRH$<t HH)HEHH)HSH{HsHHkHPHB %h L%IKH9 %H %IHI4%h t HQHA HHeHmH HAH= ZHE %h L%IKH9 %9H %IHI4%h t HA HA HMHH]UHUHsHPHxH HUHRL %h L%IKH9 %H %IHI4%h t HqHUHQHHRIQHRII$<H H9tqHIH$<t OHH)H]HIH)IPIxIpHIhIPHBLMH] %h L%IKH9 %H %IHI4%h t HQHA HHuHNH[$<HH HEHHH H9tqHIH$<t OHH)HEH %HE H+%RL%AZ\ jL%AYd OjL%AY jL%AY4 OjL%AY QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampmQNABSOLUTER boxed_regiondQNABSOLUTERQ ?TAIL-CALL-VARIABLERBQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionbQNABSOLUTER boxed_regionTQNABSOLUTER boxed_regionHQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=  PFUNS PPROLISTR PPROLISTS zR Y $N$$$$$$$ ( (  8B0:0O 848><0 C65 5ABL, =07K205BAO alexandria:map-product $$N>K1 8O[> #B<<<R<W<[[$#$?$$(]^$O$$$N$$#( `a[ h1  $M#$M$$(]^$O$$#( [h1  ( [r1  ; 2EHeHgHUHHHUHaHkHP HBHHHHHkHP HBHUHHHU1H%HkHP HBHUHEHHHUHHkHP HBHUHEKHHHUHHkHP HBHeHUHEH@)HMHI1H]H}H9WHHH]HEH9GHHHHXHkHP HB$<HBHEHHHUHHkHP HBHHEH@)HMHI1H]HUH9HHHHH]HEH9HHEHH$<A<HEHDHMHHMHEH;EHMHHMHEH;ERHUHeHmHEH P OHEH G O N " "N  " "N LO= [ z|}   $$O>K1 8O P SHRINK-LST> #BLROUND<< <$#0$?$$(]^$P$$$N$$#$$#( `a  h1  $Q#5$Q$$(]^$$#$$#(  h1  ( r1  ;2 EHeHHUH} %h L%IKH9 %H %IHI4%h t HA HA HMHHMHM%HUHEHpHu$<zHHPHHH}HHkHP HBHuHUHVHHH}HHkHP HBHʀ %h L%ISH9%H%IHR4%h t H]HZHJ %h L%IKH9 %H %IHI4%h t HQHA HH]HKHEHHHMHM$<H HEHPHHpH tjH=Hu` NjL%AY6 jL%AZjL%AY/ O QNABSOLUTER alloc_tramphQNABSOLUTER alloc_trampUQNABSOLUTER alloc_tramp;QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionTQNABSOLUTER boxed_regionFQNABSOLUTER boxed_region:QNABSOLUTER boxed_regionwQNABSOLUTER boxed_regioniQNABSOLUTER boxed_region]=   $P$$$$$$$ $P$$$$$$$ $P$$$$$ ( (  $$P>K1 8O PSHRINK> #B6< <<$#$?$$(]^$Q$$$N$$#$$#( `a  h1  $M#$M$$(]^$Q$$$D$$$d(  h1  (  r1  ;2 EHeHukHUH}HHHUHHkHP HBHHHHUHaHkHP HBHOu` N=  w z 6$Q$$$  $Q$$! $Q$" (# ($ % $$Q>K1& 8 POCTOGONAL-SKELETON$$$$$$$$$( ( S) $$$$$$$$( * S+ $$$$$$$$$( , S- $$$$$$$$( . S/ $$$$$$$$$( 0 S1 $$$$$$$$( 2 S3 $$$$$$$$$( 4 S5 $$$$$$$$( 6 S7 (8 $$R>K19 8 P PRUNING-SET$$$$$$$$$( ; S< $$$$$$$$$( = S> $$$$$$$$$( ? S@ $$$$$$$$$( A SB $$$$$$$$$( C SD $$$$$$$$$( E SF $$$$$$$$$( G SH $$$$$$$$$( I SJ (K $$S>K1L 8 PHORIZONTAL-LINES$$$$$$$$$$$( N SO $$T>K1P 8 PVERTICAL-LINES$$$$$$$$$$$( R SS $$U>K1T 8 PSOBEL-GX$$$$$$$$$$$( V SW $$V>K1X 8 PSOBEL-GY$$$$$$$$$$$( Z S[ $$W>K1\ 8O P CHECK-PIXEL>^ #mBR<W<S<UU[\X[UU$# $O$$(]^$X$$$N$$#$$#$$#$$#$$#$$#O$$#(^ `a] _ h1 ` $u#%$u$$(]^$X$$#$$#$$#$$#$$#$$#$$$#D(a ] h1 b (c ] r1d e ; m2EHeH]LELMLUH8HUH}HuH]LELMLUHM؋$<A<~<vE[LEIMLEHI96ELMI LMHI9HUHHHHkHP HBHHMHMHEHP)HEHH1H}HEH9HHLMHEL9LHHHUH,HkHP HBH 5HMЋ$<A< <HMt$<A<HMt$<A<HUHHHHkHP HBH_HUHHH}HuHhHkHP HBH EdH}HVH}HH9?E$HuHHuHH9HUHEHX)HEHH1H}HEH9LHHHuHEH9<HHHHHkHP HBHUHEHP)HEHH1H}HEH9HHLMHEL9LHHHUH-HkHP HBHHUL%AHBH u HeHmO HEH OHEH OH} u HEHP)HEHH1H}HEH9BHHLMHEL92LHHHUHaHkHP HBHHUL%AHBH t O / %HEH 0 OHEH ' OHEH  OHEH OO HEH OHEH OHEH OHEH O N " "NN " "N " "NN " "NNQNABSOLUTERQ GENERIC-=ReQNABSOLUTERQ GENERIC-=R=j ] vwx PSELT~Y PFIXELm zn o p $$X>K1q 8O PCHECK-STRUCTURING-ELEMENT>s #uB<] <r <$#p$O$$(]^$Y$$$N$$#$$#$$#$$#$$#$$#O$$#(s `ar t h1 u $u#u$u$$(]^$Y$$#D$$#d$$#$$#$$#$$#$$#$(v r h1 w (x r r1y z ;u2 EHeH]LELMLUH8HUH}HuH]LELMLUHHHU1HWHkHP HBHHUL%AHBH HUH}L%AHBHUHUH}L%AHBHHH8HUH}HEHCHEHCHEHCHEHCH8HkHP HBH u HeHmHUL%AHBHUHHHUHVHkHP HBHHUL%AHBH uUHUL%AHBHHUH}HuH]H]H]H]H]H]HMH8u` HUL%AHBHHUH}HuH]H]H]H]HMHEH8u` O NQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-+RdQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-=R= r vwxk l ~Y  zn Y r $Y$$$$ r $Y$$$$ ] $Y$$$ ( (  $$Y>K1 8O PAPPLY-STRUCTURING-ELEMENT> #BNORIGINNFIXELNNVALUE< a<<r <R<W<[[[$#@#$$(]^$Z$$#D$$#$$#d( `a  h1  ( G  r1  ;2EHv=HPH)HHHvLI)M1ONIHuHH8H@HhHUH}HhHhLl HHHHA 1M1A  HHDI\ILHH; uLvH; tjH; t\H; tN %h L%I[H9%H%IH[4%h t HKHC H LLHHdH H}LxI KHHHU1LEHHkHP HBLEHHUH*MH HH fHn^H HH fHn^H,HHHHEH*U\W/zW/HHHMI ZHHHUHHkHP HBHHUH*MH HH fHn^H HH fHn^H,HHHHEH*U\W/zW/HHHMHHHUHoHkHP HBHHHVHkHP HBHUHHHU1H HkHP HBHpHEHHHUHHkHP HBHUHEHUH}L%AHBHUHUH}L%AHBHHH8HUH}HEHCHEHCHCHCHf8HkHP HBH HHHUH<HkHP HBH[HUHEH@)HMHI1H]H}H9}HHH]HEH9mHHHHHkHP HBHUHHHUHHkHP HBHHEH@)HMHI1H]HUH9HHHHH]HEH9HHEHH$<A<HEHDHHMHHMHEH;E)HMHHMHEH;pHUHeHmHEH OHEH OHHHUHHkHP HBHusHEH@)HMHI1H]HUH9 HHHHH]HEH9HHEHH$<A<HxHDHEH * O^I$<I@HELrI$<IH@HE]I sHF !  Hh jL%A[ " "N " "N LO " "N LO  QNABSOLUTER alloc_trampFQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC--RQNABSOLUTER boxed_regionAQNABSOLUTER boxed_region3QNABSOLUTER boxed_region'=   k v PORIGINl $ PNVALUE$  z       Y r $Z$$$$$ ( (  $$Z>K1 8O PISOMETRIC-IMAGES-EQUAL> #uB<R<W< <[X[UU$#P$C$$(]^$[$$$N$$#$$#$$#$$#(  `a  h1  $]#U$]$$(]^$[$$#$$#$$#$$#(  h1  (  r1  ; u2EHeH]H HUH}HuH]HHHU1H?HkHP HBHHUL%AHBH EHuHrHuHH9[E@H]H2H]HH9HHHUHHkHP HBHHuHEHP)HEHH1H}HEH9HHH]HEH9HHHHH:HkHP HBHUHMЋ$<QA<F<>HUHHHHkHP HBHHuHEHP)HEHH1H}HEH9QHHH]HEH9AHHHHHHkHP HBHHUL%AHBH u HeHmH]HHEH@1H9u*HuHHUH}HEH u` H]HHUH}HuH]H u` HEH OHEH OHEH OHEH OHEH OO , N " "N " "NQNABSOLUTERQ GENERIC-=R_QNABSOLUTERQ GENERIC-=R=  PI1 PI2wx zY  $[$$$$  $[$$$$ ( (  $$[>K1 8O P IMAGE-EQUAL> #B<< <$#$?$$(]^$\$$$N$$#$$#( `a  h1  $Q#$Q$$(]^$\$$#$$#(  h1  (  r1  ;2 EHeHHUH}HHHUH}HkHP HBHUHHHUHTHkHP HBHHHHUH4HkHP HBH u HeHmHUH}1HEH u` N=     N $\$$ ( (  $$\>K1 8O P APPLY-SE-SET> #B   NSI<< < <U$##$$(]^$]$$#$$#D$$#( `a  h1  ( G  r1  ;2EHv:H]H)HHHvLI)M1ONIHuHHxHeHMHUH}H}=HMLD HHHHHE HEHEHE  HHIILHH; u HUH; tzH; tkH; t\H; tN %h L%ISH9%H%IHR4%h t HJHB HHHU HUHUHPH HMHMHMHMHMHMHHHU1HHkHP HBHH]HMt t$<A<v<HUHL%AHBH]H uHUHL%AHBH tHUHeHmE&HMHHM$<uAR QNABSOLUTER boxed_regionRQNABSOLUTER boxed_regionDQNABSOLUTER boxed_region8=   PSSETv   PSI$  z      Y  $]$$$  $]$$ ( (  $$]>K1 8O PAPPLY-SSE-TO-CONVERGENCE> #B    < < <$##$$(]^$^$$#$$#D$$#d( `a  h1  ( G  r1  ; 2EHv:H]H)HHHvLI)M1ONIHuHHxHeHMHUH}H}HMLD HHHHHE HEHE  HHIILHH; uH]xH; tkH; t\H; tN %h L%I[H9%vH%IH[4%h t HKHC HH H]H]HbH HMLELMHH@HUH}H5HKHHCLCHHCLKH @HkHP HBHHuHHHHUHHkHP HBHuH tHHeHmHUHH5}HMHMH vHMHMHMH kHMHMHMHx@u` H HF !  HE jL%A[QNABSOLUTER alloc_trampQNABSOLUTER boxed_region>QNABSOLUTER boxed_region0QNABSOLUTER boxed_region$=    v      $^$$$  $^$$$  $^$$$$ ( (  $$^>K1 8O PAPPLY-SE-TO-CONVERGENCE> #B    < < <$##$$(]^$_$$#$$#D$$#d( `a  h1  ( G  r1  ; 2EHv:H]H)HHHvLI)M1ONIHuHHxHeHMHUH}H}HMLD HHHHHE HEHE  HHIILHH; uH]xH; tkH; t\H; tN %h L%I[H9%vH%IH[4%h t HKHC HH H]H]HbH HMLELMHH@HUH}H5HKHHCLCHHCLKH @HkHP HBHHuHHHHUHHkHP HBHuH tHHeHmHUHH5}HMHMH vHMHMHMH kHMHMHMHx@u` H HF !  HE jL%A[QNABSOLUTER alloc_trampQNABSOLUTER boxed_region>QNABSOLUTER boxed_region0QNABSOLUTER boxed_region$=!  "    $_$$$#  $_$$$$  $_$$$$% (& (' ( $$_>K1) 8O PPRUNE>+ #B:  <$#$B$$(]^$`$$$N$$#(+ `a* , h1 - $K#$K$$(]^$`$$#(. * h1 / (0 * r11 2 ;2EHeHHu8HHHPHRt)HHu` N =3 * M  $`$4 (5 : 4 (6 (7 8 $$`>K19 8O P REAP-MEAT>; #B'  <$#$B$$(]^$a$$$N$$#(; `a: < h1 = $K#$K$$(]^$a$$#(> : h1 ? (@ : r1A B ;2EHeHHu8HHHPHRt)HHu` N =C : M  $a$D (E ' D (F (G H $$a>K1I 8O PCONVOLVE>K #B<<<Q<R<W<[[$#`$?$$(]^$b$$$N$$#$$#(K `aJ L h1 M $Q#e$Q$$(]^$b$$#$$$#D(N J h1 O (P J r1Q R ; 2EHeHHUH}HHHUH]HkHP HBHHHDHkHP HBHUHHHU1H!HkHP HBHUHE>HHHUHHkHP HBHUHEHHHU1HHkHP HBHUHEHHHUHsHkHP HBHUHEBHEHHMHHHEHHMHHHHHkqHL%AHkqHL%AHUHHkHP HBHUHHHUHHkHP HBHHUHEH@)HMHI1H]H}H9HHH]HEH9HHHHqHkHP HBHHUL%AHBHUHHHUH*HkHP HBH\HEH@)HMHI1H]HUH9HHHHH]HEH9iHHEHH$<YA<NHTH}L%AHBHHEH@)HMHI1HuHUH9HHHHHuHEH9HHEHH$<A<H\HMHHMHEH;EHMHHMHEH;E[HMHHMHEH;E HMHHMHEH;EHUHeHmHEH OHEH O N " "N " "N LO " "N LOQNABSOLUTERQ GENERIC-+RBQNABSOLUTERQ GENERIC-*RQNABSOLUTERQ ALLOC-SIGNED-BIGNUM-IN-RDIRQNABSOLUTERQ ALLOC-SIGNED-BIGNUM-IN-RSIR=[ J PKERNELv] z ^ Q$b$$$$$$$$ _ (` (a b $$b>K1c 8O PRENDER-SVG-PATH>e #Bg<d K1 8O PSURROUND-POINT> #B$#p$?$$(]^$d$$$N$$#$$#( `a  h1  $Q#u$Q$$(]^$$#$$#(  h1  ( r1  ;2EHeH'HUH}HE HUL%AHBt t$<B<v<HMt t$<A<v<HUTHUL%AHBHUH}$<HHUL%AHBHUHEHxHUL%AHB %h L%IKH9 %5H %IHI4%h t H]HYHQ %h L%ISH9%H%IHR4%h t HJHMHJHUHUL%AHBHUHUH}L%AHBH HUؿL%AHBHUHUH}L%AHBH HUHeHmHEH OH  N jL%AYjL%AZQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTERQ GENERIC->R#QNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC-+RQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionzQNABSOLUTER boxed_regionKQNABSOLUTER boxed_region=QNABSOLUTER boxed_region1QNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-NEGATERQNABSOLUTERQ GENERIC-NEGATERa=  PRADIUS PPOINT $d$$$$$$$ $d$$$$$$$ $d$$$$$ ( (  $$d>K1 8O P WIDEN-LINES> #B < <$#$B$$(]^$e$$$N$$#$$#( `a  h1  $T#$T$$(]^$e$$$D$$#(  h1  ( Qr1  ;2EHeHHtHUHuH HAH= ZHE %h L%IKH9 %9H %IHI4%h t HA HA HMHHuHUH~HHHUHuHHkHP HBHu %h L%IKH9 %H %IHI4%h t HQHA HH]HKHv$<HH WHEHHH H9tqHIH$<t OHH)HEH %ᐐ N OjL%AYjL%AY> QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTERQ ?TAIL-CALL-VARIABLERQNABSOLUTER boxed_region'QNABSOLUTER boxed_regionQNABSOLUTER boxed_region QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region{=     $e$$$$$ ( (  $$e>K1 8O P UNIFY-TYPE> #B$#$?$$(]^$f$$$N$$#( `a  h1  $L#$L$$(]^$f$$$O(  h1  (  r1  ;2EHeHHH; =uHK1 8O P SORT-VERTICES> #SBB u` 2FEHeHXH3HUH}HHHHUHQHUHQHYHAHH HEH9 t HeHmO 2\EHeHXHHUH}HHHHUHQHUHQHYHAHHHE!H9 t HeHmO HMЋ$<HH@HEHEHH$<HI$<HIt(t#$<A<v<w<*oHL%AHBHMȋ$<HHH$<HI$<HyL%AHBHUHEHH$<hHYH]HEHH$<QHqHuHM؋$<A<<HHHHH9i@PHHCHHH9-HUHHHNHoHP HBHuH]HLEHEHP)HEHH1HHEH9wHHHEH9kHHHIHHkHP HB$<AHzHHHUHHkHP HB$<HzHHHUHHkHP HB$<HJHeHmHEH Q OHL HE HEH < OH7 O Nj L%AYj L%AY  N N O O O O O O O O " "N   QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-*RWQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionsQNABSOLUTER boxed_regiong= L0   L     z $g$$$ ( (  $$g>K1 8O PREALIZE-VERTICES> #B7<$#$B$$(]^$h$$$N$$#( `a  h1  $P#$P$$(]^$h$$$D(  h1 ! ("  r1# $ ;2EHeHHtHuA Hu$<_A 1H #LNHv$<=HyHI %h L%I[H9%H%IH[4%h t H{HS %h L%I{H9<%H<%IH4%h t H_LGLNj$<HH OH tKHNLHv$<LEHuLMпL%AHBLMHuLEIIHHu` N  jL%A[jL%A_ O QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTERQ GENERIC-+RQNABSOLUTER boxed_region QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=/  PGROUPS1 C2 $$h>K13 8O P GRAPH->LINES>5 # B<< < <<< V %ASSOC-TEST ? ; 2EHeHGHUHE HE HE HHHU1H7HkHP HBHUHE1H}1 %h L%I[0H9%H%IH[HHPHH@HxHH@HpH@ 4%h t L1H} %h L%I[0H9%oH%IH[HHPHH@HxHH@HpH@ 4%h t L˺H}1 %h L%I[0H9%H%IH[HHPHH@HxHH@HpH@ 4%h t LӺH} %h L%I[0H9%H%IH[HHPHH@HxHH@HpH@ 4%h t ILMIH]؀ %h L%IKH9 %OH %IHI4%h t LAHuHqHM %h L%IKH9 %H %IHI4%h t LIHuHqHM %h L%IKH9 %H %IHI4%h t LQHuHqHMȀ %h L%IKH9 %H %IHI4%h t HYH]HYHMHHHHkHP HBHUHHHUH}HHkHP HBHHHHUHHkHP HB %h L%IKH9 %H %IHI4%h t HQHUHQHMHMHHMHEH;EHUHHH}H)HkHP HBHHHHkHP HBHUHUHHH}HHkHP HBHHHHkHP HBHHHHUHHkHP HBHU %h L%IKH9 %H %IHI4%h t HA HA HMHLUHUMB %h L%IKH9 %H %IHI4%h t HA HA HMHHUMH %h L%IKH9 %9H %IHI4%h t HA HA HMHHUIQH}$<HUHpH HHLMLELUH2HkHP HBLULELMHR %h L%IKH9 %H %IHI4%h t HQHA HH]HKMII$<bIH HEHP %h L%IKH9 %/H %IHI4%h t HQHA HH]HKM@I$<IH @HEHP %h L%IKH9 %H %IHI4%h t HQHA HH]HKMRI$<IH bHEHPHHHH sH=o HMH u` Nj0L%A[*j0L%A[j0L%A[j0L%A[JjL%AYjL%AYjL%AYjL%AYWjL%AYjL%AYjL%AYqjL%AY  jL%AYf OjL%AY jL%AY,  QNABSOLUTER alloc_tramp QNABSOLUTER alloc_tramp QNABSOLUTER alloc_tramp QNABSOLUTER alloc_trampl QNABSOLUTER alloc_trampY QNABSOLUTER alloc_trampF QNABSOLUTER alloc_tramp3 QNABSOLUTER alloc_tramp QNABSOLUTER alloc_tramp QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regiontQNABSOLUTER boxed_regionfQNABSOLUTER boxed_regionZQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region1QNABSOLUTER boxed_region#QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionkQNABSOLUTER boxed_region]QNABSOLUTER boxed_regionQQNABSOLUTER boxed_region@QNABSOLUTER boxed_region2QNABSOLUTER boxed_region&QNABSOLUTER boxed_region}QNABSOLUTER boxed_regionoQNABSOLUTER boxed_regioncQNABSOLUTER boxed_region0QNABSOLUTER boxed_region"QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region|QNABSOLUTER boxed_region$QNABSOLUTER boxed_regionQNABSOLUTER boxed_region QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=QNABSOLUTER boxed_region/QNABSOLUTER boxed_region#QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=| 4  C $i$$$$$$$}  $i$$$$$$~  $i$$$$$$$  $i$$$$$$ ( ( > #KB$#0$?$$(]^$i$$$N$$#$$#( `h1  $Q#5$Q$$(]^$i$$$D$$$d( h1  ( DEFUN GRAPH->LINES r1  ;K2EHeHHUH}HU$<HRH}$<HL%AHBH HEHPHEHxL%AHBH tXHEHH$<utHQHEHH$<ueHyL%AHBH u HeHmO  O ߐ N   O OQNABSOLUTERQ GENERIC-<RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-<R}= L|   $$i>K1 8O PLINES->SVG-PATH> # B<e 7<$#$?$$(]^$j$$$N$$#$$#( `a  h1  $Q#$Q$$(]^$j$$#$$#(  h1  (  r1  ; 2 EHeHgHUH}HE HMHMHEH@HEHEHHHMHM$<'HHH$<HI$<HyHUL%AHBHUHEHH$<HyHUL%AHBHHHHH}HHkHP HB %h L%IKH9 %H %IHI4%h t HQHUHQHMHEHH$<UHI$<JHI$<?HyHUL%AHBHUHEHH$<HI$< HyHUL%AHBHHHHH}HHkHP HB %h L%IKH9 %H %IHI4%h t HQHUHQHMHMȋ$<H HUHWu` N O O O OjL%AYw O O O O OjL%AYQ OQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER boxed_regionRQNABSOLUTER boxed_regionDQNABSOLUTER boxed_region8QNABSOLUTERQ GENERIC-*RQNABSOLUTERQ GENERIC-*RQNABSOLUTER boxed_regionLQNABSOLUTER boxed_region>QNABSOLUTER boxed_region2QNABSOLUTERQ GENERIC-*RQNABSOLUTERQ GENERIC-*R=  PZOOM PLINES  $$j>K1 8O P IMAGE->LINES> #B <4 <$#$?$$(]^$k$$$N$$#( `a  h1  $I#$I$$(]^$k$$$D(  h1  (  r1  ;2EHeHu;HUHHHUHHkHP HBHu` N=  MC $k$$ 4 $k$ ( (  $$k>K1 8O P LINES->IMAGE> #B <d <<$#$B$$(]^$l$$$N$$#( `a  h1  $L#$L$$(]^$l$$$D(  h1  (  r1  ;2 EHeHHuhH}HH(H}H}HkHP HBHHHdHkHP HBHRu` N=     $l$$$ d $l$$ $l$ ( (  $$l>K1 8O PREDRAW> #B < <d <<$#$?$$(]^$m$$$N$$#( `a  h1  $M#$M$$(]^$m$$$D(  h1  (  r1  ;2 EHeHHUHHHUHHkHP HBHHH(H`HkHP HBHHHGHkHP HBH5u` N=  M $m$$$$  $m$$$ d $m$$ $m$ ( (  $$m>K1 8O P ASSIGNMENT> #BNOUT<<R<W< augmenting path: len=~:D weight=~S~% <.3 &~S: rounding error ~5F * float-epsilon LWARNY and Y->X.Q$$n>K1R8O PMAKE-COST-MATRIX>T# B<<R<[[[[$#`$C$$(]^$o$$$N$$#$$#$$#$$#( T`aSUh1 V$]#e$]$$(]^$o$$#$$$#D$$#d$$#(WSh1 X(YSr1Z[;  2EHeH]H HUH}HuH]HUHUHHH%  HBHHuHuHUHUHHH%  HBHuHUHHHHHkqHL%AHH %h L%I[ H9%gH%IH[HHPHH@HxH@ 4%h t HHHHkHkHP HBLLEHE#HEkHM$<A<HQHEH9HDHEHM$<A<HQHEH9HDHEHM$< 8HUHHHHkHP HBLEHHHHUH}HƹHkHPHBLEHUHHIHcHkHP HBLEHI@)IH1HUH9HHHHHEH9HIH$<A<HEHDHHMHHMHEH;EHEvHEHHMHHHEHEH;EHU$<sB<hHJHEH9\HDHEHM$< oHUHHH=HkHP HBLEHHHHUHƹHkHPHBLEHHHIHuHHkHP HBHuLEHI@)IH1HUH9HHHHH]HkqHL%AӨH9~HIH$<tA<iHtHHMHHMHEH;E|HMHHMHEH;EHEHEsHEHHMHHHEHEH;EH}$<G<HOHEH9HDHEHM$< dHUHHHHkHP HBLEHHHHUHƹHkHPHBLEHHHIHuH6HkHP HBHuLEHIP)IH1H]HkqHL%AӨH9HHHHEH9HIH$<A<HtHHMHHMHEH;E1HEHHUHHHEHHHUHHHEHHIHuH?HkHP HBLEHuHIP)IH1H]HkqHL%AӨ-H9)HHHH]HkqHL%AӨH9HIH$<A<1HDHH;uHMHHMHEH;ERIHeHmHZ HS HMH $<u AK1p8O PREGRAPH>r#B<R<W<<[[$#$?$$(]^$p$$$N$$#(r`aqsh1 t$M#$M$$(]^$p$$$d(uqh1 v(wqr1xy;2 EHeH7HUHHHU1HoHkHP HB㸪HJH %h L%LH9 %H %IHIHAHQ4%h t HMHHHU1HHkHP HBHUHEHE HHHU1HHkHP HBHUHEHEH;EHMHHMHEH;E|HHHUHdHkHP HBHfHUHEH@)HMHI1H]H}H9HHH]HEH9HHHHHkHP HBHUHHXH HMLĺ H9tqHIH$<t OIH)HIH)IPIxIpHIhIPHB %h L%IKH9 %0H %IHI4%h t H]HYHQHEHPH]HEH9HUHLHMHHMHEH;EHUHeHmHEH OHHHUHHkHP HBH-HuHuHEH@)HMHI1HUH}H9nHHHUHEH9^HHHHHSHkHP HBHuH HEH@)HMHI1HUH}H9 HHHUHEH9HHHHHHkHP HB %h L%IKH9 %H %IHI4%h t HQHUHQHMHEH O NH+ %QL%AY " "N jL%AY "ώ " "N " "NjL%AY>QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER boxed_regionQNABSOLUTER boxed_region8QNABSOLUTER boxed_region*QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionzQNABSOLUTER boxed_regionnQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=q z|}$$p>K18 P EDGE-COST8O>#B<$#$?$$(]^$r$$$N$$#$$#(`ah1 $M#$M$$(]^$r$$$D$$$d(h1 (r1;2EHeHu[HUH}HHHUH}HHkHP HBH uPHeHm1𐐐 N=Lz|q\$$\$ $ }LLIFJK$$ $$r>K18 P EDGE-PRICE8O>$eB$$`$?$$(]^$t$$$N$`(`ah1 $E$e$E$$(]^$t$`(h1 (r1;e2EHeHuPHeHm N=z|}LDECLARELIGNOREJ$ $$t>K18O P VERTEX-COST>#B <<<S<  <$#$?$$(]^$u$$$N$$#$$#(`ah1 $Q#$Q$$(]^$u$$#$$#(h1 (r1;2 EHeHWHUH}HU؋$<DHRHHH]HkHP HBHUH}Ћ$<HWHHH$HkHP HBH9UHEPHEHPHEHxHHpH H HAH= HH HCH HkHP HBHHH= HHkHP HBHHUL%AHBHeHmHE@ N    OQNABSOLUTERQ GENERIC-+Rm=Lz=$u$$$$$u$$$$S$u$$$ $u$$ $u$$$$ $u$$$$( ($$u>K18 P VERTEX-PRICE8O>#B$#$?$$(]^$w$$$N$$#(`ah1 $H#$H$$(]^$w$$$O(h1 (r1;2EHeHu;Hʋ$<u5HHPH;uPHeHm 퐐 N O=z|q\$d$d}LCASEJ$ $d$$w>K18O P GRAPH-COST>#B<<S<  <$#$?$$(]^$x$$$N$$#$$#(`ah1 $Q#$Q$$(]^$x$$$D$$#(h1 (r1;2 EHeHHUH}HxHpH tpH lHAH= tbHH HUH}HCHN HkHP HBH=< H8u` N  O=LN$x$$$$x$$$S$x$$ $x$(($$x>K18O PGRAPH43>#B[<q<$#$?$$(]^$y$$$N$$#(`ah1 $I#$I$$(]^$y$$$D(h1 (r1;2EHeHu;HUHHHUHHkHP HBHu` N= [$y$$q$y$(($$y>K18O P GRAFS->TREE> #BQSB-PCLR CTORQCOEDENR BURKHARD-KELLER-TREE   ENSURE-CTOR<$#$?$$(]^$z( VMAKE-VALUE-CELL h1 (r1;2 EHeHH HH= HC H HkHP HB %h L%IKH9 %v7H %IHIHAB4%h t HQHHeHmjL%AYQNABSOLUTER alloc_trampQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=z 7>"#B<$#$?$$(]^$z$$$N$$#("`Qh1 #$P#$P$$(]^$z$,#$D($Ph1 %(&DEFUN GRAFS->TREE'r1();2EHeHHHu$<HHJ$<HQHHHoHkHP HBHuH^ %h L%IKH9 %vGH %IHI4%h t HQHYHHeHm N  OjL%AYQNABSOLUTER alloc_trampQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=.Pc>0# B</<< GROW<$#$B$$(]^$z$$$N$$#(1`a 2h1 3$P#$P$$(]^$z$$#(4 h1 5(6Pr178; 2 EHeHHHuHHHr1HjHP HBHU %h L%IKH9 %AH %IHI4%h t HA HA HMHHuHUHVHHHuHHkHPHBHuȀ %h L%IKH9 %H %IHI4%h t HQHA HH]HKHv$<HH [HEHxH]HpH trHQHHH tcHUHEo HMH5(u` NjL%AYjL%AY2   QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER boxed_region&QNABSOLUTER boxed_regionQNABSOLUTER boxed_region QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region~=A B $z$$C$z$$D0$z$E$z$$$$$$F(G(HI$$z>K1J8O PADD23>L#bB <<<<  INOCULATE<$#@$?$$(]^${$$$N$$#$$#$$#(M`aKNh1 O$U#E$U$$(]^${$$$D$$#$$#(PKh1 Q(RKr1ST;b2 EHeHHUH}HuHHHUHiHkHP HBHHHPHkHP HB %h L%IKH9 %H %IHI4%h t HQHUHQHHpH t`HHXH tQHUHHEo H]H(u` NjL%AYp  QNABSOLUTER alloc_trampKQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=YK PTREEvLCHAR\${$$] ${$$$$^${$$$_L${$`(a(bc$${>K1d8O P FILE->TREE>f#B<< <<$#$B$$(]^$|$$$N$$#(f`aegh1 h$P#$P$$(]^$|$$#(ieh1 j#]##]$$(+Ok^$|(l CLEANUP-FUN-[FILE->TREE]2659nh1 o(pr1qnqr;2 EH@HdHUHHHUHnHkHP HBHUO %h L%ICH9%H%IHBH@HH4%h t HEH% HxH%8 H %8 HEHMHpHMH%h HHiHHAHEH%h HHHUHHkHP HBHUHE HHH%h HH%h HHHH]HMHBHH HEHUH>u` HUH]HMHEHMH%8 H %8 HxH% H9t8HBH tHRtHJHHHBHBHH9uH% HHHH]HMHBHHHEHEH]HML%AH u HeHmHsHHHH=]H^HkHP HB뿐 NjL%AXQNABSOLUTER alloc_trampQNABSOLUTERQ ?UNWINDRVQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=ye PNAME{  $|$|(}(~$$|>K18O PCOMB-CHAR-LIST>#B<<$#$?$$(]^$}$$$N$$#$$#(`h1 $Q#$Q$$(]^$}$$$d$$#(h1 (DEFUN COMB-CHAR-LISTr1;2EHeH7HUH}HU$<$HJH}؋$<HWJJH9t HeHmHEHH$<HQHHH#HkHP HBHUHEHH$<HQHHHHkHP HBHHHHUHHkHP HB1L%AHBH u  2O ( N   .O . O OQNABSOLUTERQ GENERIC-=RK=L>#B K18O P GRAFS->FILE>#BL*PRINT-PRETTY*     <<~s<<$#$B$$(]^$~$$$N$$#$$#(`ah1 $T#$T$$(]^$~$$#$$#(h1 #<##<$$(+O^$~( CLEANUP-FUN-[GRAFS->FILE]2676h1 (r1̭;2EH@HDHUH}O H0H % HCHH % HAHYHSHH8HUH=H5HHCHHCHHCHHCH8HkHP HBHxO %h L%ICH9%H%IHBH@HH4%h t HEH% H`H%8 H %8 HhHpHXHMH%h HHiHHAHEH%h HHHUH%HkHP HBHHHHxH=HHkHP HBHUHE HHH%h HH%h HHHH]HxHBHH HEH% HBHJHHHBHBHH% HUHeHmHUH]HMHhHpH%8 H %8 H`H% H9t8HBH tHRtHJHHHBHBHH9uH% HHHH]HxHBHHHEHEH]HML%AH u HeHmHsHHHH=~HHkHP HB뿐 NjL%AXtQNABSOLUTER alloc_trampQNABSOLUTERQ ?UNWINDR5QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=z7$~$$$$(($$~>K18O P GATHER-FRUIT>#gBNCOSTNCHAR<<< GATHER<I<<  TREE-FRUIT<K18O PSUBSETS>#BK18O PPART>#B<<<< V LIST-SUBSEQ*<<q4UU$#$?$$(]^#$$$N$$#(`ah1 $M#$M$$(]^#$$#(h1 (r1; 2EHeHHUH} UHM$<HHPHHH@HkHP HB$<{HE HU %h L%IKH9 %RH %IHI4%h t HA HA HMHMHEHHHMHEHH$< HMHMHMHEHPHHHHkHP HBH}HHHdHkHP HBHUHM$< HMHE %h L%IKH9 %vH %IHI4%h t HA HA HMHH} HEHP %h L%IKH9 %H %IHI4%h t H]HYHQHUH $<HJH t-HEHPHHHAHkHP HBHUH} IHEHHHHeHmHEHxHEHH$<xHM)HH1HHkHP HBHUHUHMHHHH9bHH HHkHP HBHHHHUH}HhHkHP HB %h L%IKH9 %H %IHI4%h t HQHA HH]HKH} HEHxHEHH$<nHMHMHHMHUHEHPHHHHkHP HBHHHlHkHP HBHUHUHuHEHH9fHEH S OHN N %h L%IKH9 %H %IHI4%h t HA HA N O jL%AY O OjL%AYjL%AY  OjL%AYA OjL%AYFQNABSOLUTER alloc_trampQNABSOLUTER alloc_tramprQNABSOLUTER alloc_trampUQNABSOLUTER alloc_trampBQNABSOLUTER alloc_tramp%QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region4QNABSOLUTER boxed_region&QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=2 #$$$3(4(56$#>K178O PNEXT-PARTITION>9#BUU$#0$?$$(]^#$$$N$$#$$#$$#(9`a8:h1 ;$U#5$U$$(]^#$$#$$#D$$#d(<8h1 =(>8r1?@;2 EHeHHUH}HuHUпL%AHBt t$<B<v<H"Hu$<F<HuNHHH98HuHNHH9PLLLMHM$<@A<5HHEHHHHMHMHEHHHEH9 HELDLEAt#AtI$<AA<v<At#AtI$<eA@<v<UH]IIL%AHBLELMHuH]H u.H]IIL%AHBHuH]H H]HHEHHHEH98HEHDHEH]HMHMHNH]H9HTL%AHBHuHNH]H9HTHH]t t$<C<v< HMt t$<A<v<HUHL%AHBH]H u'HUHL%AHBH]H }HMHEHPHEH]H98HEHLH]HHMt t$<$A<v<H]H}HL%AHBH]H tO HeHmHEHHHU1H9HMHLHH9HEHPHEH9HHUHLHEHHHUHEH9iHMHTHEHHHEH9RHHMHTHH]H}HL%AHBH]H )He HEH \ OHHEH C OH6 HH]HL%AHBH]H  H H OH H  N L "N LO "N "N "N "N " "N " "N "NQNABSOLUTERQ GENERIC-<RQNABSOLUTERQ GENERIC->RSQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC-+RQQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-<RQNABSOLUTERQ GENERIC--Rb=S8 PN PK PMWX$#>K1Y8O PINSTANTIATE-PARTITION>[#UB<<<7< V%MAP-TO-LIST-ARITY-1<<UXq4\qU4]$#$?$$(]^#$$$N$$#$$#$$#(^`aZ_h1 `$U#$U$$(]^#$$#$$#$$#(aZh1 b(cZr1de;U2EHeHHUH}HuHMȋ$<rHUHHH=)O H%HkHP HBHUЋ$<,B<!<HRHH  1HC H HkHP HBHu$<A HuH}  HMHMHEM1HUHUHHH%  HBLHEHHLHEHH$<HML9MHHHUH"HkHP HBH HHPH SHHH}HHkHP HBHʻ HqH t+HHI$< HH uHeHmH t HqHsHQHEH w OH}H} HHHULMLEHMHkHP HBLELMHHUHHUHUЋ$<fB<[HHHHH9HZHH9$Ht2 %h L%I[H9%H%IH[4%h t LCHsHrH9H\ H}  H^ O H T OHM$<uAK1m8O P DO-PARTITIONS>o#BZ<<8<$#$?$$(]^#$$$N$$#$$#(o`anph1 q$Q#$Q$$(]^#$$#$$#(rnh1 s(tnr1uv;2 EHeHgHUH}HUHUHHH%  HBHUสHJH %h L%LH9 %H %IHIHAHQ4%h t HMظHJH %h L%LH9 %H %IHIHAHQ4%h t HMHHHUH}HuHHkHP HBHUHMЋ$< HUHHHtHkHP HBHHHHUHƹHkHPHBzHHHUH}HuHHkHP HBHUHHHUHHkHP HBHHHHUHƹHkHPHBHHHUH}HuHHkHP HBH L HeHmHMH $<u AK18O PPARTH>#B < V %LASTN/FIXNUM<K18O P HOR-EXTENT>#tB<$# $?$$(]^#$$$N$$#(`ah1 $M#%$M$$(]^$$#(h1 (r1;t2EHeHHUHHEHEHMHMHEH@HEHEHHHMHM$<HHH$<HI$<tHI$<iHI$<^HI$<SHYH]t t$<C<v<HUHL%AHBH]H u'HUHL%AHBH]H HMHMHEHH$<HI$<HI$<HQHHH@HkHP HB$<HJ$<xHYH]t t$<C<v<HUHL%AHBH]H u'HUHL%AHBH]H HMHMHMЋ$<H HUH}؀ %h L%I[ H9%H%IH[HHPHH@HxH@ 4%h t HHeHmHhH H_H  N O O O O O O O O O  O Oj L%A[RQNABSOLUTERQ GENERIC-=RFQNABSOLUTERQ GENERIC-<R#= PSSC#$$$$$(($#>K18O PRANGE-INTERSECTION>#.B$#$?$$(]^#$$$N$$#$$#(`ah1 $Q#$Q$$(]^#$ $d$ $D(h1 (r1;.2EHeHHUH}HM$<HHPHM$<HHxL%AHBH VHEHPHEHH$<hHyL%AHBH HEHH$<9HYH]HEHH$<"HqHu@t!@t$<F<v<tt$<C<v<uwHHL%AHBH]HuH u&HHL%AHBH]HuH t&HHEHxL%AHBHeHmHH H  HMHUHUHM N O O O O OQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-<RaQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC->R= PR1 PR2z|q4<}$#>K18O P RANGE-LENGTH>#B$#$?$$(]^#$$$N$$#(`ah1 $L#$L$$(]^#$,#$D(h1 (r1;2EHeHuKHHu$<uAHHJ$<u9HQH~L%AHBHuHeHm N  OQNABSOLUTERQ GENERIC--Ro=>$#>K18O P IMAGINE-BOXES>$eB<$$`$?$$(]^#$$$N$$#(`ah1 $H$e$H$$(]^#$$#(h1 ( r1  ;e2EHeHuHHHu` N= B#$ (($#>K18O PIMAGE->SORTED-BLOCKS>#B`<$#$?$$(]^#$$$N$$#(`eh1 $H#$H$$(]^#$$#(dh1 (DEFUN IMAGE->SORTED-BLOCKSr1;2EHeHuKH$<uEHHH$<u=HI$<u6HI$<u/HQHnu` N  O O O=dcc>#Bq <S<<$#$?$$(]^#$$$N$$#(`ah1 $I#$I$$(]^#$$$D( h1 !("dr1#$;2 EHeHukHUHHHUHHkHP HBHsHxH t3o H bHMH_ u` N =%MS#$$&q #$$'`#$$$$(()(*+$#>K1,8O PCHOOSE-CHAR-CHAINS>.#W B<<B<<Z<<$#p#$$(]^#$$#$$#$$#(.`a-/h1 0(1Qr123; W 2EHv=HPH)HHHvLI)M1ONIHuHH8H@HxHUH}HxHxLLHHHHپ  HHrM I\ HH;uIWH;tK %h L%ISH9%PH%IHR4%h t HZHB IH~H HuHHHUHKHkHP HBHUHUHHH%  HBHU %h L%IsH94%H4%IHv4%h t HuHF HF HuHHHUHHkHP HBHuHHHMHUHEHXH]H ~HAH= 4HE %h L%IKH9 %H %IHI4%h t HA HA HMHHHUHVHuHUHHH%  HBHuЀ %h L%IKH9 %H %IHI4%h t HQHA HH]HKHv$<mHH ^HEHHHܺ H9tqHIH$<t OHH)HEHH)HSH{HsHHkHPHBH}HUHHH%  HBHL%AHBHHHHkHP HBHH]t t$<C<v<HL%AHBH]H u(HL%AHBH]H HMЀ %h L%IKH9 %H %IHI4%h t HA HA HMHHMHMHUHEHP %h L%ICH9%H%IH@4%h t HEHMHA HMHA HMHMHHHmHkHP HBHHH HUH5HEHCH> HkHP HBLHU*HUIpHp$< HHPLEH}HUHHH%  HBHHpLEHN$<HqHUЀ %h L%I[0H9%H%IH[HHPHH@HxHH@HpH@ 4%h t %h L%IKH9 %PH %IHI4%h t HYHA HH]HKM@I$< IH HEHP %h L%IKH9 %H %IHI4%h t HQHA HH]HKHEHHHMHM؋$<H cHEHP %h L%IKH9 %H %IHI4%h t HQHA HH]HKHEHHHMHM$<EH !HEHPHeHmH]H H HB !  Hx jL%AZjL%A^E OjL%AYjL%AY\ jL%AYjL%AXC  Oj0L%A[WjL%AY jL%AY OjL%AYx OQNABSOLUTER alloc_trampE QNABSOLUTER alloc_tramp- QNABSOLUTER alloc_tramp QNABSOLUTER alloc_tramp QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampvQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region>QNABSOLUTER boxed_region0QNABSOLUTER boxed_region$QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region]QNABSOLUTER boxed_regionOQNABSOLUTER boxed_regionCQNABSOLUTER boxed_region*QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC-=RrQNABSOLUTERQ GENERIC->RNQNABSOLUTERQ GENERIC--RQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region~QNABSOLUTER boxed_regionrQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region$QNABSOLUTER boxed_regionQNABSOLUTER boxed_region =b-cZ{ $dezfYg#$$$h#$$$$iZ#$$$$$$$$$$$ j#$$$$$$$$$$ k(l(mn$#>K1o8O PGUESS-CHAR-CHAINS>q# BK18O P CHAR-CHAINS-P>#/B <<<$##$$(]^#$$#$$#$$#(`ah1 (Qr1;/2 EHv:H]H)HHHvLI)M1ONIHuHHxHeHMHUH}H}+H]LLHHHHپ  HHrM I\ HH;uIWH;tK %h L%ISH9%H%IHR4%h t HZHB IH~H WHuHHHUHzHkHP HBHHH HUH5BHEHCHK HkHP HBHH  %h L%IKH9 %H %IHI4%h t HA HA HMHL"HUIpHu$<HHPLEH}HUHHH%  HBHHuLEHN$<Hq1Ҁ %h L%I[0H9%^H%IH[HHPHH@HxHH@HpH@ 4%h t %h L%IKH9 % H %IHI4%h t HYHA HH]HKM@I$<IH HEHPHHHHkHP HBHeu`  HeHmH HB !  HE jL%AZ9jL%AY  Oj0L%A[jL%AY QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER boxed_region QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=eg #$$$$$#$$$$(($#>K18O P LINK-CHAIN>#B<$#@$E$$(]^#$$$N$$#O$$#(`h1 $W#E$W$$(]^#$,#O$D$,#$d(h1 (DEFUN LINK-CHAINr1;2EHeLLHLMLU %h L%IKH9 %H %IHI4%h t HA HA HHILHQI$<IH %h L%I[H9%pH%IH[4%h t HSH{ %h L%ISH9%>H%IHR4%h t HZHB HIPHI$<HH 0HVI$<IHO$<HyHHH8HkHP HBLULMHIр %h L%I[ H9%H%IH[HHPHH@HxH@ 4%h t HHeHm NjL%AY, jL%A[jL%AZ O  Oj L%A[]QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampxQNABSOLUTER alloc_trampeQNABSOLUTER alloc_trampKQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region8QNABSOLUTER boxed_region*QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region}QNABSOLUTER boxed_regionoQNABSOLUTER boxed_regionc=L>#BN INITIAL-VALUE<$#$?$$(]^#$$$N$$#$$#(`ah1 $Q#$Q$$(]^#$$$D$$#(h1 (  r1  ;2 EHeHHUH}HHH0H}H5~HCO HwHCHEHCHl0HkHP HB$<u.HJ$<u'HQHeHm N  O=  PNEXT PCHAIN$#>K18O P START-CHAINS>#yBB$$E <<< <<$##$$(]^#$$#(`ah1 #{##$$(]^#$$$N$$#$$#(`h1 ###$$(]^#$$#$$#(h1 ( !"#r1$%; y2ETH]H)HHHvLI)M1ONIHuHHxHtHpHt HhHeHMHMHt  gH %h L%LH9%H%IHRHHHHRHHBHuHB 4%h t H HMHHHHHkHP HBHUHHHsHtHkHP HBHHHSHkHP HBHUHHH&H'HkHP HBHHHHkHP HBHHHHUHHkHP HBHHH0HUH}H5HCO HHCHKH0HkHP HB$<oHJ$<dHQHeHm2`EHeH HUH}HHpH  %h L%IKH9 %H %IHI4%h t HA HA HHHMkLHQ$<HZ %h L%ISH9%{H%IHR4%h t HZHB HIPHI$<PHH yHOHܺ H9tqHIH$<t OHH)HHH)HSH{HsHHkHPHB %h L%ICH9%H%IH@4%h t HEHMHQHMHA H xHAH= HE %h L%IKH9 %xH %IHI4%h t HA HA HMHHuHUHNH}ȋ$<8HWHHHHuHHkHP HBHu %h L%IKH9 %H %IHI4%h t HQHA HH]HKHv$<HH DHEHHHܺ H9tqHIH$<t OHH)HEHH)HSH{HsHHkHPHBH}ȋ$<MHO$<DHyHHHHkHP HBHHUЀ %h L%I[ H9%H%IH[HHPHH@HxH@ 4%h t HHeHmH+%RL%AZ  O N jL%AY% jL%AZ} OjL%AX( OjL%AY jL%AY   Oj L%A[QNABSOLUTER alloc_tramplQNABSOLUTER alloc_trampFQNABSOLUTER alloc_tramp,QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionoQNABSOLUTER boxed_regionaQNABSOLUTER boxed_regionUQNABSOLUTER boxed_regionWQNABSOLUTER boxed_regionIQNABSOLUTER boxed_region=QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionBQNABSOLUTER boxed_region4QNABSOLUTER boxed_region(QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionqQNABSOLUTER boxed_regioneQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=CLCDCER PCHAINSGV#$$$$$$$$$$$ H(I(JK$#>K1L8O P CHAR-COST>N#kBL CHAR-DOWNCASE<.>O.L>P.?QQL HASH-TABLERBE(S$$$-TLSTRINGLCOERCE< GETHASH3<<$# $?$$(]^#$$$N$$#$$#$$#(X`aMYh1 Z$U#%$U$$(]^#$$$d$$#$$#([Mh1 \(]L HASH-TABLE-Pr1_`; k2EHeHHUH}HuH}؋$<HO$<HI$<HQHHHHkHP HBHUHuЋ$<xHN$<oHI$<dHQHHHHkHP HBHM$<1H=L%AHBH=L%AHBHUHEHH$<HQHEHH$<HyL%AHBHUHHH%  HBH=L%AHBHHUL%AHBHeHmHEHHH; HNH %h L%LH9 %%H %IHIHAHY4%h t HHEHAHQ HHHH=iHjHkHP HBHHH}HHHkHP r HHtt$<uB<v<r <*w3H HY/HHA'HHH;  N  O O  O O O OH+ %QL%AYQNABSOLUTER alloc_tramp^QNABSOLUTER boxed_regionUQNABSOLUTER boxed_region0QNABSOLUTER boxed_region"QNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-*RQNABSOLUTERQ GENERIC-+RyQNABSOLUTERQ GENERIC-+R6QNABSOLUTERQ GENERIC-*R =pM PFREQSUrz{=st$#>K1u8O P CHAINS->GRAPH>w#BLMAKE-HASH-TABLE< V%PUTHASH<<<W<M<R<[U]$#P$?$$(]^#$$$N$$#$$#(y`avzh1 {$Q#U$Q$$(]^#$$#$$$#(|vh1 }(~vr1; 2EHeHHUH}HHHA1HjHP HBHUM1HMHMnHEHHHEHPHU$<HQIHHH}LEHHkHP HBLEؿIL%AHBLHM$<\H uII %h L%I[ H9%,H%IH[HHPHH@HxH@ 4%h t HHHH=6O LEH.HkHP HBLEHUЋ$<uBK18O PSHORTEST-CHAIN>#B<vK18O PBLANK-P>#B<<$#$C$$(]^#$$$N$$#$$#$$#$$#( `ah1 $]#$]$$(]^#$$#$$#$$#$$#(h1 (r1;2 EHeH]H SHUH}HuH]HU1L%AHBH HUH}L%AHBH HUпL%AHBHUHM؋$< t$HMH t$<AK18O P BLANK-LINE-P>#BLCEILINGK18O PBLANK-COLUMN-P>#BB<R<[W<UUX$#$F$$(]^#$$$N$$#$$#$$#$$#( `ah1 $Y#$Y$$(]^#$$#O$$#$$#$$#O( h1  ###Z$$(]^#$$$N$$#( `h1  #p##p$$(]^#$,##( h1 (r1; 2EHeLH]H PLLLI$<?IHPIH$</HI$<$HyH( %h L%IK H9 %H %IHI HA6HCHA4%h t LQLIIHMH u` 20EHeHxHXHHeHuH}H]$<C<<@HHHHH9@HHHHH9HLHHIhIP HBHuH]H}Ht H HS)HK1LL9ILH9IIHHu` Hu Hn Hg  N  O Oj L%AY N "ώ "NQNABSOLUTER alloc_trampQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=v PCN PTOL #$(($#>K18O PCUT-INTO-LINES>!#MB<$$!<<<$#$?$$(]^#$$$N$$#$$#("`a #h1 $$Q#$Q$$(]^#$$#$$#(% h1 &(' PLINEC)r1*+;M2 EHeHwHUH}H} XHHHUH_HkHP HBHHHHCHDHkHP HBHHUHUHMA HE HE I uHM$<HL@pHM$<HHH$<HI$<HyLEIL%AHBLEH HHH}HUILEHoHkHP HBLEH uWH} u.LEIL%AHBLEILHMIL%AHBL~H} u'IL%AHBLHE MLEIL%AHBLLEHEHH$<HyHEHH$<oHI$<dHI$<YHIHUIHM %h L%I[@H9%-H%IH[HHPHH@HxHH@HpHH@HMHHH@ 4%h t %h L%IKH9 %H %IHI4%h t HYHUHQHMMHE HMfH} uHUHhu` HEHH$<lHyHEHH$<YHI$<NHI$<CHIHUIHM %h L%I[@H9%H%IH[HHPHH@HxHH@HpHH@HMHHH@ 4%h t %h L%IKH9 %H %IHI4%h t HYHUHQHMHHM N O O O O O O O Oj@L%A[jL%AY, O O O Oj@L%A[jL%AYBQNABSOLUTER alloc_tramp@QNABSOLUTER alloc_tramp-QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionzQNABSOLUTER boxed_regionnQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region8QNABSOLUTER boxed_region*QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC-+R1QNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-=R@=F vGzH#$$$$$$$I(J(KL$#>K1M8O PTRIM-BOX>O#B<$$$$O<$#$?$$(]^#$$$N$$#$$#(P`aNQh1 R$Q#$Q$$(]^#$$#$$#(SNh1 T(UNr1VW;2 EHeH7HUH}HMЋ$<$HL@WIHHH}HULEHYHkHP HBLEH tiIL%AHBLHEHH$<HI$<HyLEIL%AHBLEH ZLEHEHH$<lHI$<aHQL%AHBHURHuHHH}HUHpHkHP HBH tRQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC--REQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-+R=fNGN#$$$$$$$$ g#$$$$$$$$ h(i(jk$#>K1l8O PCUT-INTO-BOXES>n#B<!<<<N<$#$?$$(]^#$$$N$$#$$#$$#(n`amoh1 p$n#$n$$(]$$$(q#$v#D$#$$#( rmsh1 t(uvwr1xy;2 EHeHtHuHUH}Hu NHUH}HEH} MHHHUHBHkHP HBHHHH&H'HkHP HBHHUHUHMA HE HE HE qI u/HMȋ$<HHH$<HIL9HMȋ$<HHH$<HI$<HI$<HyLMIL%AHBLMH HH H}HUIHEHCLMH HkHP HBLMH ugH} u6LMIL%AHBLMILHMHE FIL%AHBLHE H} H} u6LMIL%AHBLMILHE HMLMH}IL%AHBLMLMPL%AHBLMH u'IL%AHBLHE gLMIL%AHBLLMHEHPHEHH$<HI$<HqH}LM %h L%I[@H9%H%IH[HHPHH@HxHH@HpHH@HMHHH@ 4%h t %h L%IKH9 %#H %IHI4%h t HYHUHQHMIMHE HUHM1LMIL%AHBLLMHEHPHEHH$<HI$<HqH}LM %h L%I[@H9%~H%IH[HHPHH@HxHH@HpHH@HMHHH@ 4%h t %h L%IKH9 %H %IHI4%h t HYHUHQHMIMHE HUHM %h L%MCL9%L%MM@4%h t LEI@ I@ LEH} HUHHHHkHP HBLEHIHUHVHHH}HuHHkHP HBHu %h L%IKH9 %H %IHI4%h t HQHA HH]HKHv$<HH WHEHPHeHmHEHPHEHH$<HI$<HqH}LM %h L%I[@H9%tH%IH[HHPHH@HxHH@HpHH@HMHHH@ 4%h t %h L%IKH9 %H %IHI4%h t HYHUHQHMHHM O O O O O O O Oj@L%A[tjL%AY O Oj@L%A[zjL%AYjL%AAX/jL%AY  O Oj@L%A[jL%AYQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampxQNABSOLUTER alloc_trampdQNABSOLUTER alloc_trampQQNABSOLUTER alloc_tramp>QNABSOLUTER alloc_tramp!QNABSOLUTER alloc_trampQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region&QNABSOLUTER boxed_regionQNABSOLUTER boxed_region QNABSOLUTER boxed_regionfQNABSOLUTER boxed_regionXQNABSOLUTER boxed_regionLQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region2QNABSOLUTER boxed_region$QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC-+RNQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionzQNABSOLUTER boxed_regionnQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC-+RxQNABSOLUTERQ GENERIC-+R5QNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-=R=mv}$z}N#$$$$$$$$$ #$$$$$$$(($#>K18Or>#8B<<R<W<[[UUX$#$?$$(]^#$$$N$$#$$#(`arh1 $Q#$Q$$(]^#$$#$$#$(rh1 (rr1; 82EHeHwHUH}HM$<dHHH$<VHI$<KHQHEHxL%AHBHUHEHH$<HI$<HI$<HQHEHH$<HyL%AHBHHHHUHHkHP HBHHHHkHP HBHUHEHHHMHEHH$<tHAHEHEHxHUL%AHBHUHEHH$<9HyHUL%AHBHUHM$<A<<EHMHHMHH9{E`HMHRHMHH9;HUHHH^HkHP HBHHuHEHP)HEHH1H}HEH9NHHHUHEH9>HHHHHHkHP HBHUHHHUHHkHP HBHRHEH@)HMHI1HUH]H9HHHHUHEH9HHEHH$<A<HUHTHMHHMHEHH$<nHI$<cHI$<XHyHUL%AHBH HUпL%AHBHUHEHH$< HI$<HyHUL%AHBH HUHeHmHEH \ OHEH S OHEH J OHEH A OHEH 8 O N O O O O O O O O O " "N  "  "N LO O O O O OQNABSOLUTERQ GENERIC-=RAQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC--R=rG^ $#>K18 PIF-ARRAY>#SB PROPER-LIST-OF-LENGTH-P< #UB<R<W< VHAIRY-DATA-VECTOR-SET<[X[$# $?$$(]^#$$$N$$#$$#(`ah1 $Q#%$Q$$(]^#$$#$$#(h1 (r1; U2EHeHHUH}HHHU1H[HkHP HBHUHEHHHUؿH HkHP HBHUHE|HHHUHHkHP HBHHMHMHEH@)HMHI1HUH}H9 HHHUHEH9HHHHUHHkHP HBHUHMȋ$<A<w<oHUHHH2HkHP HBH/HUHEH@)HMHI1H]H}H9]HHH]HEH9MHHHHHkHP HBHHUL%AHBH uEHMHHMHEH;EvHMHHMHEH;E! HeHmHEH@)HMHI1HUH}H9HHHUHEH9HHHHU1HHkHP HBRHEH OHEH OHEH O N " "N " "N " "NQNABSOLUTERQ GENERIC-=R =v PMASK$#>K18O PXTRIM>#oB<<!<<<N<r<$#`$?$$(]^#$$$N$$#$$#(`ah1 $Q#e$Q$$(]^#$$#$$#(h1 (r1; o2EHeHHUH}HHHUH}HYHkHP HBHHHUH<HkHP HBHHHH H!HkHP HBHUHEHE HHHUȿHHkHP HBHHUL%AHBH }HUL%AHBHUHuHH HUH}HCHz HkHP HBH O HUHUHMH} 6HUL%AHBHUH} u HeHmHUЋ$<uuHJH tm$<ueHUHQHHHUH}HHkHP HBH}Hu`  = N  OQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC-+R=QNABSOLUTERQ GENERIC-=R= z|q4 }  #$$$$N#$$$$$r#$$$$#$(#$$(($#>K18O P LOOK-AROUND>#7BB<\<R<S<W<<[XUU[\$#$C$$(]^#$$$N$$#$$#$$#$$#( `ah1 $]#$]$$(]^#$$#D$$#d$$#$$#(h1 ###$$(]^#$$$N$$#(`  !h1 "# # # $$(]^#$$#(# h1 $(%r1&!&';72EHeH]H HUH}HuH]H, %h L%IK H9 %oH %IHI HA6HBHA4%h t HMHMHUHQHMHUHQHUL%AHBHUHUL%AHBHHHHUHHkHP HBHUHUL%AHBHHH}HAHkHP HBHUHUL%AHBHUHUL%AHBHHHHUHHkHP HBHUHUL%AHBHHHHUHHkHP HBHUHUL%AHBHHHHUHYHkHP HBHUHUL%AHBHUHUL%AHBHHHHUHHkHP HBHUHUL%AHBHHH}HHkHP HBHUHUL%AHBHUHUL%AHBHHHHUHXHkHP HBHHH@HUH}HuHEHCHEHCHEHCHEHCHKH@HkHP HBHHUHu` 2EHeHXHpHHUH]HH]HU$<HBHEHEHH$<HAHEHMHMHMHM$<gC<\<THMt$<.A<#HMt$<A<HHHHHnHP HBH]HHLHH}HuHIhIP HBH]H oETHMHFHMHH9/EHMHHMHH9HHS)HK1H}H9oHHHUH9cHHHHHHkHP HBt(t#$<xB<v<i<*a1L%AHBH <HM؋$<A<<HUHHHDHkHP HBHHuHEHP)HEHH1H}HEH9HHHUHEH9qHHHHHHkHP HBtt$<uDB<v<r9<*w5L%AHBH u HeHmO H} HEH t OHEH k OO HG HEH N OHEH E OO H9 HEH 0 OHEH  OH  Nj L%AY N  O "ώ "N " "NQNABSOLUTER alloc_trampQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-+R QNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC-+RcQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC--R{QNABSOLUTERQ GENERIC--R:QNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC--RQNABSOLUTER boxed_regionQNABSOLUTER boxed_region|QNABSOLUTER boxed_regionp=H VHIHwxv PTMPKzLM$#>K1N8O P FLOOD-FILL>P#;B V%SETNTH<R<<<O<[X[$#$G$$(]^#$$$N$$#$$#$$#$$#$$#( Q`aORh1 S$e#$e$$(]^#$$#$$$#D$$#$$#$$#( TOh1 U(VOr1WX; ;2EHeH]LEH(HUH}HuH]LEHMȋ$<`HHxHUL%AHBH t+HHH}1HuHHkHP HBHEHH$<HI$<HyHUL%AHBH t.HHH}ȺHuHHkHP HBHEHH$<HyHUL%AHBH t.HHH}ȺHuH<HkHP HBHEHH$<>HI$<3HI$<(HyHUL%AHBH t.HHH}ȺHuHHkHP HBHM$<A<<HUHHHzHkHP HBHCHMHMHEH@)HMHI1H}@gHUH9aHHHH}@QHEH9KHHHHHUоHHkHP HBHM$<A<<HUHHHHkHP HBHFHMHMHEHP)HEHH1H}HEH9HHHH}HEH9HHHHHU1H+HkHP HBHH HUH}HuHEHCH HkHP HBLlIHM@$<$HHPHI$<HyHH(HuHEHCHEHCLEH(HkHP HBLEI$<IH w HeHmHEH Q OHEH H OHEH ? OHEH & O N O O O O O O O  "  "N " "N O O QNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC-<RUQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC-<R=aOwxvJbzcO#$ $$d#$ $$e(f(gh$#>K1i8O PCARVE-INTO-BOXES>k#)B<<<!<<R<W<O<<N<r<<<<[U$#$?$$(]^#$$$N$$#(k`ajlh1 m$M#$M$$(]^#$$#$(njh1 o(p PCARVECrr1st;)2EHeHHUHHHUHHkHP HBHUHE ~HHHUHHkHP HBHHH=O HHkHP HBHUHHHUHHkHP HBHHHHHHkHP HBHUM1HE HHHU1LEHKHkHP HBLEHLEIL%AHBLEH RLEIL%AHBHULEAIHIHH9HHHULEHHkHP HBLEHHuHEHP)HEHH1IHEH9HHHU1H9HHHHHDHkHP HBt(t#$< B<v<<*L%AHBH O LEHMH} UIL%AHBLH} \IHH(1HuHEHCHEHCH(HkHP HBHEHE HHHUȿH*HkHP HBHHUL%AHBH ukHUL%AHBHUHuHH HUH}HCH HkHP HBHMHMHUH} LHUL%AHBHUH} HUЋ$<HJ$<HI$<HIH v$<jHUHQHHHUH}H HkHP HBHHH}HHkHP HB %h L%IKH9 %H %IHI4%h t HQHUHQHMHHHUH}HHkHP HBH HUHHHUHHkHP HBH~jHMЋ$<`HHHH Q$<EHAHHHUH}HHkHP HBHU}HUHu` HUHu` %h L%IKH9 %H %IHI4%h t HUHQHUHQHMHHSu`  0H? HEH 6 OH1  N " "N  O O OjL%AY O OjL%AY6QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER boxed_regionXQNABSOLUTER boxed_regionJQNABSOLUTER boxed_region>QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC--R QNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-=Rz=jMr#$$$$$$$$$ #$$$$$$$$ #$$$$$$$$$$$$ N#$$$$$$$$$$$$$r#$$$$$$$$$$$$ O#$$$$$$$#$$$$$(#$$$$$$$#$$$$$(($#>K18O PBOXIFY>#BNTOLNRECTBm<r<\<<!<<$#@#$$(]^#$$#$$#(`ah1 #g##$$(]^#$$$N$$#(`= h1 ###$$(]^#$$$D(< h1 (= r1; 2EHvAH]H)HHHvLI)M1ONIHuHH}Ht HuHeHMHUH}HULlHHHHٿA A A  HHIt IT HH;uHkH;tYH;tK %h L%I[H9%H%IH[4%h t HSHC L AO LHoH H}I bIH !HM %h L%MCL9%L%MM@4%h t LEI@ I@ LEHHH}HuHHkHP HBLEHIHUHVHHH}HuHHkHP HBHu %h L%IKH9 %H %IHI4%h t HQHA HH]HKHv$<HH WHEHxHUHu` HHHUHHkHP HBHHHHHHkHP HBLI +HC !  HE 2EHeHHUHHHU1HHkHP HBHuO HeHmHHHUHHkHP HBHt 뾺O 뷐jL%A[jL%AAXajL%AY  NQNABSOLUTER alloc_trampmQNABSOLUTER alloc_trampYQNABSOLUTER alloc_trampFQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionuQNABSOLUTER boxed_regioniQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region2QNABSOLUTER boxed_region$QNABSOLUTER boxed_region=< Vp v !vzYm#$$$r#$$$$$(($#>K18O P OBSERVE-WORD>#B< <<<j<p<$#`$?$$(]^#$$$N$$#$$#$$#(`ah1 $U#e$U$$(]^#$$#$$#$$#(h1 ( r1;2 EHeHHUH}HuH tHAH= HEHUHRHuH PHAH= HE %h L%IsH94%H4%IHv4%h t HuHF HF HuHHHUHHkHP HBHuHHUkHMHEHHHMHHHUH}HHkHP HBHH]H $<HHJ$<HI$<HI$<HI$<HQ1L%AHBH]H d %h L%IKH9 %H %IHI4%h t HYHA %h L%ISH9%[H%IHR4%h t HJHB HH]HSHEHPHUHU$< H xHEHHHܺ H9tqHIH$<t OHH)HEHH)HSH{HsHHkHPHB$<Hܹ H9trHRH$<t HH)HuHEH % %h L%IsH94%]H4%IHv4%h t HuHF HF HuHHHUH=HkHP HBHuHHHMHUHEHHHMHHHUH}HHkHP HBHH]H HHHUH}HHkHP HB %h L%IKH9 %mH %IHI4%h t HQHA HH]HKHEHHHMHM$<2H  HEHHX$<HHJ$<HI$<HI$<HI$<HQ1L%AHBH]H H N O OjL%A^G  O O O OjL%AYgjL%AZ  jL%A^jL%AY O  O O O OQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampuQNABSOLUTERQ GENERIC-=R2QNABSOLUTER boxed_regionuQNABSOLUTER boxed_regiongQNABSOLUTER boxed_region[QNABSOLUTER boxed_regionrQNABSOLUTER boxed_regiondQNABSOLUTER boxed_regionXQNABSOLUTERQ ?TAIL-CALL-VARIABLERFQNABSOLUTER boxed_regionWQNABSOLUTER boxed_regionIQNABSOLUTER boxed_region=QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC-=RQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=qZvp#$$$$$$$$$$$$$#$$$$$$$$$$$$$$#$$$$#$$j#$$$$$$$$$ #$$$$$$$$$ ( ($#>K18 PENGLISH-ALPHABETabcdefghijklmnopqrstuvwxyz$#>K18 PLATIN-ALPHABETabcdefghijlmnopqrstuvxy$#>K18 PWELSH-ALPHABETabcdefghijlmnoprstuwyuw$#>K18 PRUSSIAN-ALPHABET0123456789:;<=>?@ABCDEFGHILJMNO$#>K18 PPERSIAN-ALPHABETs"'WY~{}|zH$#>K18 PPERSIAN-CORPUS $#>K18O PCALCULATE-FREQUENCIES> #cB<w< PEOF %EMPTY-HT-SLOT%T# ax<UV<W<0<< < *"'.,?!:;()-/  <NQNABSOLUTERQ GENERIC-=R QNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC-+RQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERQ GENERIC--R=*  PCHARSET P COPRUS-STREAM-z|L HASH-TABLE}/01$#>K128O P HASH->ALIST>4#BT  .$#`$B$$(]^#$$$N$$#O(4`a35h1 6$L#e$L$$(]^#$$#O(73h1 8(9G} G3984; G3985= G3986?R G3987ABCr1DE;2 EHeLH  I$<IMH; rIEoLH %h L%IKH9 %H %IHI4%h t HA HA LH)IM?]H<HqH9Ht9HL@HyL9yJ|HH?H9H;5t H;=L9|A   I uIRHeHmH %h L%I[H9%H%IH[4%h t HKHs %h L%IKH9 %H %IHI4%h t HYHA HHOAO HH9H HQ/H~HA'HHH; 0H O NjL%AY6 "O "OjL%A[jL%AY+QNABSOLUTER alloc_trampQNABSOLUTER alloc_trampQNABSOLUTER alloc_trampkQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionyQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=R3 PHASHTU$#>K1V8O P ALIST->HASH>X#Bw<x<<$#`#$$(]^#$$$d$$$D(X`aWYh1 Z([GW\r1]^;2 EHvAH]H)HHHvLI)M1ONIHuHH}Ht HuHeHMHUH}H]LTHHHHپ  A  HHtwM I\ HH;u O IWH;tK %h L%ISH9%AH%IHR4%h t HZHB MH~H H HHHWH`HkHP HBLLMLEOIHM@$<HHPHqHHILEHHkHP HBLMLEI$<|IH uIHeHmHHxH tT;I !HB !  HE jL%AZ O  QNABSOLUTER alloc_trampfQNABSOLUTER boxed_region#QNABSOLUTER boxed_regionQNABSOLUTER boxed_region =cWd PALIST PTESTzghizjkYlm$#>K1n8O P FILE->FREQS>p#B<<W<<$#$B$$(]^#$$$N$$#(p`aoqh1 r$P#$P$$(]^#$$#(soh1 t#]##]$$(+Ou^#(v CLEANUP-FUN-[FILE->FREQS]4040xh1 y(zr1{x{|;2 EH@HdHUHHHUHnHkHP HBHUO %h L%ICH9%H%IHBH@HH4%h t HEH% HxH%8 H %8 HEHMHpHMH%h HHiHHAHEH%h HHHUHHkHP HBHUHE HHH%h HH%h HHHH]HMHBHH HEHUH>u` HUH]HMHEHMH%8 H %8 HxH% H9t8HBH tHRtHJHHHBHBHH9uH% HHHH]HMHBHHHEHEH]HML%AH u HeHmHsHHHH=]H^HkHP HB뿐 NjL%AXQNABSOLUTER alloc_trampQNABSOLUTERQ ?UNWINDRVQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=o{ W#$(($#>K18O P FREQS->FILE>#B     <3<I<)<<<<$#$B$$(]^#$$$N$$#$$#(`ah1 $T#$T$$(]^#$$#$$#(h1 #5##5$$(+O^#( CLEANUP-FUN-[FREQS->FILE]4052h1 (r1̕;2EH@H4HUH}HH8HUH=H5HHCHHCHHCHHCH8HkHP HBHxO %h L%ICH9%H%IHBH@HH4%h t HEH% H`H%8 H %8 HhHpHXHMH%h HHiH#HAHEH%h HHHUH=HkHP HBH+HxH H HAH= HH o HCH HkHP HBHHHHxH=HHkHP HBHUHE HHH%h HH%h HHHH]HxHBHH HEHUHeHmHUH]HMHhHpH%8 H %8 H`H% H9t8HBH tHRtHJHHHBHBHH9uH% HHHH]HxHBHHHEHEH]HML%AH u HeHmHsHHHH=HHkHP HB뿐 NjL%AXT  OQNABSOLUTER alloc_trampQNABSOLUTERQ ?UNWINDR.QNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_region=zq73#$$$$(($#>K18O P SPLIT-SCRIPT>#$ B<<     <<<UNTYPE1NDEFAULTSL MAKE-PATHNAME<0NSCRIPT0NSCRIPT1<$# #$$(]^#$$#$$#$$#d$$#D(`ah1 # #$ # $$(+O^#( CLEANUP-FUN-[SPLIT-SCRIPT]4083h1 # #$ # $$(+O^#( CLEANUP-FUN-[SPLIT-SCRIPT]4093h1 #8 #$ #8 $$(+O^#( CLEANUP-FUN-[SPLIT-SCRIPT]4073h1 (r1̿;$ 2EHv4HXH)HHHLI)M1ONIHuHH@HHHHHHLTHHHHٿ A A A A  HHhHH H ;LEI LuHE HE HHHHHkHP HBHO %h L%ICH9% H%IHBH@HH4%h t HH% HH%8 H %8 HHHH H%h HHiHHAH H%h HHHHHkHP HBHUH HHH%h HH%h HHHHHHBHH HE HM$< H ZHH8HUH=H5HHCHHCH}HCHzHCH78HkHP HBHO %h L%ICH9%^ H%IHBH@HH4%h t HH% HH%8 H %8 HHHHPH%h HHiH^HAHPH%h HuHHHH=HHkHP HBH HHH%h HH%h HHHHHHBHH HEAHH8HUH=H5HHCHHCHHCHHCH8HkHP HBHO %h L%ICH9%H%IHBH@HH4%h t HH% HxH%8 H %8 HHHpHMH%h HHiHHAHEH%h HuHHHH=HHkHP HBHUH HHH%h HH%h HHHHHHBHH HEHUHeHmHEH@HEHEHHHMHM$<HHPHHHH=HkHP HBH 3H$< A<K18 PLATIN->CYRILLICABCEHIJKMOPTXabceijmnouy$#>K18 PCYRILLIC->LATIN!IJ "%0,A5ijB?>8#$#>K18O PBILINEAR>#5 B<~a ~a ~a ~a ~a ~a ~a ~a ~a ~a <$#0 $R$$(]^#$$$N$$#$$#$$#$$#$$#$$#O$$#(`ah1 ##5 #$$(]^#$$#D$$#$$#$$#$$#d$$#$$#(h1 (r1;5 2 EHH]LELMLUH8 HhH@H8HXL`LPLHHHH`L%AHBHxHPHXL%AHBHUHHH8L%AHBHUH8H`L%AHBHpHPH@L%AHBHUH@HXL%AHBHUHxHMHMHMHMHMHpHMHMHMHMHMHh$< I HhHHH)HkHP HBHHHHXH`HƹHkHPHBHUHHHhHHkHP HBHHHHPH`HƹHkHPHBHUHHHhHuHkHP HBHHHHXHHHƹHkHPHBHUHHHhHHkHP HBHHHHPHHHƹHkHPHBHHH`O H=HuHEHCHEHCHKHEHCHEHCHEHCHEHCHEHCHEHCH`HkHP HBHXHMH@HXL%AHBH t*HXHPL%AHBH wH@HXL%AHBH H`HMH8H`L%AHBH `HHHhHHkHP HBHHHHUH}HƹHkHPHBH}HUHHH%  HBHxHUHHH%  HBH}L%AHBH}L%AHBHUHHHhHHkHP HBHHHHPH}HƹHkHPHBH}HUHHH%  HBHxHUHHH%  HBH}L%AHBH}L%AHBHHUL%AHBHUHHHhHHkHP HBHHHHUHHHƹHkHPHBH}HUHHH%  HBHxHUHHH%  HBH}L%AHBHpL%AHBHHUL%AHBHUHHHhHHkHP HBHHHHPHHHƹHkHPHBH}HUHHH%  HBHxHUHHH%  HBH}L%AHBHpL%AHBHHUL%AHBHeHmH`HHL%AHBH vHHHhH HkHP HBHHHHUH}HƹHkHPHBH}HUHHH%  HBH}L%AHBHUHHHhHHkHP HBHHHHPH}HƹHkHPHBH}HUHHH%  HBH}L%AHBHHUL%AHBHXHPL%AHBH HHHhHHkHP HBHHHHUH`HƹHkHPHBHxHUHHH%  HBH}L%AHBHUHHHhH$HkHP HBHHHHUHHHƹHkHPHBHxHUHHH%  HBHpL%AHBHHUL%AHBK1J8O PPOPLAR>L#x B<<<<< V %DOUBLE-FLOATK18O PLOGPOLAR>#^B<<<MLLOGRwQNABSOLUTERQ GENERIC-<RQNABSOLUTERQ GENERIC->RQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERsinQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTER boxed_regionQNABSOLUTERcos QNABSOLUTERexpj=M 1return the log-polar transform of cartesian IMAGE$#>K18O P IMAGE-MEAN># B<<R<W<[UUX$#$G$$(]^#$$$N$$#$$#$$#$$#$$#O( `ah1 ###$$(]^#$$#$$#(h1 ###$$(]^#$,##$,#O$d$,#$D( h1 ###$$(]^#$,##$,##D$,##$$,#O#( h1 #J##J$$(]$$$$$(#$ PI0#D$ #$v#$ PJ0#$$ PJ1#(h1 ( r1̾; 2EHeH]LMHtNHtCHt5H t$H(uHUH}HuH]LM NLLL_LLLM1LM1HHI1HuLmLUHHkHP HBLULmHuMMLHHIпLmHuLULEHHkHP HBLELUHuLmLELUHuLmHUHMt t$<A<v<~HMt t$<SA<v<DHMHMHE<HUH}L%AHBH tVHHHUHHkHP HBHHUHUHHH%  HBHeHmHMHMHMt t$<A<v<wHMt t$<LA<v<=HMHMHEHUH}L%AHBH t`HUH}L%AHBHUHUпL%AHBHUHUH}L%AHBH HMȋ$<A<|<tEYHMHKHMHH94EHMH HMHH9HUHHHHkHP HBHHuHEHP)HEHH1H}HEH9%HHHUHEH9HHHHHHkHP HBHHUL%AHBHUHMHHMHUH}L%AHBH AHEH K OHEH B OHEH 9 OHEH 0 OHEH ' OHEH  OHEH  OHEH O " "NQNABSOLUTERQ GENERIC->R]QNABSOLUTERQ GENERIC-+R6QNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-=R=v}$$ v$v$z}=$#>K18O PIMAGE-DEVIATION>#B<<Z<R<W<<[UUX<$#$K$$(]^#$$$N$$#$$#$$#$$#$$#$$#(`ah1 ###$$(]^#$$#$$#O(h1 ###$$(]^#$$#$$#$$#(h1 ###$$(]^#$,#O#$,#O#$,#$d$,#$D( h1 # ## $$(]^#$,#O#$,#O#$,##d$,##D$,##$(h1 #t##t$$(]$$$$$$(#$#d$ #$$v#$#D$#$ PMEAN#(h1 ( r1;2EHeH]LELUHt]HtRHtJH t9H(t(H0uHUH}HuH]LELU NLLLoLLLLA I1LLM1HHI1LuHuLmLMHHkHP HBLMLmHuLuLHHIѿLELuHuLmLMHkHkHP HBLMLmHuLuLELMLmHuLuLEHUH} HMt t$<A<v<HMt t$<A<v<HMHMHEBHUH}L%AHBH t\HHHUHHkHP HBHHUHUHHH%  HBHVu` HMHMHMt t$<A<v<HMt t$<A<v<vHMHMHEHUH}L%AHBH t`HUH}L%AHBHUHUпL%AHBHUHUH}L%AHBH HMȋ$<A<<EHMHHMHH9mERHMHDHMHH9-HUHHHHkHP HBHHuHEHP)HEHH1H}HEH9HHHUHEH9HHHHHjHkHP HBH}L%AHBHHH9HkHP HBHHUL%AHBHUHMHHMHUH}L%AHBH HEH OHEH OHEH OHEH OHEH OHEH OHEH OHEH } OHH(HUH}HuHEHCHEHCHU(HkHP HBHU " "NQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC--RqQNABSOLUTERQ GENERIC->R7QNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-=R=v}z}#$$$(($#>K1 8O PCROSS-CORRELATION> #0 B<<<R<W<[UUX[UU$# $s$$(]^#$,#N$D$,##$,##$,##$,#$d$,#O#$$#( `a  h1  ## #$$(]^#$,##d$,##$,##$$,##D$,#$d( h1 #}# #}$$(]$$$$$$(#$ PIC#$$v#$ PJC#D$#d$ PMASK-AV#$ PMASK-DV#( h1 (r1;0 2EH@LLMLLEH}HuLULULmLmHMHxI t@I(t,I0uLEH}HpLhLm NMLLIHHHIHHkHP HBLEH}HuLULmLMMLLHHHIHHuLhLpLELuHiHkHP HBLuLELpLhHuLuLELpLhHuHxHHHU1HHkHP HBHHHHpL%AHBHUHHHU1HHkHP HBHHHHpL%AHBHUHHHUHvHkHP HBHHHHhL%AHBHUHHHUH(HkHP HBHHHHhL%AHBHMHMHMHMHUHH(HUH}HuHEHCHEHCH(HkHP HBHUHH0HUH}HuHEHCHEHCHEHCHf0HkHP HBHUHMt t$<A<v<HMt t$<WA<v<HHMHMHEHUH}L%AHBH Hx1L%AHBH HxHUHUHHH%  HBHUHU1L%AHBH u2H}HUHUHHH%  HBHeHm˿yHMHMHMt t$<)A<v<HMt t$<A<v<HMHMHE1HUH}L%AHBH t`HUH}L%AHBHUHUпL%AHBHUHUH}L%AHBH c:HUH}L%AHBLLEHUH}L%AHBHH`LEAIHIHH9HHHHH9HHHUHHnHP HBH`LEHHHuHEHP)HEHH1IHEH9HHHEH9HHHHHHkHP HBH}L%AHBHUHM$<A<<EHMHtHMHH9]EBHMH4HMHH9HUHHHRHkHP HBHHuHEHP)HEHH1H}HEH9HHHUHEH9xHHHHHHkHP HBH}L%AHBHHUL%AHBHHUL%AHBHUHMHHMHUH}L%AHBH HEH ] OHEH T OHEH K OHEH B OHEH 9 OH4 H/ HEH $ OHEH  OHEH  OHEH O " "N " "NQNABSOLUTERQ GENERIC->R3QNABSOLUTERQ GENERIC-+R QNABSOLUTERQ GENERIC-*RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC->RYQNABSOLUTERQ GENERIC-+R>QNABSOLUTERQ GENERIC-+R"QNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-=R0QNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC--RRQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC--R=@ Av}BCvDEFz}G=H#$$$$$I#$$$$$J#$$$K#$$$L(M(NO$#>K1P8O PIMAGE-CROSS-CORRELATION>R#B<<<<< <R<[$#$?$$(]^#$$$N$$#$$#(R`aQSh1 T$Q#$Q$$(]^#$$#$$#d(UQh1 V(WQr1XY; 2EHeHGHUH}HHHUH]HkHP HBHUHHHUH}H8HkHP HBHUHHHUHHkHP HBHHHHkHP HBHUHHHU1HHkHP HBLIILEHHHU1HHkHP HBHUHHHU1H{HkHP HBHHHEH)HHEHHHUH;HkHP HBHHHUHHHUHHkHP HBHUHHHUHHkHP HBHHHEH)HHELELMIIHH0HUH}HKHEHCHEHCLMLEHm0HkHP HBLELMHUHHHULMLEH<HkHP HBLELMHHEH@)HMHI1HUL9IHHHHEL9IHHEHH$<|AK1b8O PSLOW-FOURIER-TRANSFORM-2D>d#B<<<Y<R<W<LHkHP HBHHH%HkHP HBHUHHHU1HHkHP HBHUH HAH= yHEHHHUHHkHP HBHܹ H9trHRH$<t HH)HEHH)HSH{HsHHkHPHBHUHEHEHMHMHMHMHE1HMHEHE3HHHUHHkHP HBHaHUHEH@)HMHI1H]H}H9[HHH]HEH9KHHHHHkHP HBHUHUH}L%AHBHUHUH}L%AHBHHUL%AHBH}HUHHH%  HBHHxHHHH HkHP HBHxJfWYMHHHHHkHP HBJHPYUHH %h L%IS H9%H%IH*HRRZ4%h t HQHkHP HBHHUL%AHBHHUL%AHBHUHMHHMHEH;EHUH}L%AHBHHUHHUHEH;ErH}HHUHHH%  HBHUHHHUHeHkHP HBHHEH@)HMHI1H]HUH9HHHHH]HEH9HHEHH$<A<HEHDHHMHHMHEH;EsHMHHMHEH;ELHUHeHmHEH OHEH O N O " "Nj L%AZ " "N LOQNABSOLUTER alloc_tramppQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-*RQNABSOLUTER boxed_region`QNABSOLUTER boxed_regionRQNABSOLUTER boxed_regionFQNABSOLUTERQ GENERIC-+R}QNABSOLUTERQ GENERIC-*RgQNABSOLUTERQ GENERIC-*RL=~cM $#>K18O PPHASE-DIFFERENCE>#B<<<WK18O PPHASE-DIFFERENCE!>#pB<W<<<<$#p$?$$(]^#$`$ #$ #(`ah1 $G#p$G$$(]^#$ #$$ #(h1 (r1;p2 EHeHUH}HUHH1HuHkHP HBHUHE~HEWHUHEH@1H}HHH}HHH"HkHP HBHUHMHMHEH@1H}HHH}HHHUHHkHP HBHHHHkHP HBHHUL%AHBHUHMHMHHHUHHkHP HB1L%AHBH 1HEH@1H}HHH}HHHUH,HkHP HBHMHHMHEH;EHMHHMHEH;EtHUHeHmHHHUHHkHP HBHHUHUHHH%  HBH-QNABSOLUTERQ GENERIC-=RQNABSOLUTERQ GENERIC-*R>= maps into ft2$#>K18O P!SLOW-INVERSE-FOURIER-TRANSFORM-2D>#B<<<Y<R<W<L<Me<[[$#P$B$$(]^#$$$N$$#(`ah1 $P#U$P$$(]^#$$#d(h1 (r1; 2EH@HHUHHHUH>HkHP HBHHH%HkHP HBHUHHHU1HHkHP HBHUH HAH= yHEHHHUHHkHP HBHܹ H9trHRH$<t HH)HEHH)HSH{HsHHkHPHBHUHEHEHMHMHMHMHE1HMHEHE3HHHUHHkHP HBHaHUHEH@)HMHI1H]H}H9[HHH]HEH9KHHHHHkHP HBHUHUH}L%AHBHUHUH}L%AHBHHUL%AHBH}HUHHH%  HBHHxHHHH HkHP HBHxJfWYMHHHHHkHP HBJHPYUHH %h L%IS H9%H%IH*HRRZ4%h t HQHkHP HBHHUL%AHBHHUL%AHBHUHMHHMHEH;EHUH}L%AHBHHUHHUHEH;ErH}HHUHHH%  HBHUHHHUHeHkHP HBHHEH@)HMHI1H]HUH9HHHHH]HEH9HHEHH$<A<HEHDHHMHHMHEH;EsHMHHMHEH;ELHUHeHmHEH OHEH O N O " "Nj L%AZ " "N LOQNABSOLUTER alloc_tramppQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-*RQNABSOLUTER boxed_region`QNABSOLUTER boxed_regionRQNABSOLUTER boxed_regionFQNABSOLUTERQ GENERIC-+R}QNABSOLUTERQ GENERIC-*RgQNABSOLUTERQ GENERIC-*RL=M $#>K18O PFOURIER-MAGNITUDES>#B Kto zdes'?n <$#$C$$(]^#$$$D$`(`ah1 $o#$o$$(]^#$`(h1 (r1;2EHeHMHEHuSHHH@HAHHHEHBHHHsHtHkHP HB㐐 =Mz$#>K18O PFOURIER-MAGNITUDES!>#eB<R<W<<<[$#@$?$$(]^#$$$N$$#(`ah1 $M#E$M$$(]^#$$$D(h1 (r1;e2 EHeHHUHHHU1HoHkHP HBHUHEHHHUH4HkHP HBHUHE+HHHUHHkHP HBH4HMHMHEH@)HMHI1HUH}H9-HHHUHEH9HHHHUHHkHP HBHHHHkHP HBHHEH@)HMHI1HUH}H9HHHUHEH9HHHHUH$HkHP HBHMHHMHEH;EHMHHMHEH;ErHUHeHmHEH O N " "N " "N=Mz|X}$#>K18O P IMAGE-MAX>#BR<W<[X$#$?$$(]^#$$$N$$#(`ah1 $M#$M$$(]^#$$#$(h1 (r1;2 EHeHgHUHM$<5A<*<"HUHHH^HkHP HBHHuHuHEH@)HMHI1HU1H9HHHU1H9HHHHHHkHP HBHuHEHEHUHEH@)HEHEHF1HEHEHF)HN1H}H9fHHHEH9\HHHHH`HkHP HBHuH}L%AHBHuH uTHMHHMHEH;EqHMHHMHEH;EBHUH}HuHݹHmHccHF)HN1H}H9HHHEH9HHHHHHkHP HBHuHUHMHMHMHM>HEH d OHEH [ O N " "N " "N " "NQNABSOLUTERQ GENERIC->R=Mz|T#}$#>K18O PROT-MAX>#BR<W<[X$#`$?$$(]^#$$$N$$#(`ah1 $M#e$M$$(]^#$$#(h1 (r1;2 EHeHHUHMȋ$<A<<HUHHH^HkHP HBHHuHuHEH@)HMHI1HU1H9HHHU1H9HHHHHHkHP HBHuHEHUHEH@1HEHEHF)HN11H95HHHEH9+HHHHHHkHP HBHuH}L%AHBHuH u8HMHHMHEH;Es1H}HuHݹHmHccHF)HN11H9HHHEH9HHHHHHkHP HBHuHUHMHMdHEH OHEH O N " "N " "N " "NQNABSOLUTERQ GENERIC->R=Mz|}$#>K18O PFOURIER-CORRELATION>#B< PFFT-2D!<< PINVERSE-FFT-2D!<<$#$K$$(]^#$$$D$$$d$$#(`ah1 ###$$(]^#$$#$$#(h1 (r1 ;2 EHeHMHUH}HEHGHHH@HUHQHUHQHAHHHEHBHHHUH3HkHP HBHHHHkHP HBHUHHHUHHkHP HBHHHHkHP HBHHHHUHHkHP HBHHHHkHP HBHHH~HkHP HBHl / = [z #$$$$$ #$$$$ #$$$$$#$$$$#$$$#$$#$(($#>K18L NOTINLINE PFOURIER-CORRELATION!8O>#B<<<$#$?$$(]^#$$$N$$#$$#(`ah1 $M#$M$$(]^#$$$D$$$d(h1 (r1 !;2 EHeHukHUH}HHHUH}H}HkHP HBHHHdHkHP HBHRu` N=" PF1 PF2%z&#$$$'#$$(#$)(*(+, maps into ft1-%$#./012$#>K138 P FFT-N-MAGS!58O4>6#B P REAL-FFT-2D!<<$#$G$$(]^#$$$D$$$d(7`a48h1 9$#$$$(]^#$$#(:4h1 ;(<4r1=>;2 EHeHMHUHEHHHH@HUHQHAHHHEHBHHHUHOHkHP HBHHH6HkHP HBH$ / =?4M#$$$@6#$$$$A(B(CDM46vEFG|HIJKL$#>K1M8O P FOR-MELLIN>O#%B4< PFOURIER->IMAGE< P HIGH-PASS!< PGRAYSCALE-IMAGE!<<$# $?$$(]^#$$$N$$#(R`aNSh1 T$M#%$M$$(]^#$$$d(UNh1 V(WG}VXR G4560Z[\r1]^;%2 EHeHHUHHHUHqHkHP r HHH}HHHKHkHP HBHHH2HkHP HBHHHHkHP HBHHHHkHP HBH}HݹHmHc c N=_NMO#$$$$$$`P#$$$$$aQ#$$$$b#$$$c4#$$d( e(fg$#>K1h8O PLOGARITHM-FILTER>j#CB.8j<<<<<R<W<<[[$# $?$$(]^#$$$N$$#$$#(k`ailh1 m$i# $i$$(]$$(n#$v#$ PSCALE#$(piqh1 r(sG} IGNORE-4579u IGNORE-4578w KEEPER-4577yR G4580{|}r1~;C2EHeHtHu HUH} NHUH;HUHHHUH-HkHP HBHHHHkHP HBHUHHHUHHkHP r  HHHHHUL%AHBL%AHBHHHHkHP HBHHUHHH%  HBHUHHHU1H[HkHP HBHUHEAHHHUH HkHP HBHUHEHHHUHHkHP HBHHUHEH@)HMHI1H]H}H9HHH]HEH9HHHHHkHP HBHHUL%AHBL%AHBHHH+HkHP HBHHUL%AHBHʋ$<u B<&-$<u B<*HHHHHkHP HBHUHHHUHHkHP HBHHEH@)HMHI1H]HUH9HHHHH]HEH9HHEHH$<A<HEHDHHMHHMHEH;EHMHHMHEH;EHUHeHmHEH OH HEH O " "N " "N LOQNABSOLUTERQ GENERIC-*RQNABSOLUTERQ GENERIC-+R|QNABSOLUTERQ GENERIC-*RhQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-*R=iv}ojz} #$$$$$$$$$ (($#>K18OO>#RB<<<R<W<[[$# $?$$(]^#$$$N$$#(`aOh1 $M#%$M$$(]^#$$#$(Oh1 (Or1; R2EHeHHUHHHUHaHkHP HBHHHHHkHP HBHUHHHU1H%HkHP HBHUHEHEYHUпHUHHH%  HBH}L%AHBH HUпHUHHH%  HBHHUL%AHBHUHUпHUHHH%  HBH}L%AHBH HUпHUHHH%  HBHHUL%AHBHUHHHUHHkHP HBHcHUHEH@)HMHI1H]H}H9HHH]HEH9HHHHvHkHP HBHUHHHUHEHkHP HBHHEH@)HMHI1HUhH]H9`HHHESH]H9KHHEHH$<;A<0HEHDHHMHHMHEH;EHMHHMHEH;ErHUHeHmHEH p OHEH g OHUпHUHHH%  HBH}L%AHBHUHUпHUHHH%  HBH}L%AHBHUO N " "N  "  "N LOQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC-+RQNABSOLUTERQ GENERIC--RQNABSOLUTERQ GENERIC->RQNABSOLUTERQ GENERIC--RUQNABSOLUTERQ GENERIC-