$ od -c -N 50000 [eris]<LispCore>PROLOG>SNAP5>INDEX.DCOM!2
0000000 ( F I L E C R E A T E D " 6
0000020 - N o v - 8 5 1 7 : 1 7 : 3 7
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > P R O L O G > S N A P 5 > I
0000120 N D E X . L S P ; 2 ) \r " 1 7
0000140 - O c t - 8 5 1 8 : 5 8 : 4 4
0000160 " r e c o m p i l e d c h a
0000200 n g e s : R . j u s t . i n d
0000220 e x . e l s e i n " I N T E
0000240 R L I S P - D 1 7 - O c t - 8
0000260 5 . . . " d a t e d \r " 1
0000300 7 - O c t - 8 5 1 9 : 1 9 : 5
0000320 8 " ) \r ( F I L E C R E A T E D
0000340 " 6 - N o v - 8 5 1 7 : 1
0000360 7 : 0 5 " { E R I S } < L I S
0000400 P C O R E > P R O L O G > S N A
0000420 P 5 > I N D E X . L S P ; 2 8
0000440 4 0 5 c h a n g e s t o :
0000460 ( M A C R O S \r h a s h e d .
0000500 i n d e x ) ( F N S R . j u
0000520 s t . i n d e x . e l s e ) p
0000540 r e v i o u s d a t e : " 2
0000560 3 - O c t - 8 5 2 3 : 3 8 : 1
0000600 9 " \r { E R I S } < L I S P C
0000620 O R E > P R O L O G > S N A P 5
0000640 > I N D E X . L S P ; 1 ) \r R .
0000660 e i t h e r D 1 \r N I L \0 266
0000700 \0 \0 \0 \0 n = 232 n 034 026 4 k 320 7 n 323
0000720 316 4 n 315 314 4 \n \0 \0 227 n 350 347 n 315 314
0000740 4 215 n 350 347 n 323 316 4 n = 232 4 310 \0 320
0000760 7 277 n 350 347 4 n 301 275 4 316 \0 277 n 350 347
0001000 4 n 323 316 4 316 002 277 n 350 347 4 n = 232 4
0001020 316 004 277 n 350 347 4 n 315 314 4 316 006 277 n 350
0001040 347 4 n 233 a 4 323 n 034 026 4 310 \0 321 316 \b
0001060 277 n 350 347 4 n 332 331 4 316 \n 277 n 350 347 4
0001100 n 337 335 4 316 \f 277 n 315 314 n 350 347 4 l 016
0001120 320 7 277 n 334 333 n 337 335 4 7 277 n 315 314 4
0001140 322 ` \0 \0 322 k 330 375 361 246 g \0 \0 \t \0 \0
0001160 277 n 6 6 j 7 l 002 020 \0 ( 2 5 3 Q
0001200 S H O U L D N T 2 4 Q \ B A
0001220 S E L E S S P ) \r ( 2 5 0 Q L
0001240 o c a l 2 3 7 Q Q P . m e m
0001260 t o p ) \r ( ) \r R . j u m p . t
0001300 o D 1 \r N I L \0 027 001 \0 \0 \0 n
0001320 233 a 4 323 n 034 026 4 310 \0 321 021 001 \0 n 6
0001340 6 j 7 H 020 \0 N I L \r N I L \r ( )
0001360 \r R . j u s t . i n d e x . e l
0001400 s e D 1 \r N I L \b { 001 \0 \0 \0
0001420 n 274 272 n 025 024 5 n 025 024 4 6 n 274 272 5
0001440 d j 360 262 P 277 n 350 347 n 274 272 4 7 n 274
0001460 272 n 350 347 4 j 302 n 350 347 4 311 \0 6 n 274
0001500 272 5 021 001 \0 H j 360 265 \v H 005 003 264 006 H
0001520 \t \0 \0 022 231 n 274 272 4 n 350 347 4 360 243 277
0001540 277 260 273 n 034 026 4 311 003 021 001 \0 n 6 6 j
0001560 7 H 020 d l 200 360 262 033 277 n 345 343 n 274 272
0001600 4 7 n 034 026 4 311 \a 021 001 \0 n 6 6 j 7
0001620 H 020 d l H 360 242 261 002 271 277 n 345 343 n 274
0001640 272 4 7 n 274 272 n 345 343 4 j 302 n 345 343 4
0001660 311 \0 6 n 345 343 d 4 l 002 320 7 n n n n
0001700 034 026 4 310 001 7 n n n n n a 4 323 n 274
0001720 a 4 323 345 7 n 350 347 n 034 026 4 311 \t 7 n
0001740 261 237 n 350 347 4 n n a 4 323 340 340 302 n 350
0001760 347 4 n n a 4 323 340 320 311 \0 6 n 261 237 5
0002000 d j 360 242 261 \0 206 277 n 350 347 n 315 314 4 m
0002020 362 320 7 n 323 316 n 350 347 4 311 \n 7 260 " n
0002040 345 343 n 332 331 4 311 \0 7 277 n 332 331 d 4 l
0002060 002 320 7 277 n 345 343 4 n 345 343 4 316 \0 277 n
0002100 332 331 4 n 323 316 4 360 262 327 n 301 275 n 350 347
0002120 4 311 \0 7 n 323 316 n 350 347 4 311 002 7 n =
0002140 232 n 350 347 4 311 004 7 n 337 335 n 350 347 4 311
0002160 \f 7 n 034 026 n 350 347 4 311 \b 7 n 034 026 4
0002200 021 001 \0 n 6 6 j 7 H 020 d l \b 360 242 261
0002220 \0 311 277 n 350 347 n 261 237 4 7 n 261 237 n 350
0002240 347 4 j 302 n 350 347 4 311 \0 6 n 272 a 4 323
0002260 n 237 a 4 323 360 262 n 274 a 4 323 n 261 a
0002300 4 323 360 262 023 n 350 347 4 l 002 320 021 001 \0 n
0002320 6 6 j 7 H 020 n 350 347 n 315 314 4 m 362 320
0002340 7 n 323 316 n 350 347 4 311 \n 7 260 " n 345 343
0002360 n 332 331 4 311 \0 7 277 n 332 331 d 4 l 002 320
0002400 7 277 n 345 343 4 n 345 343 4 316 \0 277 n 332 331
0002420 4 n 323 316 4 360 262 327 n 301 275 n 350 347 4 311
0002440 \0 7 n 323 316 n 350 347 4 311 002 7 n = 232 n
0002460 350 347 4 311 004 7 n 337 335 n 350 347 4 311 \f 7
0002500 n 034 026 n 350 347 4 311 \b 7 n 034 026 4 021 001
0002520 \0 n 6 6 j 7 H 020 l 200 360 242 261 \0 355 n
0002540 350 347 n 261 237 4 7 260 Z n 034 026 n 350 347 4
0002560 311 002 7 277 n 261 237 n 034 026 4 j 302 n 034 026
0002600 4 311 \0 6 277 n 272 a 4 323 n 237 a 4 323 360
0002620 262 ( n 274 a 4 323 n 261 a 4 323 360 262 033 g
0002640 \0 \0 n 034 026 4 l 002 320 021 001 \0 n 6 6 j
0002660 7 277 H 022 \n \0 \0 277 n 350 347 d 4 311 \0 7
0002700 277 n 350 347 4 263 244 n 350 347 n 315 314 4 m 362
0002720 320 7 n 323 316 n 350 347 4 311 \n 7 260 " n 345
0002740 343 n 332 331 4 311 \0 7 277 n 332 331 d 4 l 002
0002760 320 7 277 n 345 343 4 n 345 343 4 316 \0 277 n 332
0003000 331 4 n 323 316 4 360 262 327 n 301 275 n 350 347 4
0003020 311 \0 7 n 323 316 n 350 347 4 311 002 7 n = 232
0003040 n 350 347 4 311 004 7 n 337 335 n 350 347 4 311 \f
0003060 7 n 034 026 n 350 347 4 311 \b 7 n 034 026 4 021
0003100 001 \0 n 6 6 j 7 H 020 g \0 \0 \t \0 \0 020
0003120 d l 310 360 242 261 002 221 277 n n n n 034 026 4
0003140 310 001 7 n n n n n a 4 323 n 274 a 4 323
0003160 345 7 n 350 347 n 034 026 4 311 \t 7 n 261 237 n
0003200 350 347 4 n n a 4 323 340 340 302 n 350 347 4 n
0003220 n a 4 323 340 320 311 \0 6 n 261 237 5 d j 360
0003240 242 261 \0 206 277 n 350 347 n 315 314 4 m 362 320 7
0003260 n 323 316 n 350 347 4 311 \n 7 260 " n 345 343 n
0003300 332 331 4 311 \0 7 277 n 332 331 d 4 l 002 320 7
0003320 277 n 345 343 4 n 345 343 4 316 \0 277 n 332 331 4
0003340 n 323 316 4 360 262 327 n 301 275 n 350 347 4 311 \0
0003360 7 n 323 316 n 350 347 4 311 002 7 n = 232 n 350
0003400 347 4 311 004 7 n 337 335 n 350 347 4 311 \f 7 n
0003420 034 026 n 350 347 4 311 \b 7 n 034 026 4 021 001 \0
0003440 n 6 6 j 7 H 020 d l \b 360 242 261 \0 311 277
0003460 n 350 347 n 261 237 4 7 n 261 237 n 350 347 4 j
0003500 302 n 350 347 4 311 \0 6 n 272 a 4 323 n 237 a
0003520 4 323 360 262 n 274 a 4 323 n 261 a 4 323 360
0003540 262 023 n 350 347 4 l 002 320 021 001 \0 n 6 6 j
0003560 7 H 020 n 350 347 n 315 314 4 m 362 320 7 n 323
0003600 316 n 350 347 4 311 \n 7 260 " n 345 343 n 332 331
0003620 4 311 \0 7 277 n 332 331 d 4 l 002 320 7 277 n
0003640 345 343 4 n 345 343 4 316 \0 277 n 332 331 4 n 323
0003660 316 4 360 262 327 n 301 275 n 350 347 4 311 \0 7 n
0003700 323 316 n 350 347 4 311 002 7 n = 232 n 350 347 4
0003720 311 004 7 n 337 335 n 350 347 4 311 \f 7 n 034 026
0003740 n 350 347 4 311 \b 7 n 034 026 4 021 001 \0 n 6
0003760 6 j 7 H 020 l 200 360 242 261 376 P n 350 347 n
0004000 261 237 4 7 260 Z n 034 026 n 350 347 4 311 002 7
0004020 277 n 261 237 n 034 026 4 j 302 n 034 026 4 311 \0
0004040 6 277 n 272 a 4 323 n 237 a 4 323 360 262 ( n
0004060 274 a 4 323 n 261 a 4 323 360 262 033 g \0 \0 n
0004100 034 026 4 l 002 320 021 001 \0 n 6 6 j 7 277 H
0004120 022 \n \0 \0 277 n 350 347 d 4 311 \0 7 277 n 350
0004140 347 4 263 244 n 350 347 n 315 314 4 m 362 320 7 n
0004160 323 316 n 350 347 4 311 \n 7 260 " n 345 343 n 332
0004200 331 4 311 \0 7 277 n 332 331 d 4 l 002 320 7 277
0004220 n 345 343 4 n 345 343 4 316 \0 277 n 332 331 4 n
0004240 323 316 4 360 262 327 n 301 275 n 350 347 4 311 \0 7
0004260 n 323 316 n 350 347 4 311 002 7 n = 232 n 350 347
0004300 4 311 004 7 n 337 335 n 350 347 4 311 \f 7 n 034
0004320 026 n 350 347 4 311 \b 7 n 034 026 4 021 001 \0 n
0004340 6 6 j 7 H 020 l 331 360 242 261 002 220 n n n
0004360 n 034 026 4 310 001 7 n n n n n a 4 323 n
0004400 274 a 4 323 345 7 n 350 347 n 034 026 4 311 \t 7
0004420 n 261 237 n 350 347 4 n n a 4 323 340 340 302 n
0004440 350 347 4 n n a 4 323 340 320 311 \0 6 n 261 237
0004460 5 d j 360 242 261 \0 206 277 n 350 347 n 315 314 4
0004500 m 362 320 7 n 323 316 n 350 347 4 311 \n 7 260 "
0004520 n 345 343 n 332 331 4 311 \0 7 277 n 332 331 d 4
0004540 l 002 320 7 277 n 345 343 4 n 345 343 4 316 \0 277
0004560 n 332 331 4 n 323 316 4 360 262 327 n 301 275 n 350
0004600 347 4 311 \0 7 n 323 316 n 350 347 4 311 002 7 n
0004620 = 232 n 350 347 4 311 004 7 n 337 335 n 350 347 4
0004640 311 \f 7 n 034 026 n 350 347 4 311 \b 7 n 034 026
0004660 4 021 001 \0 n 6 6 j 7 H 020 d l \b 360 242
0004700 261 \0 311 277 n 350 347 n 261 237 4 7 n 261 237 n
0004720 350 347 4 j 302 n 350 347 4 311 \0 6 n 272 a 4
0004740 323 n 237 a 4 323 360 262 n 274 a 4 323 n 261
0004760 a 4 323 360 262 023 n 350 347 4 l 002 320 021 001 \0
0005000 n 6 6 j 7 H 020 n 350 347 n 315 314 4 m 362
0005020 320 7 n 323 316 n 350 347 4 311 \n 7 260 " n 345
0005040 343 n 332 331 4 311 \0 7 277 n 332 331 d 4 l 002
0005060 320 7 277 n 345 343 4 n 345 343 4 316 \0 277 n 332
0005100 331 4 n 323 316 4 360 262 327 n 301 275 n 350 347 4
0005120 311 \0 7 n 323 316 n 350 347 4 311 002 7 n = 232
0005140 n 350 347 4 311 004 7 n 337 335 n 350 347 4 311 \f
0005160 7 n 034 026 n 350 347 4 311 \b 7 n 034 026 4 021
0005200 001 \0 n 6 6 j 7 H 020 l 200 360 242 261 373 274
0005220 n 350 347 n 261 237 4 7 260 Z n 034 026 n 350 347
0005240 4 311 002 7 277 n 261 237 n 034 026 4 j 302 n 034
0005260 026 4 311 \0 6 277 n 272 a 4 323 n 237 a 4 323
0005300 360 262 ( n 274 a 4 323 n 261 a 4 323 360 262 033
0005320 g \0 \0 n 034 026 4 l 002 320 021 001 \0 n 6 6
0005340 j 7 277 H 022 \n \0 \0 277 n 350 347 d 4 311 \0
0005360 7 277 n 350 347 4 263 244 n 350 347 n 315 314 4 m
0005400 362 320 7 n 323 316 n 350 347 4 311 \n 7 260 " n
0005420 345 343 n 332 331 4 311 \0 7 277 n 332 331 d 4 l
0005440 002 320 7 277 n 345 343 4 n 345 343 4 316 \0 277 n
0005460 332 331 4 n 323 316 4 360 262 327 n 301 275 n 350 347
0005500 4 311 \0 7 n 323 316 n 350 347 4 311 002 7 n =
0005520 232 n 350 347 4 311 004 7 n 337 335 n 350 347 4 311
0005540 \f 7 n 034 026 n 350 347 4 311 \b 7 n 034 026 4
0005560 021 001 \0 n 6 6 j 7 H 020 n 034 026 4 311 003
0005600 021 001 \0 n 6 6 j 7 H 020 \0 ( 3 7 2 7
0005620 Q R E T F R O M 2 5 0 3 Q
0005640 R E T F R O M 1 4 7 6 Q S H
0005660 O U L D N T 1 2 4 6 Q R E T
0005700 F R O M 1 0 2 Q \ F Z E R O
0005720 P ) \r ( 3 7 0 2 Q R . j u s t
0005740 . i n d e x . e l s e 2 4 5 6
0005760 Q R . j u s t . i n d e x . e
0006000 l s e 1 4 7 3 Q h a s h e d
0006020 . i n d e x 1 2 2 1 Q R . j
0006040 u s t . i n d e x . e l s e ) \r
0006060 ( ) \r R . j u s t . m e . e l s
0006100 e D 1 \r N I L \0 003 \0 \0 \0 \0 k
0006120 020 \0 N I L \r N I L \r ( ) \r R . o
0006140 r D 1 \r N I L \0 \0 \0 \0 \0 n
0006160 334 333 n 337 335 4 7 n 315 314 4 m 372 320 n 233
0006200 a 4 323 n 034 026 4 310 \0 321 316 \0 k 020 \0 N
0006220 I L \r N I L \r ( ) \r R . o r . f
0006240 i n a l l y D 1 \r N I L \0 033
0006260 \0 \0 \0 \0 n 315 314 d 4 m 370 320 311 \0 7 n
0006300 334 333 n 315 314 4 m 376 320 311 \0 7 j 020 \0 N
0006320 I L \r N I L \r ( ) \r R . r e t r
0006340 y . i n d e x . e l s e D 1 \r
0006360 ( F 1 Q P . m e m b o t )
0006400 003 7 001 001 \0 \0 n 261 237 n 350 347 4 m 364 302
0006420 n 350 347 4 m 372 320 311 \0 6 n 261 237 5 d j
0006440 360 262 P 277 n 345 343 n 261 237 4 7 277 n 261 237
0006460 n 345 343 4 j 302 n 345 343 4 311 \0 6 277 n 261
0006500 237 5 021 001 \0 H j 360 265 \v H 005 003 264 006 H
0006520 \t \0 \0 022 262 306 n 261 237 4 n 345 343 4 360 262
0006540 273 n 034 026 4 311 003 021 001 \0 n 6 6 j 7 H
0006560 020 d l 200 360 262 023 277 n 345 343 n 261 237 4 7
0006600 277 n 261 237 h 7 260 5 d l H 360 262 ' 277 n
0006620 345 343 n 261 237 4 7 277 n 261 237 n 345 343 4 j
0006640 302 n 345 343 4 311 \0 6 277 n 345 343 d 4 l 002
0006660 320 7 207 d l 310 360 242 261 \0 213 277 n 350 347 d
0006700 4 m 364 320 7 277 n 352 351 n 350 347 4 311 \n 7
0006720 277 n 025 024 n 350 347 4 l \f 302 n 350 347 4 311
0006740 006 6 277 n 356 355 n 350 347 4 l \b 302 n 350 347
0006760 4 311 004 6 277 n 354 353 n 350 347 4 l 004 302 n
0007000 350 347 4 311 002 6 277 n 022 021 n 350 347 4 j 302
0007020 n 350 347 4 311 \0 6 277 n n n n 352 351 4 310
0007040 \a 7 277 n n a 4 323 l 004 361 262 | n 334 333
0007060 Q l \n 320 7 277 n n n n n a 4 323 l 004
0007100 325 260 K l 331 360 222 261 377 u n 034 026 4 311 003
0007120 021 001 \0 n 6 6 j 7 H 020 n 350 347 d 4 m
0007140 376 320 7 277 n 334 333 4 n 350 347 4 310 \0 n 350
0007160 347 4 310 001 321 316 \0 277 n 334 333 d 4 l 002 320
0007200 7 277 n n n n n a 4 323 k 331 7 277 n n
0007220 a 4 323 021 001 \0 H j 360 265 \v H 005 003 264 006
0007240 H \t \0 \0 022 262 265 n 334 333 n 337 335 4 7 277
0007260 n 315 314 4 m 372 320 n 233 a 4 323 n 034 026 4
0007300 310 \0 321 316 \0 277 n 261 237 4 252 n 034 026 d 4
0007320 311 \a 7 261 001 Z n n n n 034 026 4 310 001 7
0007340 277 n n n n n a 4 323 n 261 a 4 323 345 7
0007360 277 n 350 347 n 034 026 4 311 \t 7 277 n 274 272 n
0007400 350 347 4 n n a 4 323 340 340 302 n 350 347 4 n
0007420 n a 4 323 340 320 311 \0 6 277 n 274 272 5 d j
0007440 360 262 ! 277 n 350 347 n 315 314 4 m 362 320 7 n
0007460 315 314 4 m 372 320 311 \0 021 001 \0 n 6 6 j 7
0007500 H 020 d l \b 360 262 b 277 n 350 347 n 274 272 4
0007520 7 277 n 274 272 n 350 347 4 j 302 n 350 347 4 311
0007540 \0 6 277 n 272 a 4 323 n 237 a 4 323 360 262 034
0007560 n 274 a 4 323 n 261 a 4 323 360 235 n 034 026 n
0007600 350 347 4 l 002 320 7 261 \0 246 n 350 347 n 315 314
0007620 4 m 362 320 7 n 315 314 4 m 372 320 311 \0 021 001
0007640 \0 n 6 6 j 7 H 020 l 200 360 262 | n 350 347
0007660 n 274 272 4 260 J n 034 026 n 350 347 4 311 002 7
0007700 277 n 274 272 n 034 026 4 j 302 n 034 026 4 311 \0
0007720 6 277 n 272 a 4 323 n 237 a 4 323 360 262 032 n
0007740 274 a 4 323 n 261 a 4 323 360 233 n 034 026 d 4
0007760 l 002 320 7 277 h 217 n 350 347 d 4 311 \0 7 277
0010000 n 350 347 4 263 262 i 262 ' n 350 347 n 315 314 4
0010020 m 362 320 7 n 315 314 4 m 372 320 311 \0 021 001 \0
0010040 n 6 6 j 7 H 020 g \0 \0 \t \0 \0 277 n 034
0010060 026 4 021 001 \0 n 6 6 j 7 H 020 \0 ( 1 4
0010100 4 6 Q S H O U L D N T 6 3 5
0010120 Q \ F Z E R O P 1 1 4 Q \
0010140 F Z E R O P ) \r ( 1 4 4 3 Q h
0010160 a s h e d . i n d e x ) \r ( ) \r
0010200 R . r e t r y . m e . e l s e
0010220 D 1 \r ( F 1 Q P . m e m b o
0010240 t ) \0 377 001 001 \0 \0 n 350 347 d 4 m 364
0010260 320 7 277 n 352 351 n 350 347 4 311 \n 7 277 n 345
0010300 343 n 350 347 4 311 \b 7 277 n 025 024 n 350 347 4
0010320 l \f 302 n 350 347 4 311 006 6 277 n 356 355 n 350
0010340 347 4 l \b 302 n 350 347 4 311 004 6 277 n 354 353
0010360 n 350 347 4 l 004 302 n 350 347 4 311 002 6 277 n
0010400 022 021 n 350 347 4 j 302 n 350 347 4 311 \0 6 277
0010420 n n n n 352 351 4 310 \a 7 277 n n a 4 323
0010440 l 004 361 262 e n 334 333 Q l \n 320 7 277 n n
0010460 n n n a 4 323 l 004 325 260 4 n 350 347 d 4
0010500 m 376 320 7 277 n 334 333 4 n 350 347 4 310 \0 n
0010520 350 347 4 310 001 321 316 \0 277 n 334 333 d 4 l 002
0010540 320 7 277 n n n n n a 4 323 k 331 7 277 n
0010560 n a 4 323 021 001 \0 H j 360 265 \v H 005 003 264
0010600 006 H \t \0 \0 022 262 265 n 334 333 n 337 335 4 7
0010620 n 315 314 4 m 372 320 n 233 a 4 323 n 034 026 4
0010640 310 \0 321 316 \0 k 020 \0 ( 3 3 3 Q \ F
0010660 Z E R O P ) \r N I L \r ( ) \r R .
0010700 t r u s t . i n d e x . e l s e
0010720 D 1 \r ( F 1 Q P . m e m b
0010740 o t ) 004 f 001 001 \0 \0 n 261 237 n 350 347
0010760 4 m 364 302 n 350 347 4 m 372 320 311 \0 6 n 261
0011000 237 5 d j 360 262 P 277 n 345 343 n 261 237 4 7
0011020 277 n 261 237 n 345 343 4 j 302 n 345 343 4 311 \0
0011040 6 277 n 261 237 5 021 001 \0 H j 360 265 \v H 005
0011060 003 264 006 H \t \0 \0 022 262 306 n 261 237 4 n 345
0011100 343 4 360 262 273 n 034 026 4 311 003 021 001 \0 n 6
0011120 6 j 7 H 020 d l 200 360 262 023 277 n 345 343 n
0011140 261 237 4 7 277 n 261 237 h 7 260 5 d l H 360
0011160 262 ' 277 n 345 343 n 261 237 4 7 277 n 261 237 n
0011200 345 343 4 j 302 n 345 343 4 311 \0 6 277 n 345 343
0011220 d 4 l 002 320 7 207 d l 310 360 242 261 \0 213 277
0011240 n 350 347 d 4 m 364 320 7 277 n 352 351 n 350 347
0011260 4 311 \n 7 277 n 025 024 n 350 347 4 l \f 302 n
0011300 350 347 4 311 006 6 277 n 356 355 n 350 347 4 l \b
0011320 302 n 350 347 4 311 004 6 277 n 354 353 n 350 347 4
0011340 l 004 302 n 350 347 4 311 002 6 277 n 022 021 n 350
0011360 347 4 j 302 n 350 347 4 311 \0 6 277 n n n n
0011400 352 351 4 310 \a 7 277 n n a 4 323 l 004 361 262
0011420 | n 334 333 Q l \n 320 7 277 n n n n n a
0011440 4 323 l 004 325 260 K l 331 360 222 261 377 u n 034
0011460 026 4 311 003 021 001 \0 n 6 6 j 7 H 020 n 350
0011500 347 d 4 m 376 320 7 277 n 334 333 4 n 350 347 4
0011520 310 \0 n 350 347 4 310 001 321 316 \0 277 n 334 333 d
0011540 4 l 002 320 7 277 n n n n n a 4 323 k 331
0011560 7 277 n n a 4 323 021 001 \0 H j 360 265 \v H
0011600 005 003 264 006 H \t \0 \0 022 262 265 n 315 314 d 4
0011620 m 370 320 311 \0 7 277 n 334 333 n 315 314 4 m 376
0011640 320 311 \0 7 277 n 261 237 4 252 n 034 026 d 4 311
0011660 \a 7 261 002 216 n n n n 034 026 4 310 001 7 277
0011700 n n n n n a 4 323 n 261 a 4 323 345 7 277
0011720 n 350 347 n 034 026 4 311 \t 7 277 n 274 272 n 350
0011740 347 4 n n a 4 323 340 340 302 n 350 347 4 n n
0011760 a 4 323 340 320 311 \0 6 277 n 274 272 5 d j 360
0012000 242 261 \0 206 277 n 350 347 n 315 314 4 m 362 320 7
0012020 n 323 316 n 350 347 4 311 \n 7 260 " n 345 343 n
0012040 332 331 4 311 \0 7 277 n 332 331 d 4 l 002 320 7
0012060 277 n 345 343 4 n 345 343 4 316 \0 277 n 332 331 4
0012100 n 323 316 4 360 262 327 n 301 275 n 350 347 4 311 \0
0012120 7 n 323 316 n 350 347 4 311 002 7 n = 232 n 350
0012140 347 4 311 004 7 n 337 335 n 350 347 4 311 \f 7 n
0012160 034 026 n 350 347 4 311 \b 7 n 034 026 4 021 001 \0
0012200 n 6 6 j 7 H 020 d l \b 360 242 261 \0 307 277
0012220 n 350 347 n 274 272 4 7 277 n 274 272 n 350 347 4
0012240 j 302 n 350 347 4 311 \0 6 277 n 272 a 4 323 n
0012260 237 a 4 323 360 262 034 n 274 a 4 323 n 261 a 4
0012300 323 360 235 n 034 026 n 350 347 4 l 002 320 7 261 001
0012320 r n 350 347 n 315 314 4 m 362 320 7 n 323 316 n
0012340 350 347 4 311 \n 7 260 " n 345 343 n 332 331 4 311
0012360 \0 7 277 n 332 331 d 4 l 002 320 7 277 n 345 343
0012400 4 n 345 343 4 316 \0 277 n 332 331 4 n 323 316 4
0012420 360 262 327 n 301 275 n 350 347 4 311 \0 7 n 323 316
0012440 n 350 347 4 311 002 7 n = 232 n 350 347 4 311 004
0012460 7 n 337 335 n 350 347 4 311 \f 7 n 034 026 n 350
0012500 347 4 311 \b 7 n 034 026 4 021 001 \0 n 6 6 j
0012520 7 H 020 l 200 360 242 261 \0 343 n 350 347 n 274 272
0012540 4 260 J n 034 026 n 350 347 4 311 002 7 277 n 274
0012560 272 n 034 026 4 j 302 n 034 026 4 311 \0 6 277 n
0012600 272 a 4 323 n 237 a 4 323 360 262 032 n 274 a 4
0012620 323 n 261 a 4 323 360 233 n 034 026 d 4 l 002 320
0012640 7 277 h 217 n 350 347 d 4 311 \0 7 277 n 350 347
0012660 4 263 262 i 242 261 \0 214 n 350 347 n 315 314 4 m
0012700 362 320 7 n 323 316 n 350 347 4 311 \n 7 260 " n
0012720 345 343 n 332 331 4 311 \0 7 277 n 332 331 d 4 l
0012740 002 320 7 277 n 345 343 4 n 345 343 4 316 \0 277 n
0012760 332 331 4 n 323 316 4 360 262 327 n 301 275 n 350 347
0013000 4 311 \0 7 n 323 316 n 350 347 4 311 002 7 n =
0013020 232 n 350 347 4 311 004 7 n 337 335 n 350 347 4 311
0013040 \f 7 n 034 026 n 350 347 4 311 \b 7 n 034 026 4
0013060 021 001 \0 n 6 6 j 7 H 020 g \0 \0 \t \0 \0
0013100 277 n 034 026 4 021 001 \0 n 6 6 j 7 H 020 \0
0013120 ( 2 1 2 5 Q S H O U L D N T
0013140 6 3 5 Q \ F Z E R O P 1 1 4
0013160 Q \ F Z E R O P ) \r ( 2 1 2 2
0013200 Q h a s h e d . i n d e x ) \r
0013220 ( ) \r R . t r u s t . m e . e l
0013240 s e D 1 \r ( F 1 Q P . m e
0013260 m b o t ) \0 372 001 001 \0 \0 n 350 347 d
0013300 4 m 364 320 7 277 n 352 351 n 350 347 4 311 \n 7
0013320 277 n 345 343 n 350 347 4 311 \b 7 277 n 025 024 n
0013340 350 347 4 l \f 302 n 350 347 4 311 006 6 277 n 356
0013360 355 n 350 347 4 l \b 302 n 350 347 4 311 004 6 277
0013400 n 354 353 n 350 347 4 l 004 302 n 350 347 4 311 002
0013420 6 277 n 022 021 n 350 347 4 j 302 n 350 347 4 311
0013440 \0 6 277 n n n n 352 351 4 310 \a 7 277 n n
0013460 a 4 323 l 004 361 262 e n 334 333 Q l \n 320 7
0013500 277 n n n n n a 4 323 l 004 325 260 4 n 350
0013520 347 d 4 m 376 320 7 277 n 334 333 4 n 350 347 4
0013540 310 \0 n 350 347 4 310 001 321 316 \0 277 n 334 333 d
0013560 4 l 002 320 7 277 n n n n n a 4 323 k 331
0013600 7 277 n n a 4 323 021 001 \0 H j 360 265 \v H
0013620 005 003 264 006 H \t \0 \0 022 262 265 n 315 314 d 4
0013640 m 370 320 311 \0 7 n 334 333 n 315 314 4 m 376 320
0013660 311 \0 7 k 020 \0 ( 3 3 3 Q \ F Z E
0013700 R O P ) \r N I L \r ( ) \r R . t r
0013720 y . i n d e x . e l s e D 1 \r
0013740 ( F 1 Q P . m e m b o t )
0013760 003 216 001 001 \0 \0 n 261 237 n 025 024 5 n 025 024
0014000 4 6 n 261 237 5 d j 360 262 P 277 n 345 343 n
0014020 261 237 4 7 277 n 261 237 n 345 343 4 j 302 n 345
0014040 343 4 311 \0 6 277 n 261 237 5 021 001 \0 H j 360
0014060 265 \v H 005 003 264 006 H \t \0 \0 022 262 306 n 261
0014100 237 4 n 345 343 4 360 262 273 n 034 026 4 311 003 021
0014120 001 \0 n 6 6 j 7 H 020 d l 200 360 262 023 277
0014140 n 345 343 n 261 237 4 7 277 n 261 237 h 7 260 3
0014160 d l H 360 262 ' 277 n 345 343 n 261 237 4 7 277
0014200 n 261 237 n 345 343 4 j 302 n 345 343 4 311 \0 6
0014220 277 n 345 343 d 4 l 002 320 7 205 d l 310 360 262
0014240 031 277 n 323 316 4 n 315 314 4 \n \0 \0 262 n
0014260 350 347 n 315 314 4 260 % l 331 360 263 347 n 034 026
0014300 4 311 003 021 001 \0 n 6 6 j 7 H 020 n 350 347
0014320 n 323 316 4 n = 232 4 310 \0 320 7 277 n n n
0014340 n 352 351 4 310 \a 260 4 n 350 347 4 Q n n a
0014360 4 323 340 320 310 \0 Q n n a 4 323 340 k 330 320
0014400 310 \0 321 316 \0 277 n 350 347 d 4 l 002 320 7 277
0014420 n n n n n a 4 323 k 331 7 277 n n a 4
0014440 323 l 004 361 263 304 n 350 347 4 n 021 a 4 323 n
0014460 022 a 4 323 321 316 \0 277 n 350 347 4 n 353 a 4
0014500 323 n 354 a 4 323 321 316 002 277 n 350 347 4 n 355
0014520 a 4 323 n 356 a 4 323 321 316 004 277 n 350 347 4
0014540 n 024 a 4 323 n 025 a 4 323 321 316 006 277 n 350
0014560 347 4 n 345 343 4 316 \b 277 n 350 347 4 n 352 351
0014600 4 316 \n 277 n 350 347 d 4 l \f 320 7 277 n 350
0014620 347 4 n 301 275 4 316 \0 277 n 350 347 4 n 323 316
0014640 4 316 002 277 n 350 347 4 n = 232 4 316 004 277 n
0014660 350 347 4 n 315 314 4 316 006 277 n 350 347 4 n 233
0014700 a 4 323 n 034 026 4 310 \0 321 316 \b 277 n 350 347
0014720 4 n 332 331 4 316 \n 277 n 350 347 4 n 337 335 4
0014740 316 \f 277 n 315 314 n 350 347 4 l 016 320 7 277 n
0014760 334 333 n 337 335 4 7 277 n 315 314 4 322 ` \0 \0
0015000 322 k 330 375 361 246 g \0 \0 \t \0 \0 277 n 261 237
0015020 4 252 n 034 026 d 4 311 \a 7 261 001 Z n n n
0015040 n 034 026 4 310 001 7 277 n n n n n a 4 323
0015060 n 261 a 4 323 345 7 277 n 350 347 n 034 026 4 311
0015100 \t 7 277 n 274 272 n 350 347 4 n n a 4 323 340
0015120 340 302 n 350 347 4 n n a 4 323 340 320 311 \0 6
0015140 277 n 274 272 5 d j 360 262 ! 277 n 350 347 n 315
0015160 314 4 m 362 320 7 n 315 314 4 m 372 320 311 \0 021
0015200 001 \0 n 6 6 j 7 H 020 d l \b 360 262 b 277
0015220 n 350 347 n 274 272 4 7 277 n 274 272 n 350 347 4
0015240 j 302 n 350 347 4 311 \0 6 277 n 272 a 4 323 n
0015260 237 a 4 323 360 262 034 n 274 a 4 323 n 261 a 4
0015300 323 360 235 n 034 026 n 350 347 4 l 002 320 7 261 \0
0015320 246 n 350 347 n 315 314 4 m 362 320 7 n 315 314 4
0015340 m 372 320 311 \0 021 001 \0 n 6 6 j 7 H 020 l
0015360 200 360 262 | n 350 347 n 274 272 4 260 J n 034 026
0015400 n 350 347 4 311 002 7 277 n 274 272 n 034 026 4 j
0015420 302 n 034 026 4 311 \0 6 277 n 272 a 4 323 n 237
0015440 a 4 323 360 262 032 n 274 a 4 323 n 261 a 4 323
0015460 360 233 n 034 026 d 4 l 002 320 7 277 h 217 n 350
0015500 347 d 4 311 \0 7 277 n 350 347 4 263 262 i 262 '
0015520 n 350 347 n 315 314 4 m 362 320 7 n 315 314 4 m
0015540 372 320 311 \0 021 001 \0 n 6 6 j 7 H 020 g \0
0015560 \0 \t \0 \0 277 n 034 026 4 021 001 \0 n 6 6 j
0015600 7 H 020 \0 ( 1 5 7 5 Q S H O U L
0015620 D N T 1 0 2 5 Q S H O U L D
0015640 N T 2 6 6 Q \ B A S E L E S
0015660 S P 1 0 4 Q \ F Z E R O P )
0015700 \r ( 1 5 7 2 Q h a s h e d . i
0015720 n d e x 1 0 2 2 Q L o c a l
0015740 1 0 1 1 Q Q P . m e m t o p
0015760 ) \r ( ) \r R . t r y . m e . e l
0016000 s e D 1 \r ( F 0 Q P . m e
0016020 m b o t ) 001 U \0 001 \0 \0 n 323 316 4
0016040 n 315 314 4 \n \0 \0 227 n 350 347 n 315 314 4 215
0016060 n 350 347 n 323 316 4 n = 232 4 310 \0 320 7 277
0016100 n n n n 352 351 4 310 \a 260 4 n 350 347 4 P
0016120 n n a 4 323 340 320 310 \0 P n n a 4 323 340
0016140 k 330 320 310 \0 321 316 \0 277 n 350 347 d 4 l 002
0016160 320 7 277 n n n n n a 4 323 k 331 7 277 n
0016200 n a 4 323 l 004 361 263 304 n 350 347 4 n 021 a
0016220 4 323 n 022 a 4 323 321 316 \0 277 n 350 347 4 n
0016240 353 a 4 323 n 354 a 4 323 321 316 002 277 n 350 347
0016260 4 n 355 a 4 323 n 356 a 4 323 321 316 004 277 n
0016300 350 347 4 n 024 a 4 323 n 025 a 4 323 321 316 006
0016320 277 n 350 347 4 n 345 343 4 316 \b 277 n 350 347 4
0016340 n 352 351 4 316 \n 277 n 350 347 d 4 l \f 320 7
0016360 n 350 347 4 n 301 275 4 316 \0 277 n 350 347 4 n
0016400 323 316 4 316 002 277 n 350 347 4 n = 232 4 316 004
0016420 277 n 350 347 4 n 315 314 4 316 006 277 n 350 347 4
0016440 n 233 a 4 323 n 034 026 4 310 \0 321 316 \b 277 n
0016460 350 347 4 n 332 331 4 316 \n 277 n 350 347 4 n 337
0016500 335 4 316 \f 277 n 315 314 n 350 347 4 l 016 320 7
0016520 277 n 334 333 n 337 335 4 7 277 n 315 314 4 322 `
0016540 \0 \0 322 k 330 375 361 245 g \0 \0 \t \0 \0 k 020
0016560 \0 ( 5 2 1 Q S H O U L D N T
0016600 1 2 Q \ B A S E L E S S P ) \r
0016620 ( 5 1 6 Q L o c a l 5 0 5 Q
0016640 Q P . m e m t o p ) \r ( ) \r W
0016660 . e i t h e r D 1 \r N I L \0
0016700 266 \0 \0 \0 \0 n = 232 n 034 026 4 k 320 7 n
0016720 323 316 4 n 315 314 4 \n \0 \0 227 n 350 347 n 315
0016740 314 4 215 n 350 347 n 323 316 4 n = 232 4 310 \0
0016760 320 7 277 n 350 347 4 n 301 275 4 316 \0 277 n 350
0017000 347 4 n 323 316 4 316 002 277 n 350 347 4 n = 232
0017020 4 316 004 277 n 350 347 4 n 315 314 4 316 006 277 n
0017040 350 347 4 n 233 a 4 323 n 034 026 4 310 \0 321 316
0017060 \b 277 n 350 347 4 n 332 331 4 316 \n 277 n 350 347
0017100 4 n 337 335 4 316 \f 277 n 315 314 n 350 347 4 l
0017120 016 320 7 277 n 334 333 n 337 335 4 7 277 n 315 314
0017140 4 322 ` \0 \0 322 k 330 375 361 246 g \0 \0 \t \0
0017160 \0 277 n 6 6 j 7 l 002 020 \0 ( 2 5 3 Q
0017200 S H O U L D N T 2 4 Q \ B
0017220 A S E L E S S P ) \r ( 2 5 0 Q
0017240 L o c a l 2 3 7 Q Q P . m e
0017260 m t o p ) \r ( ) \r W . j u m p .
0017300 t o D 1 \r N I L \0 027 001 \0 \0 \0
0017320 n 233 a 4 323 n 034 026 4 310 \0 321 021 001 \0 n
0017340 6 6 j 7 H 020 \0 N I L \r N I L \r (
0017360 ) \r ( P R E T T Y C O M P R I N
0017400 T I N D E X C O M S ) \r ( R P
0017420 A Q Q I N D E X C O M S ( (
0017440 M A C R O S c r e a t e . c h
0017460 o i c e . p o i n t g e t . l
0017500 i n k h a s h e d . i n d e x
0017520 i n d e x i n d e x . 2 r
0017540 e s t o r e . r e g i s t e r s
0017560 \r r e s t o r e . r e g i s t
0017600 e r s . 2 s a v e . r e g i s
0017620 t e r s s e t . t o p . o f .
0017640 s t a c k ) ( F N S R . e i
0017660 t h e r R . j u m p . t o R
0017700 . j u s t . i n d e x . e l s e
0017720 \r R . j u s t . m e . e l s e
0017740 R . o r R . o r . f i n a l
0017760 l y R . r e t r y . i n d e x
0020000 . e l s e R . r e t r y . m e
0020020 . e l s e R . t r u s t . i n
0020040 d e x . e l s e R . t r u s t
0020060 . m e . e l s e \r R . t r y .
0020100 i n d e x . e l s e R . t r y
0020120 . m e . e l s e W . e i t h e
0020140 r W . j u m p . t o ) ) ) \r (
0020160 P U T P R O P S c r e a t e .
0020200 c h o i c e . p o i n t M A C
0020220 R O ( O P E N L A M B D A N
0020240 I L ( * n e e d e d R )
0020260 ( p u t . a d d r R 0 ( g
0020300 e t . 2 4 B 0 ) ) ( p u t .
0020320 a d d r \r R 1 ( g e t . 2
0020340 4 E ) ) ( p u t . a d d r
0020360 R 2 ( g e t . 2 4 C P ) )
0020400 ( p u t . a d d r R 3 (
0020420 g e t . 2 4 B ) ) ( p u t .
0020440 a d d r R 4 ( a d d r e s
0020460 s . o p e r a n d ) ) \r ( p u
0020500 t . a d d r R 5 ( g e t .
0020520 2 4 T R ) ) ( p u t . a d d
0020540 r R 6 ( g e t . 2 4 H )
0020560 ) ( p u t . 2 4 B ( a d d
0020600 . c e l l R 7 ) ) ( p u t
0020620 . 2 4 H B ( g e t . 2 4 H
0020640 ) ) \r ( c h e c k . s t a c k
0020660 B ) ) ) \r ( P U T P R O P S
0020700 g e t . l i n k M A C R O (
0020720 X ( A P P L Y ( F U N C T I
0020740 O N ( L A M B D A ( N ) (
0020760 B Q U O T E ( \ G E T B A S E
0021000 P T R ( g e t . 2 4 P ) ,
0021020 ( T w i c e N 1 ) \r ) ) )
0021040 ) X ) ) ) \r ( P U T P R O P S
0021060 h a s h e d . i n d e x M A
0021100 C R O ( O P E N L A M B D A
0021120 N I L ( p u t . 1 6 I ( g
0021140 e t . c o d e P 1 ) ) ( p
0021160 u t . 1 6 I ( L O G A N D
0021200 ( g e t . 1 6 I ) ( \r \ G E
0021220 T . L O . 1 6 T 0 ) ) ) ( p
0021240 u t . 2 4 R ( g e t . l i n
0021260 k 4 ) ) ( p u t . 3 2 T 1
0021300 ( g e t . c e l l R ( g e
0021320 t . 1 6 I ) ) ) ( * s c r
0021340 a t c h I R ) ( * \r d e
0021360 f i n e d S T 0 ) ( s e l
0021400 e c t . 4 T 1 ( 0 ( f a s
0021420 t . f a i l ) ) ( 8 ( p u t
0021440 . 2 4 R ( u n t a g . s t r
0021460 u c t T 1 ) ) ( p u t . 3 2
0021500 T 1 ( g e t . c e l l R
0021520 0 ) ) \r ( i f ( s a m e . c
0021540 e l l T 0 T 1 ) t h e n
0021560 ( c o n t i n u e . a t ( a d
0021600 d . c e l l R 1 ) ) e l s
0021620 e ( f a s t . f a i l ) ) )
0021640 ( 1 2 8 ( p u t . 2 4 R (
0021660 u n t a g . l i s t \r T 1 ) )
0021700 ( u n t i l ( N U L L ( g
0021720 e t . 2 4 R ) ) ( p u t . 2
0021740 4 P ( g e t . a d d r R
0021760 1 ) ) ( p u t . 3 2 T 1 (
0022000 g e t . c e l l P 0 ) ) (
0022020 w h e n ( s a m e . c e l l
0022040 T 0 \r T 1 ) ( R E T F R O M
0022060 ( Q U O T E R . j u s t . i
0022100 n d e x . e l s e ) ( c o n t
0022120 i n u e . a t ( a d d . c e l
0022140 l P 1 ) ) ) ) ( p u t . 2
0022160 4 R ( g e t . a d d r R
0022200 0 ) ) ) ( \r f a s t . f a i l
0022220 ) ) ( S H O U L D N T ( Q U
0022240 O T E h a s h e d . i n d e x
0022260 ) ) ) ) ) \r ( P U T P R O P S
0022300 i n d e x M A C R O ( O P E
0022320 N L A M B D A N I L ( p u t
0022340 . 3 2 T 0 ( g e t . A v a l
0022360 1 ) ) ( s e l e c t . 1 6
0022400 T 0 ( r e f . t a g . 8 ( p
0022420 u t . 2 4 R ( \r u n t a g .
0022440 r e f T 0 ) ) ( p u t . 3 2
0022460 T 0 ( g e t . c e l l R
0022500 0 ) ) ( u n l e s s ( i s .
0022520 u n b o u n d T 0 R ) ( r
0022540 e s e l e c t ) ) ( c o n t i
0022560 n u e . a t ( g e t . l i n k
0022600 \r 1 ) ) ) ( l i s t . t a g
0022620 . 8 ( p u t . 2 4 S ( u n
0022640 t a g . l i s t T 0 ) ) ( c
0022660 o n t i n u e . a t ( g e t .
0022700 l i n k 3 ) ) ) ( s t r u c
0022720 t . t a g . 8 ( p u t . 2 4
0022740 S ( \r u n t a g . s t r u c t
0022760 T 0 ) ) ( p u t . 3 2 T 0
0023000 ( g e t . c e l l S 0 ) )
0023020 ( i n c r e m e n t . c e l l
0023040 . p o i n t e r S ) ( h a s
0023060 h e d . i n d e x ) ) ( s y m
0023100 b o l . t a g . 8 \r ( h a s h
0023120 e d . i n d e x ) ) ( i m m e
0023140 d . t a g . 8 ( h a s h e d .
0023160 i n d e x ) ) ( P R O G N (
0023200 c o n t i n u e . a t ( g e t
0023220 . l i n k 1 ) ) ) ) ) ) \r ( P
0023240 U T P R O P S i n d e x . 2
0023260 M A C R O ( X ( A P P L Y
0023300 ( F U N C T I O N ( L A M B D
0023320 A ( f a i l O P ) ( B Q U
0023340 O T E ( P R O G N I L S E
0023360 L E C T ( S E L E C T C ( \r
0023400 R e a d P r o l o g T a g T 1
0023420 ) ( r e f . t a g . 8 ( p u
0023440 t . 2 4 S ( u n t a g . r e
0023460 f T 1 ) ) ( p u t . 3 2 T
0023500 1 ( g e t . c e l l S 0 )
0023520 ) ( u n l e s s ( i s . u n
0023540 b o u n d \r T 1 S ) ( G O
0023560 S E L E C T ) ) ( R E T U R
0023600 N ( c o n t i n u e . a t (
0023620 g e t . l i n k 1 ) ) ) ) (
0023640 l i s t . t a g . 8 ( p u t .
0023660 2 4 S ( u n t a g . l i s t
0023700 T 1 ) ) ( p u t . 3 2 \r T
0023720 1 ( t a g . r e f N I L ) )
0023740 ) ( s t r u c t . t a g . 8
0023760 ( p u t . 2 4 S ( u n t a g
0024000 . s t r u c t T 1 ) ) ( p u
0024020 t . 3 2 T 1 ( g e t . c e l
0024040 l S 0 ) ) ( \r i n c r e m
0024060 e n t . c e l l . p o i n t e r
0024100 S ) ) ( s y m b o l . t a g
0024120 . 8 ) ( i m m e d . t a g . 8
0024140 ) ( P R O G N ( R E T U R N
0024160 ( c o n t i n u e . a t ( g
0024200 e t . l i n k 1 ) ) ) ) ) ,
0024220 \r O P ( i f ( N U L L (
0024240 R e a d P r o l o g P t r T 1
0024260 ) ) t h e n ( p u t . 2 4
0024300 P ( g e t . l i n k 3 ) )
0024320 e l s e ( p u t . 1 6 I (
0024340 g e t . c o d e P 1 ) ) (
0024360 p u t . 1 6 \r I ( L O G A N
0024400 D ( g e t . 1 6 I ) ( \ G
0024420 E T . L O . 1 6 T 1 ) ) ) (
0024440 p u t . 2 4 R ( g e t . l i
0024460 n k 4 ) ) ( p u t . 3 2 T
0024500 0 ( g e t . c e l l R ( g
0024520 e t . 1 6 I ) ) ) ( * \r s
0024540 c r a t c h I R P ) ( *
0024560 d e f i n e d S T 1 ) (
0024600 S E L E C T C ( R e a d P r o
0024620 l o g T a g T 0 ) ( 0 ( R
0024640 E T U R N ( , f a i l ) ) )
0024660 ( 8 ( p u t . 2 4 R ( \r
0024700 u n t a g . s t r u c t T 0 )
0024720 ) ( p u t . 3 2 T 0 ( g e
0024740 t . c e l l R 0 ) ) ( i f
0024760 ( s a m e . c e l l T 0 T
0025000 1 ) t h e n ( p u t . 2 4
0025020 P ( a d d . c e l l R 1 )
0025040 ) e l s e \r ( R E T U R N
0025060 ( , f a i l ) ) ) ) ( 1 2 8
0025100 ( p u t . 2 4 R ( u n t a
0025120 g . l i s t T 0 ) ) ( w h e
0025140 n ( u n t i l ( N U L L (
0025160 g e t . 2 4 R ) ) ( p u t .
0025200 2 4 P ( \r g e t . a d d r
0025220 R 1 ) ) ( p u t . 3 2 T 0
0025240 ( g e t . c e l l P 0 ) )
0025260 ( w h e n ( s a m e . c e l
0025300 l T 0 T 1 ) ( p u t . 2 4
0025320 P ( a d d . c e l l P 1
0025340 ) ) ( R E T U R N \r N I L )
0025360 ) ( p u t . 2 4 R ( g e t
0025400 . a d d r R 0 ) ) ) ( R E
0025420 T U R N ( , f a i l ) ) ) )
0025440 ( S H O U L D N T ( Q U O T
0025460 E h a s h e d . i n d e x ) )
0025500 ) ) ( R E T U R N ( \r c o n
0025520 t i n u e . a t ( g e t . 2 4
0025540 P ) ) ) ) ) ) ) X ) ) ) \r (
0025560 P U T P R O P S r e s t o r e
0025600 . r e g i s t e r s M A C R O
0025620 ( O P E N L A M B D A N I L
0025640 ( * n e e d e d R ) ( *
0025660 d e f i n e d C S ) ( *
0025700 s c r a t c h H B ) ( \r d
0025720 e c r e m e n t . c e l l . p o
0025740 i n t e r R 6 ) ( p u t .
0025760 2 4 C ( g e t . a d d r R
0026000 5 ) ) ( p u t . 2 4 S (
0026020 g e t . a d d r R 4 ) ) (
0026040 p u t . A v a l 1 ( g e t .
0026060 c e l l \r R 3 ) ) ( p u t
0026100 . A v a l 2 ( g e t . c e l
0026120 l R 2 ) ) ( p u t . A v a
0026140 l 3 ( g e t . c e l l R
0026160 1 ) ) ( p u t . A v a l 4
0026200 ( g e t . c e l l R 0 ) )
0026220 ( p u t . 1 6 I ( \r P R O C
0026240 . A R I T Y ( g e t . 2 4 C
0026260 ) ) ) ( w h e n ( I G R E A
0026300 T E R P ( g e t . 1 6 I )
0026320 4 ) ( p u t . 2 4 H B ( l
0026340 o c . A m e m 5 ) ) ( p u t
0026360 . 1 6 I ( D I F F E R E N C
0026400 E \r ( g e t . 1 6 I ) 4 )
0026420 ) ( u n t i l ( z e r o I
0026440 ) ( d e c r e m e n t . c e l
0026460 l . p o i n t e r R ) ( p u
0026500 t . c e l l H B 0 ( g e t
0026520 . c e l l R 0 ) ) ( \r i n
0026540 c r e m e n t . c e l l . p o i
0026560 n t e r H B ) ( d e c r e m
0026600 e n t . c o u n t e r I ) ) )
0026620 ) ) \r ( P U T P R O P S r e s
0026640 t o r e . r e g i s t e r s . 2
0026660 M A C R O ( O P E N L A M B
0026700 D A N I L ( * n e e d e d
0026720 R S ) ( * d e f i n e d
0026740 C ) ( * s c r a t c h H
0026760 B ) ( \r d e c r e m e n t . c
0027000 e l l . p o i n t e r R 6 )
0027020 ( p u t . 2 4 C ( g e t .
0027040 a d d r R 5 ) ) ( p u t .
0027060 A v a l 1 ( g e t . c e l l
0027100 R 3 ) ) ( p u t . A v a l
0027120 2 ( \r g e t . c e l l R
0027140 2 ) ) ( p u t . A v a l 3
0027160 ( g e t . c e l l R 1 ) )
0027200 ( p u t . A v a l 4 ( g e t
0027220 . c e l l R 0 ) ) ( p u t
0027240 . 1 6 I ( P R O C . A R I T
0027260 Y ( g e t . 2 4 C \r ) ) )
0027300 ( w h e n ( I G R E A T E R P
0027320 ( g e t . 1 6 I ) 4 ) (
0027340 p u t . 2 4 H B ( l o c . A
0027360 m e m 5 ) ) ( p u t . 1 6
0027400 I ( D I F F E R E N C E ( g
0027420 e t . 1 6 I ) 4 ) ) ( \r u
0027440 n t i l ( z e r o I ) ( d
0027460 e c r e m e n t . c e l l . p o
0027500 i n t e r R ) ( p u t . c e
0027520 l l H B 0 ( g e t . c e l
0027540 l R 0 ) ) ( i n c r e m e
0027560 n t . c e l l . p o i n t e r
0027600 H B ) ( \r d e c r e m e n t .
0027620 c o u n t e r I ) ) ) ) ) \r (
0027640 P U T P R O P S s a v e . r e
0027660 g i s t e r s M A C R O ( O
0027700 P E N L A M B D A N I L ( *
0027720 n e e d e d C S ) ( s e
0027740 t . t o p . o f . s t a c k )
0027760 ( p u t . 1 6 I ( P R O C .
0030000 A R I T Y \r ( g e t . 2 4 C
0030020 ) ) ) ( w h i l e ( I G R E
0030040 A T E R P ( g e t . 1 6 I )
0030060 4 ) ( p u t . c e l l R
0030100 0 ( g e t . A m e m I ) )
0030120 ( i n c r e m e n t . c e l l .
0030140 p o i n t e r R ) ( \r d e c
0030160 r e m e n t . c o u n t e r I
0030200 ) ) ( p u t . c e l l R 0
0030220 ( g e t . A v a l 4 ) ) (
0030240 p u t . c e l l R 1 ( g e
0030260 t . A v a l 3 ) ) ( p u t .
0030300 c e l l R 2 ( g e t . A v
0030320 a l \r 2 ) ) ( p u t . c e l
0030340 l R 3 ( g e t . A v a l
0030360 1 ) ) ( p u t . a d d r R
0030400 4 ( g e t . 2 4 S ) ) ( p
0030420 u t . a d d r R 5 ( g e t
0030440 . 2 4 C ) ) ( \r i n c r e m
0030460 e n t . c e l l . p o i n t e r
0030500 R 6 ) ) ) \r ( P U T P R O P
0030520 S s e t . t o p . o f . s t a
0030540 c k M A C R O ( O P E N L A
0030560 M B D A N I L ( i f ( b e
0030600 f o r e E B ) t h e n (
0030620 p u t . 2 4 R ( g e t . 2 4
0030640 B ) ) e l s e ( \r p u t .
0030660 2 4 R ( E . p l u s . e n v
0030700 . s i z e . f r o m . C P ) ) )
0030720 ) ) \r ( P U T P R O P S I N D
0030740 E X . L S P C O P Y R I G H T
0030760 ( " X e r o x C o r p o r a
0031000 t i o n " 1 9 8 5 ) ) \r N I L
0031020 \r
0031021