$ od -c -N 50000 [eris]<LispCore>MISC>LOOP.DCOM!3
0000000 ( F I L E C R E A T E D " 1 2
0000020 - M a r - 8 6 0 7 : 3 2 : 2 4
0000040 " ( " c o m p i l e d o n
0000060 " . { E R I S } < L I S P C
0000100 O R E > M I S C > L O O P . ; 2
0000120 ) " 1 - M a r - 8 6 0 1 :
0000140 2 9 : 1 0 " \r " C O M P I L E
0000160 . F I L E d " i n " X e r o
0000200 x L i s p 1 - M a r - 8 6
0000220 . . . " d a t e d " 1 -
0000240 M a r - 8 6 0 1 : 4 2 : 0 1 "
0000260 ) \r ( I N - P A C K A G E ( Q
0000300 U O T E L I S P ) : U S E
0000320 ( Q U O T E ( S Y S T E M ) )
0000340 ) \r ( E X P O R T ( Q U O T E
0000360 ( L O O P - F I N I S H D E
0000400 F I N E - L O O P - M A C R O
0000420 D E F I N E - L O O P - P A T H
0000440 D E F I N E - L O O P - S E Q
0000460 U E N C E - P A T H ) ) ) \r ( I
0000500 N - P A C K A G E ( Q U O T E
0000520 L O O P ) : U S E ( Q U O
0000540 T E ( L I S P ) ) ) \r L O O P
0000560 - M A K E - P S E T Q D 1 \r (
0000600 I 0 F R O B S ) \0 % \0 \0 \0
0000620 001 @ d 262 ! 001 @ 002 002 243 @ 002 001 217 g \0
0000640 \0 @ 002 001 @ 002 002 \t \0 \0 h 032 032 032 h 032
0000660 032 \t \0 \0 020 \0 ( 4 2 Q L O O P -
0000700 M A K E - S E T Q 3 0 Q L O
0000720 O P - M A K E - P S E T Q ) \r (
0000740 1 7 Q P R O G 1 ) \r ( ) \r ( Q
0000760 U O T E C L : C O M P I L E )
0001000 \r ( D E F V A R L O O P - U S
0001020 E - S Y S T E M - D E S T R U C
0001040 T U R I N G ? N I L ) \r ( D E
0001060 F V A R L O O P - D E S E T Q
0001100 - T E M P O R A R Y ) \r L O O P
0001120 - M A K E - D E S E T Q D 1 \r
0001140 ( P 4 V A L P 3 V A R
0001160 P 2 R P 1 X I 0
0001200 X F 5 L O O P - D E S E
0001220 T Q - T E M P O R A R Y F 6
0001240 L O O P - U S E - S Y S T E M
0001260 - D E S T R U C T U R I N G ? )
0001300 \0 245 005 002 \0 001 V 262 $ @ 021 001 \0 H 265
0001320 006 g \0 \0 215 001 230 H d 001 004 l 004 360 247 277
0001340 g \0 \0 022 @ 032 020 002 002 X 260 345 @ 021 1 004
0001360 I 265 \v J 264 \a g \0 \0 J 032 020 001 273 I 002
0001400 001 274 K \t \0 \0 263 R L \t \0 \0 263 L L 001
0001420 d g \0 \0 360 263 " d g \0 \0 360 263 033 d g
0001440 \0 \0 360 263 024 d g \0 \0 360 253 d g \0 \0 360
0001460 245 d g \0 \0 360 222 277 i 201 277 h 227 L 002 001
0001500 \t \0 \0 263 025 U 265 \a \b \0 \0 c \n L K U
0001520 I 002 002 032 032 032 032 271 J I 001 I 002 001 \n \0
0001540 \0 \n \0 \0 272 I 002 002 Y 260 210 \0 ( 2 3 4
0001560 Q \ N C O N C 2 2 3 1 Q L
0001600 O O P - D E S E T Q - I N T E R
0001620 N A L 2 0 3 Q G E N S Y M
0001640 1 7 3 Q C L : A T O M 1 0 4
0001660 Q C L : A T O M 7 6 Q C L
0001700 : A T O M ) \r ( 1 5 5 Q C D A
0001720 R 1 4 7 Q C A A R 1 4 1 Q
0001740 C D D R 1 3 2 Q C A D R
0001760 1 2 3 Q C D R 1 1 4 Q C A
0002000 R 6 1 Q C L : S E T Q 3 3
0002020 Q D E S E T Q 1 4 Q C L :
0002040 S E T Q ) \r ( ) \r L O O P - D E
0002060 S E T Q - I N T E R N A L D 1
0002100 \r ( I 1 V A L I 0 V A
0002120 R ) \0 + \0 \0 \0 002 @ d 240 020 \t \0 \0
0002140 225 @ A h 032 032 020 @ 001 g \0 \0 A h 032 032
0002160 \n \0 \0 @ 002 g \0 \0 A h 032 032 \n \0 \0 \n
0002200 \0 \0 020 \0 ( 5 0 Q \ N C O N C 2
0002220 4 5 Q L O O P - D E S E T Q
0002240 - I N T E R N A L 3 1 Q L O
0002260 O P - D E S E T Q - I N T E R N
0002300 A L 6 C L : A T O M ) \r ( 3
0002320 6 Q C D R 2 2 Q C A R ) \r
0002340 ( ) \r L O O P - M A K E - S E T
0002360 Q D 1 \r ( I 0 P A I R S )
0002400 \0 \b \0 \0 \0 001 @ d 222 \t \0 \0 020 \0 (
0002420 5 L O O P - M A K E - D E S E
0002440 T Q ) \r N I L \r ( ) \r ( D E F C
0002460 O N S T A N T L O O P - K E Y
0002500 W O R D - A L I S T ( Q U O T
0002520 E ( ( N A M E D L O O P - D
0002540 O - N A M E D ) ( C L : I N I
0002560 T I A L L Y L O O P - D O - I
0002600 N I T I A L L Y ) ( \r C L : F
0002620 I N A L L Y L O O P - D O - F
0002640 I N A L L Y ) ( N O D E C L A
0002660 R E L O O P - N O D E C L A R
0002700 E ) ( C L : D O L O O P - D
0002720 O - D O ) ( D O I N G L O O
0002740 P - D O - D O ) ( R E T U R N
0002760 \r L O O P - D O - R E T U R N
0003000 ) ( C L : C O L L E C T L O
0003020 O P - D O - C O L L E C T L I
0003040 S T ) ( C O L L E C T I N G
0003060 L O O P - D O - C O L L E C T
0003100 L I S T ) ( A P P E N D \r L
0003120 O O P - D O - C O L L E C T A
0003140 P P E N D ) ( A P P E N D I N
0003160 G L O O P - D O - C O L L E C
0003200 T A P P E N D ) ( N C O N C
0003220 L O O P - D O - C O L L E C T
0003240 N C O N C ) ( N C O N C I N
0003260 G \r L O O P - D O - C O L L E
0003300 C T N C O N C ) ( C L : C O
0003320 U N T L O O P - D O - C O L L
0003340 E C T C L : C O U N T ) ( C
0003360 O U N T I N G L O O P - D O -
0003400 C O L L E C T C L : C O U N T
0003420 ) ( C L : S U M \r L O O P -
0003440 D O - C O L L E C T C L : S U
0003460 M ) ( S U M M I N G L O O P
0003500 - D O - C O L L E C T C L : S
0003520 U M ) ( M A X I M I Z E L O
0003540 O P - D O - C O L L E C T M A
0003560 X ) ( M I N I M I Z E \r L O
0003600 O P - D O - C O L L E C T M I
0003620 N ) ( A L W A Y S L O O P -
0003640 D O - A L W A Y S O R ) ( N
0003660 E V E R L O O P - D O - A L W
0003700 A Y S A N D ) ( T H E R E I
0003720 S L O O P - D O - T H E R E I
0003740 S ) ( \r W H I L E L O O P -
0003760 D O - W H I L E O R W H I L
0004000 E ) ( C L : U N T I L L O O
0004020 P - D O - W H I L E A N D C
0004040 L : U N T I L ) ( C L : W H E
0004060 N L O O P - D O - W H E N N
0004100 I L ) ( C L : I F \r L O O P
0004120 - D O - W H E N N I L ) ( C
0004140 L : U N L E S S L O O P - D O
0004160 - W H E N T ) ( W I T H L
0004200 O O P - D O - W I T H ) ) ) ) \r
0004220 ( D E F C O N S T A N T L O O
0004240 P - I T E R A T I O N - K E Y W
0004260 O R D - A L I S T ( B Q U O T
0004300 E ( ( F O R L O O P - D O -
0004320 F O R ) ( A S L O O P - D O
0004340 - F O R ) ( R E P E A T \r L
0004360 O O P - D O - R E P E A T ) ) )
0004400 ) \r ( D E F C O N S T A N T L
0004420 O O P - F O R - K E Y W O R D -
0004440 A L I S T ( Q U O T E ( ( =
0004460 L O O P - F O R - E Q U A L S
0004500 ) ( C L : F I R S T L O O P
0004520 - F O R - F I R S T ) ( I N
0004540 \r L O O P - L I S T - S T E P P
0004560 E R C A R ) ( O N L O O P
0004600 - L I S T - S T E P P E R N I
0004620 L ) ( F R O M L O O P - F O
0004640 R - A R I T H M E T I C F R O
0004660 M ) ( D O W N F R O M \r L O
0004700 O P - F O R - A R I T H M E T I
0004720 C D O W N F R O M ) ( U P F
0004740 R O M L O O P - F O R - A R I
0004760 T H M E T I C U P F R O M )
0005000 ( B E L O W L O O P - F O R -
0005020 A R I T H M E T I C B E L O W
0005040 ) ( \r T O L O O P - F O R -
0005060 A R I T H M E T I C T O ) (
0005100 B E I N G L O O P - F O R - B
0005120 E I N G ) ) ) ) \r ( D E F V A R
0005140 L O O P - P R O G - N A M E S
0005160 ) \r ( D E F V A R L O O P - P
0005200 A T H - K E Y W O R D - A L I S
0005220 T N I L ) \r ( D E F V A R L
0005240 O O P - N A M E D - V A R I A B
0005260 L E S ) \r ( D E F V A R L O O
0005300 P - C O L L E C T I O N - C R O
0005320 C K S ) \r ( D E F V A R L O O
0005340 P - V A R I A B L E S ) \r ( D E
0005360 F V A R L O O P - D E C L A R
0005400 A T I O N S ) \r ( D E F V A R
0005420 L O O P - N O D E C L A R E ) \r
0005440 ( D E F V A R L O O P - V A R
0005460 I A B L E - S T A C K ) \r ( D E
0005500 F V A R L O O P - D E C L A R
0005520 A T I O N - S T A C K ) \r ( D E
0005540 F V A R L O O P - D E S E T Q
0005560 - C R O C K S ) \r ( D E F V A R
0005600 L O O P - D E S E T Q - S T A
0005620 C K ) \r ( D E F V A R L O O P
0005640 - P R O L O G U E ) \r ( D E F V
0005660 A R L O O P - W R A P P E R S
0005700 ) \r ( D E F V A R L O O P - B
0005720 E F O R E - L O O P ) \r ( D E F
0005740 V A R L O O P - B O D Y ) \r (
0005760 D E F V A R L O O P - A F T E
0006000 R - B O D Y ) \r ( D E F V A R
0006020 L O O P - E P I L O G U E ) \r (
0006040 D E F V A R L O O P - A F T E
0006060 R - E P I L O G U E ) \r ( D E F
0006100 V A R L O O P - C O N D I T I
0006120 O N A L S ) \r ( D E F V A R L
0006140 O O P - W H E N - I T - V A R I
0006160 A B L E ) \r ( D E F V A R L O
0006200 O P - N E V E R - S T E P P E D
0006220 - V A R I A B L E ) \r ( D E F V
0006240 A R L O O P - E M I T T E D -
0006260 B O D Y ? ) \r ( D E F V A R L
0006300 O O P - I T E R A T I O N - V A
0006320 R I A B L E S ) \r ( D E F V A R
0006340 L O O P - I T E R A T I O N -
0006360 V A R I A B L E P ) \r ( D E F V
0006400 A R L O O P - C O L L E C T -
0006420 C R U F T ) \r ( D E F V A R L
0006440 O O P - S O U R C E - C O D E )
0006460 \r ( D E F V A R L O O P - D U
0006500 P L I C A T E - C O D E N I L
0006520 ) \r L O O P - C O N S T R U C T
0006540 - R E T U R N D 1 \r ( L ( 0
0006560 F O R M ) F 0 L O O P -
0006600 P R O G - N A M E S ) \0 026 \0 001
0006620 \0 001 P 232 g \0 \0 P 001 @ h 032 032 032 020 g
0006640 \0 \0 @ h 032 032 020 \0 N I L \r ( 1 7 Q
0006660 R E T U R N 4 R E T U R N
0006700 - F R O M ) \r ( ) \r ( Q U O T E
0006720 C L : C O M P I L E ) \r L O O
0006740 P - T E Q U A L D 1 \r ( I 1
0006760 K W D 2 I 0 K W D 1 )
0007000 \0 024 \0 \0 \0 002 @ 004 l 004 360 264 \r @ \t \0
0007020 \0 A \t \0 \0 \n \0 \0 020 \0 ( 2 1 Q S
0007040 T R I N G = 1 6 Q S Y M B O
0007060 L - N A M E 1 2 Q S Y M B O
0007100 L - N A M E ) \r N I L \r ( ) \r L
0007120 O O P - T A S S O C D 1 \r ( P
0007140 0 L I 1 A L I S T I
0007160 0 K W D ) \0 ) 001 \0 \0 002 @ 004
0007200 l 004 360 264 035 @ \t \0 \0 b \0 A 021 001 \0 H
0007220 241 h 020 @ H 001 001 \t \0 \0 \n \0 \0 222 H 001
0007240 020 H 002 X 260 354 \0 ( 3 6 Q S T R I
0007260 N G = 3 3 Q S Y M B O L - N
0007300 A M E 1 2 Q S Y M B O L - N
0007320 A M E ) \r N I L \r ( ) \r L O O P
0007340 - T M E M B E R D 1 \r ( P 0
0007360 L I 1 L I S T I 0
0007400 T O K E N ) \0 ' 001 \0 \0 002 @ 004 l
0007420 004 360 264 033 @ \t \0 \0 b \0 A 021 001 \0 H 241
0007440 h 020 @ H 001 \t \0 \0 \n \0 \0 221 H 020 H 002
0007460 X 260 356 \0 ( 3 5 Q S T R I N G =
0007500 3 2 Q S Y M B O L - N A M E
0007520 1 2 Q S Y M B O L - N A M E
0007540 ) \r N I L \r ( ) \r E X P A N D -
0007560 L I S P : L O O P 1 5 7 6 D 1
0007600 \r ( I 0 X ) \0 006 \0 \0 \0 001 @
0007620 \t \0 \0 020 \0 ( 3 L O O P - T R A
0007640 N S L A T E - 1 ) \r N I L \r ( )
0007660 \r ( D E F M A C R O L I S P :
0007700 L O O P ( & R E S T X ) (
0007720 E X P A N D - L I S P : L O O P
0007740 1 5 7 6 X ) ) \r E X P A N D -
0007760 L I S P : L O O P - F I N I S H
0010000 1 5 7 7 D 1 \r N I L \0 006 \0 \0
0010020 \0 \0 o \0 \0 \0 020 \0 N I L \r N I L \r
0010040 ( 3 ( G O E N D - L O O P
0010060 ) ) \r ( D E F M A C R O L I S
0010100 P : L O O P - F I N I S H N I
0010120 L ( E X P A N D - L I S P : L
0010140 O O P - F I N I S H 1 5 7 7 ) )
0010160 \r L O O P - E N D - T E S T I F
0010200 Y D 1 \r ( I 0 L I S T - O
0010220 F - F O R M S ) \0 037 \0 \0 \0 001 @
0010240 241 h 020 g \0 \0 @ \t \0 \0 b \0 002 242 @ 001
0010260 204 g \0 \0 @ 032 o \0 \0 \0 032 032 020 \0 ( 1
0010300 2 Q C L : N R E V E R S E ) \r
0010320 ( 2 4 Q O R 6 A N D ) \r (
0010340 3 2 Q ( ( G O E N D - L O
0010360 O P ) ) ) \r L O O P - O P T I M
0010400 I Z E - D U P L I C A T E D - C
0010420 O D E - E T C D 1 \r ( P 1 2
0010440 Q A A P 1 1 Q B B P
0010460 1 0 Q L 2 P 7 L 1 P
0010500 6 L A S T D I F F P 5 B
0010520 P 4 A P 3 G R O U P
0010540 B P 2 G R O U P A P 1
0010560 A F T E R P 0 B E F O R
0010600 E F 1 3 Q L O O P - A F T
0010620 E R - B O D Y F 1 4 Q L O
0010640 O P - B E F O R E - L O O P F
0010660 1 5 Q L O O P - B O D Y F
0010700 1 6 Q L O O P - N E V E R -
0010720 S T E P P E D - V A R I A B L E
0010740 F 1 7 Q L O O P - D U P L
0010760 I C A T E - C O D E ) 001 : \v 005
0011000 \0 \0 021 p 006 W 030 \t \0 \0 W 026 \t \0 \0 021
0011020 002 \b O 016 O 020 \n \0 \0 262 . h O 016 \n \0
0011040 \0 W 032 \t \0 \0 \n \0 \0 c 032 023 W 036 264 2
0011060 h H \n \0 \0 \t \0 \0 c 030 277 h I \n \0 \0
0011100 \t \0 \0 c 026 260 } O 016 001 H 032 270 O 020 001
0011120 I 032 271 O 016 002 O 020 002 _ 020 277 _ 016 260 266
0011140 c 030 c 026 277 H \t \0 \0 270 I \t \0 \0 271 H
0011160 I 021 002 \n O 024 265 c 023 N 262 3 H 001 227 H
0011200 001 W 030 032 c 030 277 I 001 227 I 001 W 026 032 c
0011220 026 277 H 002 270 I 002 Y N 002 360 262 341 W 030 \t
0011240 \0 \0 c 030 277 W 026 \t \0 \0 c 026 277 H \t \0
0011260 \0 I \t \0 \0 021 002 \n O 024 265 B 023 K J \n
0011300 \0 \0 277 W 034 264 023 g \0 \0 W 034 o \0 \0 \0
0011320 032 032 W 026 032 c 026 h 020 001 O 022 001 \n \0 \0
0011340 243 O 024 276 207 O 024 001 \t \0 \0 262 215 O 022 002
0011360 O 024 002 _ 024 277 _ 022 277 261 377 { 001 274 O 022
0011400 001 275 L 265 006 M 262 & L M \n \0 \0 262 023 K
0011420 J \n \0 \0 277 L W 032 032 c 032 277 h [ 272 213
0011440 L 223 L J 032 272 M 223 M K 032 273 O 022 002 O
0011460 024 002 _ 024 277 _ 022 277 261 377 200 \0 ( 4 2 1
0011500 Q L O O P - O U T P U T - G R
0011520 O U P 4 1 2 Q C L : E Q U A
0011540 L 3 5 0 Q L O O P - S I M P
0011560 L E P 3 3 5 Q C L : E Q U A
0011600 L 2 7 7 Q L O O P - O U T P
0011620 U T - G R O U P 2 6 2 Q C L
0011640 : N R E V E R S E 2 5 6 Q C
0011660 L : N R E V E R S E 2 4 7 Q
0011700 C L : N R E V E R S E 2 3 7 Q
0011720 C L : N R E V E R S E 1 5 3
0011740 Q C L : N R E V E R S E 1 4
0011760 6 Q C L : N R E V E R S E 1
0012000 0 0 Q C L : N R E V E R S E
0012020 7 5 Q S Y S T E M : : D E L Q
0012040 6 5 Q C L : N R E V E R S E
0012060 6 2 Q S Y S T E M : : D E L
0012100 Q 4 6 Q \ N C O N C 2 4 3
0012120 Q C L : N R E V E R S E 3 6
0012140 Q S Y S T E M : : D E L Q 2
0012160 6 Q C L : E Q U A L 1 4 Q
0012200 C L : N R E V E R S E 7 C L
0012220 : N R E V E R S E ) \r ( 3 0 7 Q
0012240 C L : S E T Q ) \r ( 3 1 5 Q
0012260 ( N I L ) ) \r L O O P - O U T
0012300 P U T - G R O U P D 1 \r ( I
0012320 1 A F T E R I 0 B E F O
0012340 R E F 1 L O O P - N E V E
0012360 R - S T E P P E D - V A R I A B
0012400 L E F 2 L O O P - B O D Y
0012420 ) \0 > 001 002 \0 002 A 242 @ 264 9 Q 265 \f
0012440 \b \0 \0 i h \v \0 \0 c 002 021 001 \0 @ 250 g
0012460 \0 \0 H g \0 \0 260 024 A 250 g \0 \0 H g \0
0012500 \0 @ 207 g \0 \0 H @ 032 i A 032 h 032 032 032
0012520 R 032 c 004 020 \0 ( 1 7 Q L O O P -
0012540 M A K E - V A R I A B L E 1 2
0012560 Q G E N S Y M ) \r ( 5 5 Q C
0012600 O N D 5 0 Q P R O G N 4 4
0012620 Q A N D 3 5 Q P R O G N
0012640 3 1 Q O R ) \r ( ) \r L O O P -
0012660 T R A N S L A T E - 1 A 0 0 0 1
0012700 D 1 \r ( P 5 1 Q C N T P
0012720 5 0 Q F N P 4 7 Q V
0012740 P 4 6 Q L P 4 5 Q L A
0012760 M B D A - V A L S P 4 4 Q
0013000 L A M B D A - V A R S P 4 3
0013020 Q L P 4 2 Q W P 4 0
0013040 Q C R O C K S P 3 7 Q D
0013060 C L S P 3 6 Q V A R S P
0013100 3 5 Q P R O G V A R S P
0013120 3 4 Q T E M P 3 3 Q K E
0013140 Y W O R D P 3 2 Q L O O P
0013160 - C O L L E C T I O N - C R O C
0013200 K S P 3 1 Q L O O P - C O
0013220 L L E C T - C R U F T P 3 0
0013240 Q L O O P - P R O G - N A M E
0013260 S P 2 7 Q L O O P - D E S
0013300 E T Q - T E M P O R A R Y P
0013320 2 6 Q L O O P - N E V E R - S
0013340 T E P P E D - V A R I A B L E
0013360 P 2 5 Q L O O P - W H E N -
0013400 I T - V A R I A B L E P 2 4
0013420 Q L O O P - C O N D I T I O N
0013440 A L S P 2 3 Q L O O P - A
0013460 F T E R - E P I L O G U E P
0013500 2 2 Q L O O P - E P I L O G U
0013520 E P 2 1 Q L O O P - A F T
0013540 E R - B O D Y P 2 0 Q L O
0013560 O P - E M I T T E D - B O D Y ?
0013600 P 1 7 Q L O O P - B O D Y
0013620 P 1 6 Q L O O P - B E F O
0013640 R E - L O O P P 1 5 Q L O
0013660 O P - W R A P P E R S P 1 4
0013700 Q L O O P - P R O L O G U E
0013720 P 1 3 Q L O O P - D E S E T
0013740 Q - S T A C K P 1 2 Q L O
0013760 O P - D E C L A R A T I O N - S
0014000 T A C K P 1 1 Q L O O P -
0014020 V A R I A B L E - S T A C K P
0014040 1 0 Q L O O P - D E S E T Q
0014060 - C R O C K S P 7 L O O P
0014100 - D E C L A R A T I O N S P
0014120 6 L O O P - N A M E D - V A R
0014140 I A B L E S P 5 L O O P -
0014160 N O D E C L A R E P 4 L O
0014200 O P - V A R I A B L E S P 3
0014220 L O O P - I T E R A T I O N -
0014240 V A R I A B L E P P 2 L O
0014260 O P - I T E R A T I O N - V A R
0014300 I A B L E S P 1 L O O P -
0014320 L O O P - C A L L E D - W I T H
0014340 - B O D Y P 0 \ C A T C H
0014360 . T A G . C O M M O N - L I S P
0014400 - L O O P F 5 2 Q L O O P
0014420 - S O U R C E - C O D E F 5
0014440 3 Q L O O P - K E Y W O R D -
0014460 A L I S T F 5 4 Q L O O P
0014500 - I T E R A T I O N - K E Y W O
0014520 R D - A L I S T ) 002 004 * 003 \0 \0
0014540 f 021 001 \0 W T 021 361 020 021 320 035 W T 265 003
0014560 202 261 001 \ O ( 235 o \0 \0 \0 O ( 001 002 001
0014600 001 \n \0 \0 277 \b \0 \0 \b \0 \0 O 4 _ : O
0014620 . 227 O . O : 032 _ : 277 g \0 \0 O : O
0014640 030 \t \0 \0 O 034 g \0 \0 O 036 O " o \0 \0
0014660 \0 g \0 \0 O $ \t \0 \0 O & \t \0 \0 \n \0
0014700 \0 032 032 \n \0 \0 \n \0 \0 032 \n \0 \0 \n \0 \0
0014720 032 032 _ 8 021 0 O 022 265 024 023 O 032 021 021
0014740 " O B 003 265 003 202 261 \0 321 O 8 020 001 _ <
0014760 277 O 022 002 _ 022 277 O 024 001 _ > 277 O 024 002
0015000 _ 024 277 O 8 h 032 _ 8 277 O 026 001 O 026 002
0015020 _ 026 277 _ @ 232 O @ \t \0 \0 O 8 032 _ 8
0015040 277 O > 233 g \0 \0 O > 032 O 8 032 _ 8 277
0015060 O < 021 001 # O F d 262 032 001 \t \0 \0 263 )
0015100 O F 001 001 233 O F d 001 001 004 l 004 360 263 033
0015120 277 i 022 262 033 g \0 \0 O < \t \0 \0 O 8 032
0015140 032 _ 8 277 261 377 s O F 002 _ F 260 313 021
0015160 % O < 021 021 ' O L 265 025 023 g \0 \0 O H
0015200 O 8 032 032 O J 032 _ 8 023 261 377 M 001 _ N
0015220 \t \0 \0 231 O N O H 032 _ H 277 h 214 O N
0015240 001 O H 032 _ H 277 O N 002 001 O J 032 _ J
0015260 277 O L 002 _ L 260 302 001 _ D O 8 h 032 \n
0015300 \0 \0 _ 8 277 O B 002 _ B 261 377 031 001 W T
0015320 002 c T 277 _ 6 004 l 004 360 262 | O 6 W V
0015340 \n \0 \0 _ 8 265 7 O 6 W X \n \0 \0 _ 8
0015360 265 % O 6 o \0 \0 \0 \n \0 \0 262 N o \0 \0
0015400 \0 O 6 W T 001 W T 002 001 h 032 032 032 \n \0
0015420 \0 277 261 376 Z \t \0 \0 277 261 376 S 002 001 j 021
0015440 002 ) O 8 002 002 260 027 d 001 375 002 O R k 330
0015460 _ R l P 361 226 h l 4 \n \0 \0 277 003 265 352
0015500 O R O P 016 023 261 376 & o \0 \0 \0 O 6 \n
0015520 \0 \0 277 261 376 031 o \0 \0 \0 O 6 \n \0 \0 277
0015540 261 376 \f \0 ( 7 7 6 Q C L : E R R
0015560 O R 7 6 1 Q C L : E R R O R
0015600 7 3 3 Q \ L I S P E R R O R
0015620 6 6 7 Q L O O P - H A C K -
0015640 I T E R A T I O N 6 6 0 Q C
0015660 L : E R R O R 6 3 2 Q L O O
0015700 P - T M E M B E R 6 1 5 Q L
0015720 O O P - T A S S O C 6 0 2 Q
0015740 L O O P - T A S S O C 5 4 1 Q
0015760 \ A P P E N D 2 4 6 2 Q C
0016000 L : A T O M 3 7 4 Q C L : N
0016020 R E V E R S E 3 3 5 Q C L :
0016040 A T O M 2 7 2 Q L O O P - M
0016060 A K E - D E S E T Q 1 5 7 Q
0016100 \ A P P E N D 2 1 5 4 Q \ A
0016120 P P E N D 2 1 5 0 Q \ A P P
0016140 E N D 2 1 4 5 Q \ A P P E N
0016160 D 2 1 4 0 Q \ A P P E N D 2
0016200 1 3 5 Q C L : N R E V E R S
0016220 E 1 3 0 Q C L : N R E V E R
0016240 S E 1 0 3 Q C L : N R E V E
0016260 R S E 5 2 Q L O O P - B I N
0016300 D - B L O C K 4 7 Q L O O P
0016320 - O P T I M I Z E - D U P L I C
0016340 A T E D - C O D E - E T C 4 3
0016360 Q C L : E R R O R ) \r ( 4 3 5
0016400 Q C L : L A M B D A 3 6 7 Q
0016420 L E T 3 0 6 Q C L : D E C
0016440 L A R E 1 2 3 Q E N D - L O
0016460 O P 1 1 0 Q N E X T - L O O
0016500 P 7 4 Q P R O G ) \r ( 7 7
0016520 1 Q " ~ S f o u n d w h e
0016540 r e k e y w o r d e x p e c
0016560 t e d i n L O O P m a c r
0016600 o " 7 5 4 Q " ~ S u n k n
0016620 o w n k e y w o r d i n L
0016640 O O P m a c r o " 6 4 0 Q
0016660 " ~ S s e c o n d a r y c l
0016700 a u s e m i s p l a c e d a
0016720 t t o p l e v e l i n L
0016740 O O P m a c r o " \r 6 2 7 Q
0016760 ( A N D E L S E ) 1 2 0 Q
0017000 ( G O N E X T - L O O P )
0017020 3 2 Q " ~ S H a n g i n g
0017040 c o n d i t i o n a l i n l
0017060 o o p m a c r o " ) \r L O O P
0017100 - T R A N S L A T E - 1 D 1 \r
0017120 ( I 0 L O O P - S O U R C E
0017140 - C O D E ) \0 \a \0 \0 \0 001 j g \0
0017160 \0 016 020 \0 N I L \r ( 3 L O O P -
0017200 T R A N S L A T E - 1 A 0 0 0 1
0017220 ) \r ( ) \r L O O P - B I N D - B
0017240 L O C K D 1 \r ( F 0 L O O
0017260 P - V A R I A B L E S F 1
0017300 L O O P - V A R I A B L E - S T
0017320 A C K F 2 L O O P - D E C
0017340 L A R A T I O N S F 3 L O
0017360 O P - D E S E T Q - S T A C K
0017400 F 4 L O O P - D E C L A R A
0017420 T I O N - S T A C K F 5 L
0017440 O O P - D E S E T Q - C R O C K
0017460 S ) \0 034 \0 006 \0 \0 P d 262 030 Q 032 c
0017500 002 R T 032 c \b h c \0 c 004 U S 032 c 006
0017520 h c \n 020 \0 N I L \r N I L \r ( ) \r
0017540 L O O P - G E T - F O R M D 1
0017560 \r ( P 1 N E X T F O R M P
0017600 0 F O R M S F 2 L O O
0017620 P - S O U R C E - C O D E ) \0
0017640 2 002 001 \0 \0 R 001 R 002 c 004 277 h 032 R 001
0017660 021 002 001 I \t \0 \0 236 H 002 242 H 001 020 g \0
0017700 \0 H \t \0 \0 032 020 R 001 R 002 c 004 277 H 032
0017720 R 001 271 270 260 337 \0 ( 3 7 Q C L : N
0017740 R E V E R S E 2 1 Q C L : A
0017760 T O M ) \r ( 3 3 Q P R O G N )
0020000 \r ( ) \r L O O P - T Y P E D - A
0020020 R I T H D 1 \r ( I 1 D A T
0020040 A - T Y P E I 0 S U B S T
0020060 I T U T A B L E - E X P R E S S
0020100 I O N ) \0 \n \0 \0 \0 002 o \0 \0 \0 @
0020120 \n \0 \0 020 \0 ( 7 S U B L I S ) \r
0020140 N I L \r ( 3 ( ( P L U S .
0020160 + ) ( A D D 1 . 1 + )
0020200 ( D I F F E R E N C E . - )
0020220 ( S U B 1 . 1 - ) ( Q U
0020240 O T I E N T . / ) ( R E M
0020260 A I N D E R . R E M ) ( T
0020300 I M E S . C L : * ) ( G R
0020320 E A T E R P . > ) ( L E S
0020340 S P . < ) ) ) \r L O O P - T
0020360 Y P E D - I N I T D 1 \r ( I
0020400 0 D A T A - T Y P E ) \0 030 \0
0020420 \0 \0 001 @ o \0 \0 \0 \n \0 \0 001 d 232 g \0
0020440 \0 360 224 o \0 \0 \0 020 j 020 \0 ( 7 L O
0020460 O P - T M E M B E R ) \r ( 1 5 Q
0020500 F L O N U M ) \r ( 2 3 Q 0
0020520 . 0 4 ( F I X N U M F L O
0020540 N U M I N T E G E R N U M B
0020560 E R ) ) \r L O O P - M A K E - V
0020600 A R I A B L E D 1 \r ( P 4
0020620 T C D R P 3 T C A R P
0020640 2 N E W V A R I 2 D T Y
0020660 P E I 1 I N I T I A L I Z
0020700 A T I O N I 0 N A M E F
0020720 5 L O O P - V A R I A B L E
0020740 S F 6 L O O P - I T E R A
0020760 T I O N - V A R I A B L E S F
0021000 7 L O O P - D E S E T Q - C
0021020 R O C K S F 1 0 Q L O O P
0021040 - I T E R A T I O N - V A R I A
0021060 B L E P F 1 1 Q L O O P -
0021100 U S E - S Y S T E M - D E S T R
0021120 U C T U R I N G ? ) \0 331 005 005 \0
0021140 003 @ 265 024 A 242 261 \0 321 h A h 032 032 U 032
0021160 c \n 277 261 \0 304 \t \0 \0 262 b W 020 262 & @
0021200 021 021 001 V Y 003 265 \f h 022 262 023 o \0 \0 \0
0021220 260 035 001 H : 222 I 260 362 I 002 260 351 @ V 032
0021240 c \f 215 @ U \n \0 \0 230 o \0 \0 \0 @ \n \0
0021260 \0 277 @ d 004 l 004 360 252 277 o \0 \0 \0 @ \n
0021300 \0 \0 277 @ B \n \0 \0 277 @ A 265 006 B \t \0
0021320 \0 h 032 032 U 032 c \n 277 260 ^ A 262 : W 022
0021340 262 024 @ B \n \0 \0 277 @ A h 032 032 U 032 c
0021360 \n 277 260 E \b \0 \0 021 001 002 J A h 032 032 U
0021400 032 c \n 277 @ J W 016 032 032 c 016 277 @ h B
0021420 \v \0 \0 023 260 # 021 004 B \t \0 \0 223 B \
0021440 273 205 B 001 273 B 002 274 @ 001 h K \v \0 \0 277
0021460 @ 002 h L \v \0 \0 @ 020 \0 ( 3 2 5 Q
0021500 L O O P - M A K E - V A R I A B
0021520 L E 3 1 5 Q L O O P - M A K
0021540 E - V A R I A B L E 2 7 3 Q
0021560 C L : A T O M 2 6 1 Q L O O
0021600 P - M A K E - V A R I A B L E
0021620 2 2 5 Q G E N S Y M 2 0 5 Q
0021640 L O O P - D E C L A R E - V A
0021660 R I A B L E 1 5 7 Q L O O P
0021700 - T Y P E D - I N I T 1 4 6 Q
0021720 L O O P - D E C L A R E - V A
0021740 R I A B L E 1 4 0 Q C L : E
0021760 R R O R 1 1 7 Q C L : E R R
0022000 O R 1 0 6 Q S Y S T E M : :
0022020 A S S Q 2 7 Q C L : A T O M
0022040 ) \r N I L \r ( 1 3 4 Q " ~ S
0022060 B a d v a r i a b l e s o
0022100 m e w h e r e i n L O O P "
0022120 1 1 3 Q " ~ S D u p l i c
0022140 a t e d v a r i n L O O P
0022160 b i n d b l o c k " 5 6 Q
0022200 " ~ S D u p l i c a t e d
0022220 i t e r a t i o n v a r i a b
0022240 l e s o m e w h e r e i n
0022260 L O O P " ) \r L O O P - M A K E
0022300 - I T E R A T I O N - V A R I A
0022320 B L E D 1 \r ( P 0 L O O P
0022340 - I T E R A T I O N - V A R I A
0022360 B L E P I 2 D T Y P E I
0022400 1 I N I T I A L I Z A T I O
0022420 N I 0 N A M E ) \0 \f 001 \0
0022440 \0 003 i 021 001 \0 @ A B \v \0 \0 020 \0 ( 1
0022460 1 Q L O O P - M A K E - V A R
0022500 I A B L E ) \r N I L \r ( ) \r L O
0022520 O P - D E C L A R E - V A R I A
0022540 B L E D 1 \r ( I 1 D T Y P
0022560 E I 0 N A M E F 2 L
0022600 O O P - D E C L A R A T I O N S
0022620 F 3 L O O P - N O D E C L
0022640 A R E ) \0 u 002 002 \0 002 @ 264 005 A 241
0022660 h 020 @ d 004 l 004 360 262 - 021 021 001 S Y 003
0022700 265 032 h 022 265 025 A o \0 \0 \0 \n \0 \0 264 \v
0022720 A @ h 032 032 R 032 c 004 020 001 H : 222 I 260
0022740 344 I 002 260 333 003 262 ( A 003 262 026 @ 001 A 001
0022760 \n \0 \0 @ 002 A 002 b 002 277 b \0 277 277 260 255
0023000 @ 001 A \n \0 \0 @ 002 b \0 277 277 260 237 o \0
0023020 \0 \0 g \0 \0 @ A h 032 032 032 \n \0 \0 020 \0
0023040 ( 1 6 2 Q C L : E R R O R 1
0023060 3 2 Q L O O P - D E C L A R E
0023100 - V A R I A B L E 1 0 7 Q L
0023120 O O P - D E C L A R E - V A R I
0023140 A B L E 4 2 Q L O O P - T M
0023160 E M B E R ) \r ( 1 5 1 Q L O O
0023200 P - D E C L A R E - V A R I A B
0023220 L E ) \r ( 1 4 6 Q " ~ S c
0023240 a n ' t h a c k t h i s "
0023260 3 7 Q ( F I X N U M F L O N
0023300 U M ) ) \r L O O P - C O N S T A
0023320 N T P D 1 \r ( I 0 F O R M
0023340 ) \0 $ \0 \0 \0 001 @ h 360 265 037 @ i 360
0023360 265 032 @ d 3 020 263 024 005 \a 265 020 @ \t \0 \0
0023400 h 360 264 \b @ 001 g \0 \0 360 020 \0 ( 2 7 Q
0023420 C L : A T O M ) \r ( 4 0 Q Q
0023440 U O T E ) \r ( ) \r L O O P - M A
0023460 Y B E - B I N D - F O R M D 1
0023500 \r ( I 1 D A T A - T Y P E ?
0023520 I 0 F O R M ) \0 021 \0 \0 \0
0023540 002 @ \t \0 \0 221 @ 020 \b \0 \0 @ A \v \0 \0
0023560 020 \0 ( 1 6 Q L O O P - M A K E
0023600 - V A R I A B L E 1 1 Q G E
0023620 N S Y M 3 L O O P - C O N S
0023640 T A N T P ) \r N I L \r ( ) \r L O
0023660 O P - O P T I O N A L - T Y P E
0023700 D 1 \r ( P 0 T O K E N F
0023720 1 L O O P - S O U R C E - C
0023740 O D E ) \0 $ 001 001 \0 \0 Q 001 021 001 \0
0023760 H h 360 h 360 264 030 H \t \0 \0 231 H o \0 \0
0024000 \0 \n \0 \0 264 \t Q 001 Q 002 c 002 277 020 \0 (
0024020 3 0 Q L O O P - T M E M B E R
0024040 1 7 Q C L : A T O M ) \r N I
0024060 L \r ( 2 5 Q ( F I X N U M
0024100 F L O N U M I N T E G E R N
0024120 U M B E R N O T Y P E ) ) \r L
0024140 O O P - M A K E - C O N D I T I
0024160 O N A L I Z A T I O N D 1 \r (
0024200 P 2 L P 1 P R E V P
0024220 0 I N N E R M O S T I 0
0024240 F O R M F 3 L O O P - C
0024260 O N D I T I O N A L S F 4
0024300 L O O P - S O U R C E - C O D E
0024320 ) \0 250 003 002 \0 001 S 265 004 @ 020 \t \0 \0
0024340 001 \t \0 \0 001 \t \0 \0 @ & T 001 g \0 \0 \n
0024360 \0 \0 225 T 002 c \b h 020 T 001 g \0 \0 \n \0
0024400 \0 262 X T 002 c \b S \t \0 \0 001 021 001 \0 H
0024420 002 002 262 5 S d 002 263 030 277 o \0 \0 \0 g \0
0024440 \0 T 001 T 002 001 h 032 032 032 \n \0 \0 260 031 \t
0024460 \0 \0 002 c 006 001 \t \0 \0 001 \t \0 \0 H & 277
0024500 S \t \0 \0 c 006 277 023 S \t \0 \0 001 \t \0 \0
0024520 o \0 \0 \0 h 032 & h 020 S 001 S 002 021 002 002
0024540 J 262 026 I \t \0 \0 001 \t \0 \0 J 001 & 277 J
0024560 001 J 002 272 271 260 353 023 S 001 h c 006 277 020 \0
0024600 ( 2 2 2 Q L A S T 2 1 6 Q
0024620 L A S T 1 6 7 Q L A S T 1
0024640 6 3 Q L A S T 1 5 3 Q C L
0024660 : N R E V E R S E 1 4 4 Q L
0024700 A S T 1 4 0 Q L A S T 1 3
0024720 1 Q C L : N R E V E R S E 1
0024740 2 4 Q C L : E R R O R 6 2 Q
0024760 L A S T 5 0 Q L O O P - T
0025000 E Q U A L 3 1 Q L O O P - T
0025020 E Q U A L 1 7 Q L A S T 1
0025040 3 Q L A S T 7 L A S T ) \r
0025060 ( 1 1 0 Q E L S E 4 5 Q E
0025100 L S E 2 6 Q A N D ) \r ( 1
0025120 7 3 Q ( Q U O T E T ) 1 0
0025140 5 Q " ~ S M o r e E L S E
0025160 s t h a n W H E N s " ) \r L
0025200 O O P - P S E U D O - B O D Y
0025220 D 1 \r ( I 0 F O R M F 1
0025240 L O O P - B O D Y F 2 L
0025260 O O P - B E F O R E - L O O P
0025300 F 3 L O O P - A F T E R - B
0025320 O D Y F 4 L O O P - E M I
0025340 T T E D - B O D Y ? ) \0 036 001 004
0025360 \0 001 @ \t \0 \0 021 001 \0 H 264 024 T 225 H Q
0025400 032 c 002 020 H R 032 c 004 H S 032 c 006 020 \0
0025420 ( 3 L O O P - M A K E - C O N
0025440 D I T I O N A L I Z A T I O N )
0025460 \r N I L \r ( ) \r L O O P - E M I
0025500 T - B O D Y D 1 \r ( I 0 F
0025520 O R M F 0 L O O P - E M I
0025540 T T E D - B O D Y ? ) \0 \t \0 001
0025560 \0 001 i c \0 @ \t \0 \0 020 \0 ( 6 L O
0025600 O P - P S E U D O - B O D Y ) \r
0025620 N I L \r ( ) \r L O O P - D O - N
0025640 A M E D D 1 \r ( P 0 N A M
0025660 E F 1 L O O P - S O U R C
0025700 E - C O D E F 2 L O O P -
0025720 P R O G - N A M E S F 3 L
0025740 O O P - B E F O R E - L O O P
0025760 F 4 L O O P - B O D Y F
0026000 5 L O O P - A F T E R - E P I
0026020 L O G U E ) \0 < 001 005 \0 \0 Q 001 Q
0026040 002 c 002 277 021 001 \0 H 225 H 004 l 004 360 250 o
0026060 \0 \0 \0 H \n \0 \0 277 S 243 T 241 U 230 o \0
0026100 \0 \0 H \n \0 \0 277 H R 032 c 004 002 264 \n o
0026120 \0 \0 \0 R \n \0 \0 020 \0 ( 7 1 Q C L
0026140 : E R R O R 5 0 Q C L : E R
0026160 R O R 3 1 Q C L : E R R O R
0026200 ) \r N I L \r ( 6 5 Q " ~ S
0026220 T o o m a n y n a m e s f
0026240 o r y o u r l o o p c o n
0026260 s t r u c t " 4 4 Q " ~ S
0026300 N A M E D c l a u s e o c c
0026320 u r s t o o l a t e " 2 5
0026340 Q " ~ S B a d n a m e f
0026360 o r y o u r l o o p c o n
0026400 s t r u c t " ) \r L O O P - D O
0026420 - I N I T I A L L Y D 1 \r ( F
0026440 0 L O O P - P R O L O G U E
0026460 ) \0 \t \0 001 \0 \0 \b \0 \0 P 032 c \0 020
0026500 \0 ( 2 L O O P - G E T - F O R
0026520 M ) \r N I L \r ( ) \r L O O P - N
0026540 O D E C L A R E D 1 \r ( P 0
0026560 V A R L I S T F 1 L O O
0026600 P - S O U R C E - C O D E F
0026620 2 L O O P - N O D E C L A R E
0026640 ) \0 . 001 002 \0 \0 Q 001 Q 002 c 002 277 021
0026660 001 \0 H 237 H d 004 l 005 360 263 024 d o \0 \0
0026700 \0 034 252 277 o \0 \0 \0 H \n \0 \0 277 H R \n
0026720 \0 \0 c 004 020 \0 ( 5 1 Q \ A P P E
0026740 N D 2 4 3 Q C L : E R R O R
0026760 ) \r N I L \r ( 3 7 Q " ~ S
0027000 B a d v a r l i s t t o n
0027020 o d e c l a r e l o o p c l
0027040 a u s e " 3 0 Q ( N I L ) )
0027060 \r L O O P - D O - F I N A L L Y
0027100 D 1 \r ( F 0 L O O P - E P
0027120 I L O G U E ) \0 \t \0 001 \0 \0 \b \0
0027140 \0 P 032 c \0 020 \0 ( 2 L O O P - G
0027160 E T - F O R M ) \r N I L \r ( ) \r
0027200 L O O P - D O - D O D 1 \r N I
0027220 L \0 \b \0 \0 \0 \0 \b \0 \0 \t \0 \0 020 \0
0027240 ( 5 L O O P - E M I T - B O D
0027260 Y 2 L O O P - G E T - F O R
0027300 M ) \r N I L \r ( ) \r L O O P - D
0027320 O - R E T U R N D 1 \r N I L
0027340 \0 \v \0 \0 \0 \0 \b \0 \0 \t \0 \0 \t \0 \0 020
0027360 \0 ( 1 0 Q L O O P - P S E U D
0027400 O - B O D Y 5 L O O P - C O
0027420 N S T R U C T - R E T U R N 2
0027440 L O O P - G E T - F O R M ) \r
0027460 N I L \r ( ) \r L O O P - D O - C
0027500 O L L E C T D 1 \r ( P 1 4 Q
0027520 Q P 1 3 Q A 1 5 9 4 P
0027540 1 2 Q A R G L I S T P 1
0027560 1 Q F O R M S P 1 0 Q A
0027600 1 5 9 2 P 7 R V A R P
0027620 6 C R U F T P 5 D T Y P
0027640 E P 4 T A I L P 3 T
0027660 E M P 2 F O R M P 1
0027700 V A R P 0 C T Y P E I
0027720 0 T Y P E F 1 5 Q L O O
0027740 P - S O U R C E - C O D E F
0027760 1 6 Q L O O P - C O L L E C T
0030000 - C R U F T F 1 7 Q L O O
0030020 P - A F T E R - E P I L O G U E
0030040 F 2 0 Q L O O P - C O L L
0030060 E C T I O N - C R O C K S ) 003
0030100 020 \r 004 \0 001 @ g \0 \0 360 247 @ d g \0 \0
0030120 360 225 277 g \0 \0 260 1 g \0 \0 360 255 @ g \0
0030140 \0 360 247 @ d g \0 \0 360 225 277 g \0 \0 260 031
0030160 g \0 \0 360 245 @ g \0 \0 360 223 g \0 \0 207 o
0030200 \0 \0 \0 @ \n \0 \0 021 q \a \b \0 \0 272 \b \0
0030220 \0 ] W 032 001 g \0 \0 \n \0 \0 237 W 032 002 c
0030240 032 001 W 032 002 c 032 277 Y _ 016 200 I W 034 \n
0030260 \0 \0 ^ 262 i H N 002 ^ 001 360 256 o \0 \0 \0
0030300 H N 001 h 032 032 \n \0 \0 277 202 M 265 : N 002
0030320 ^ 001 275 N 002 ^ 001 271 N 002 ^ 001 274 N 002 001
0030340 273 H g \0 \0 360 242 261 \0 313 J \t \0 \0 222 261
0030360 \0 303 K 222 261 \0 276 N 002 \b \0 \0 h M \v \0
0030400 \0 [ 030 261 \0 256 N 002 001 360 263 304 o \0 \0 \0
0030420 M N 002 001 N 001 \f \0 \0 277 260 264 M 263 % @
0030440 d g \0 \0 360 225 277 g \0 \0 260 027 g \0 \0 360
0030460 254 @ g \0 \0 360 246 @ g \0 \0 360 264 005 g \0
0030500 \0 275 I 254 \b \0 \0 Y \t \0 \0 W 036 032 c 036
0030520 277 H d g \0 \0 360 250 277 I h M \v \0 \0 277
0030540 H g \0 \0 360 262 030 \b \0 \0 h d \v \0 \0 273
0030560 \b \0 \0 I W 032 032 c 001 260 " H g \0
0030600 \0 360 264 033 J \t \0 \0 250 \b \0 \0 h M \v \0
0030620 \0 273 \b \0 \0 o \0 \0 \0 h \v \0 \0 274 O 016
0030640 H M I L K h 032 032 032 032 032 032 W 034 032 c
0030660 034 277 @ 021 001 \b O 020 d g \0 \0 360 262 4 277
0030700 g \0 \0 I g \0 \0 M \n \0 \0 I h 032 032 h
0030720 032 032 032 273 J i 360 250 J o \0 \0 \0 \n \0 \0
0030740 223 K 261 001 m g \0 \0 J K h 032 032 032 261 001
0030760 a g \0 \0 360 262 032 g \0 \0 I g \0 \0 M \n
0031000 \0 \0 J I h 032 032 032 h 032 032 032 261 001 C O
0031020 020 g \0 \0 360 251 O 020 g \0 \0 360 242 261 \0 220
0031040 021 \n K 237 g \0 \0 K J h 032 032 032 h 032
0031060 _ 022 277 K 272 I J h 032 032 _ 024 277 M o \0
0031100 \0 \0 \n \0 \0 262 + g \0 \0 g \0 \0 L @ g
0031120 \0 \0 360 223 g \0 \0 202 g \0 \0 M \n \0 \0 O
0031140 024 032 h 032 032 032 g \0 \0 L h O 024 032 260 !
0031160 g \0 \0 I g \0 \0 L g \0 \0 L o \0 \0 \0
0031200 032 032 J h 032 032 032 @ O 024 032 h 032 h 032 032
0031220 032 h 032 032 032 O 022 032 _ 022 d 002 232 277 g \0
0031240 \0 O 022 \t \0 \0 032 200 001 022 261 \0 245 @ 021 001
0031260 \v O 026 d g \0 \0 360 230 277 g \0 \0 J h 032
0031300 260 035 g \0 \0 360 262 031 J \t \0 \0 246 J 001 g
0031320 \0 \0 360 252 g \0 \0 J o \0 \0 \0 032 032 272 023
0031340 g \0 \0 L g \0 \0 g \0 \0 L K h 032 032 032
0031360 h 032 032 h 032 032 g \0 \0 I K h 032 032 032 h
0031400 032 h 032 032 032 021 001 \f J \t \0 \0 263 " J 001
0031420 g \0 \0 360 262 032 J 002 262 026 g \0 \0 K J L
0031440 J 002 002 O 030 \n \0 \0 h 032 032 032 260 g \0
0031460 \0 g \0 \0 K J h 032 032 032 g \0 \0 L g \0
0031500 \0 O 030 h 032 032 h 032 032 032 h 032 032 032 022 022
0031520 \t \0 \0 020 \0 ( 1 4 1 5 Q L O O P
0031540 - E M I T - B O D Y 1 3 4 2 Q
0031560 L O O P - C D R I F Y 1 3 0
0031600 6 Q C L : A T O M 1 2 0 6 Q
0031620 C L : A T O M 1 1 4 0 Q C
0031640 L : N R E V E R S E 1 0 3 1 Q
0031660 L O O P - T Y P E D - A R I T
0031700 H 7 7 7 Q L O O P - T M E M
0031720 B E R 6 7 4 Q L O O P - T Y
0031740 P E D - A R I T H 6 3 2 Q C
0031760 L : E Q U A L 6 0 5 Q L O O
0032000 P - T Y P E D - A R I T H 5 2
0032020 7 Q L O O P - M A K E - V A R
0032040 I A B L E 5 1 7 Q G E N S Y
0032060 M 5 1 3 Q L O O P - M A K E
0032100 - V A R I A B L E 5 0 6 Q G
0032120 E N S Y M 5 0 2 Q C L : A T
0032140 O M 4 5 5 Q G E N S Y M 4
0032160 5 1 Q L O O P - M A K E - V A
0032200 R I A B L E 4 4 4 Q G E N S
0032220 Y M 4 3 1 Q L O O P - M A K
0032240 E - I T E R A T I O N - V A R I
0032260 A B L E 4 0 5 Q L O O P - C
0032300 O N S T R U C T - R E T U R N
0032320 4 0 1 Q G E N S Y M 3 2 3 Q
0032340 C L : E R R O R 2 7 3 Q L
0032360 O O P - M A K E - V A R I A B L
0032400 E 2 6 6 Q G E N S Y M 2 5
0032420 0 Q C L : A T O M 2 0 3 Q
0032440 C L : E R R O R 1 5 4 Q S Y
0032460 S T E M : : A S S Q 1 2 5 Q
0032500 L O O P - T E Q U A L 1 1 3 Q
0032520 L O O P - O P T I O N A L - T
0032540 Y P E 1 0 7 Q L O O P - G E
0032560 T - F O R M 1 0 1 Q C L : E
0032600 R R O R ) \r ( 1 3 7 3 Q L A S
0032620 T 1 3 6 7 Q C L : S E T Q
0032640 1 3 5 6 Q C L : S E T Q 1 3
0032660 5 3 Q A N D 1 3 2 7 Q C L
0032700 : S E T Q 1 3 1 5 Q L I S T
0032720 1 2 6 3 Q C L : S E T Q 1
0032740 2 4 4 Q R P L A C D 1 2 4 1
0032760 Q C D R 1 2 3 5 Q C O N D
0033000 1 2 2 1 Q A P P E N D 1 2
0033020 1 4 Q L I S T 1 1 7 7 Q A
0033040 P P E N D 1 1 6 7 Q L I S T
0033060 1 1 6 1 Q L I S T 1 1 3 3
0033100 Q P R O G N 1 0 6 5 Q C L
0033120 : S E T Q 1 0 6 1 Q C O N D
0033140 1 0 5 5 Q C L : S E T Q 1
0033160 0 4 3 Q C L : S E T Q 1 0 2
0033200 5 Q G R E A T E R P 1 0 2 1
0033220 Q L E S S P 1 0 1 4 Q M A
0033240 X 1 0 0 7 Q O R 1 0 0 4 Q
0033260 A N D 7 4 2 Q C L : S E T
0033300 Q 7 2 5 Q M I N 7 1 6 Q
0033320 M A X 6 7 0 Q P L U S 6 6
0033340 4 Q C L : S E T Q 6 5 6 Q
0033360 C L : S U M 6 4 2 Q A N D
0033400 6 0 1 Q A D D 1 5 7 5 Q C
0033420 L : S E T Q 5 6 6 Q C L : C
0033440 O U N T 4 7 3 Q M A X M I N
0033460 4 3 6 Q L I S T 4 2 0 Q
0033500 L I S T 3 7 3 Q N U M B E R
0033520 3 6 5 Q C L : S U M 3 5 7
0033540 Q M A X 3 5 1 Q M I N 3
0033560 4 4 Q F I X N U M 3 3 6 Q
0033600 C L : C O U N T 2 3 7 Q M A
0033620 X M I N 1 2 2 Q I N T O 7
0033640 0 Q C L : S U M 6 3 Q C L
0033660 : S U M 5 5 Q C L : C O U N
0033700 T 5 0 Q L I S T 4 2 Q A
0033720 P P E N D 3 3 Q L I S T 2
0033740 5 Q N C O N C 2 0 Q M A X
0033760 M I N 1 2 Q M I N 3 M A
0034000 X ) \r ( 1 2 2 6 Q ( N I L )
0034020 1 0 7 2 Q ( N I L ) 7 7 4
0034040 Q ( F I X N U M F L O N U M
0034060 ) 6 2 7 Q ( Q U O T E T )
0034100 5 2 3 Q ( Q U O T E T )
0034120 3 1 2 Q " ~ A a n d ~ A
0034140 U n e q u a l d a t a t y p
0034160 e s i n t o ~ A " \r 1 7 2
0034200 Q " ~ S i n c o m p a t i b
0034220 l e L O O P c o l l e c t i
0034240 o n t y p e s " 7 5 Q " ~
0034260 S u n r e c o g n i z e d L
0034300 O O P c o l l e c t i n g k
0034320 e y w o r d " ) \r L O O P - C D
0034340 R I F Y D 1 \r ( P 0 S I Z
0034360 E I 1 F O R M I 0 A
0034400 R G L I S T ) \0 K 001 \0 \0 002 @ \t
0034420 \0 \0 021 001 \0 l 004 H 363 262 . H j 360 250 H
0034440 d 005 003 226 \t \0 \0 221 A 020 H k \n \0 \0 223
0034460 g \0 \0 215 H l 002 \n \0 \0 223 g \0 \0 202 g
0034500 \0 \0 A h 032 032 020 g \0 \0 A h 032 032 b 002
0034520 277 H l 004 325 270 260 277 \0 ( 5 3 Q % %
0034540 = 4 0 Q % % = 3 0 Q \ F
0034560 Z E R O P 3 C L : L E N G T
0034600 H ) \r ( 7 3 Q C D D D D R 6
0034620 3 Q C D D D R 5 7 Q C D D
0034640 R 4 4 Q C D R ) \r ( ) \r L O
0034660 O P - D O - W H I L E D 1 \r (
0034700 P 0 F O R M I 1 K W D
0034720 I 0 C O N D F 1 L O
0034740 O P - C O N D I T I O N A L S )
0034760 \0 " 001 001 \0 002 \b \0 \0 021 001 \0 Q 234 o
0035000 \0 \0 \0 A H h 032 032 \n \0 \0 277 @ H o \0
0035020 \0 \0 032 032 \t \0 \0 020 \0 ( 3 7 Q L O
0035040 O P - P S E U D O - B O D Y 2
0035060 3 Q C L : E R R O R 2 L O
0035100 O P - G E T - F O R M ) \r N I L
0035120 \r ( 3 2 Q ( ( G O E N D -
0035140 L O O P ) ) 1 3 Q " ~ S n
0035160 o t a l l o w e d i n s i d
0035200 e L O O P c o n d i t i o n
0035220 a l " ) \r L O O P - D O - W H E
0035240 N D 1 \r ( P 1 C O N D P
0035260 0 F O R M I 0 N E G A
0035300 T E ? F 2 L O O P - S O U
0035320 R C E - C O D E F 3 L O O
0035340 P - C O N D I T I O N A L S F
0035360 4 L O O P - W H E N - I T -
0035400 V A R I A B L E ) \0 H 002 003 \0 001
0035420 \b \0 \0 021 021 001 R 002 001 g \0 \0 \n \0 \0 262
0035440 032 g \0 \0 \b \0 \0 H h 032 032 032 271 R 001 T
0035460 R 002 002 032 032 c 004 277 201 H 271 @ 227 g \0 \0
0035500 I h 032 032 271 S g \0 \0 I h 032 h 032 032 h
0035520 032 \n \0 \0 c 006 020 \0 ( 1 0 3 Q \ N
0035540 C O N C 2 2 6 Q L O O P - W
0035560 H E N - I T - V A R I A B L E
0035600 1 6 Q L O O P - T E Q U A L
0035620 2 L O O P - G E T - F O R M )
0035640 \r ( 7 0 Q C O N D 5 7 Q N
0035660 O T 2 3 Q C L : S E T Q 1
0035700 3 Q I T ) \r ( ) \r L O O P - D
0035720 O - W I T H D 1 \r ( P 3 D
0035740 T Y P E P 2 V A L P 1
0035760 E Q U A L S P 0 V A R
0036000 F 4 L O O P - S O U R C E -
0036020 C O D E F 5 L O O P - K E
0036040 Y W O R D - A L I S T F 6
0036060 L O O P - I T E R A T I O N - K
0036100 E Y W O R D - A L I S T ) \0 231
0036120 004 003 \0 \0 021 @ 003 T 001 T 002 c \b 277 270 T
0036140 001 Y g \0 \0 \n \0 \0 234 T 002 c \b 277 \b \0
0036160 \0 272 h [ 260 [ I g \0 \0 \n \0 \0 253 I U
0036200 \n \0 \0 245 I V \n \0 \0 224 h Z [ 260 B T
0036220 001 T 002 c \b 277 273 T 001 Y g \0 \0 \n \0 \0
0036240 231 T 002 c \b 277 \b \0 \0 260 % T 264 " I U
0036260 \n \0 \0 263 032 I V \n \0 \0 263 023 I g \0 \0
0036300 \n \0 \0 250 o \0 \0 \0 I \n \0 \0 201 h Z 277
0036320 H J K \v \0 \0 277 T 001 g \0 \0 \n \0 \0 226
0036340 T 002 c \b 261 377 t 023 \b \0 \0 020 \0 ( 2 2
0036360 6 Q L O O P - B I N D - B L O
0036400 C K 2 1 2 Q L O O P - T E Q
0036420 U A L 2 0 1 Q L O O P - M A
0036440 K E - V A R I A B L E 1 6 7 Q
0036460 C L : E R R O R 1 5 6 Q L
0036500 O O P - T E Q U A L 1 4 5 Q
0036520 L O O P - T A S S O C 1 3 6 Q
0036540 L O O P - T A S S O C 1 2 4
0036560 Q L O O P - G E T - F O R M
0036600 1 1 3 Q L O O P - T E Q U A L
0036620 6 4 Q L O O P - T A S S O C
0036640 5 6 Q L O O P - T A S S O C
0036660 5 0 Q L O O P - T E Q U A L
0036700 3 4 Q L O O P - G E T - F O
0036720 R M 2 3 Q L O O P - T E Q U
0036740 A L ) \r ( 2 0 7 Q A N D 1 5
0036760 3 Q A N D 1 1 0 Q = 4 5
0037000 Q A N D 2 0 Q = ) \r ( 1
0037020 6 3 Q " ~ S G a r b a g e
0037040 w h e r e = e x p e c t e d
0037060 " ) \r L O O P - D O - A L W A Y
0037100 S D 1 \r ( P 0 F O R M I
0037120 0 P R E D F 1 L O O P
0037140 - A F T E R - E P I L O G U E )
0037160 \0 035 001 001 \0 001 \b \0 \0 021 001 \0 @ H h
0037200 \t \0 \0 h 032 032 032 \t \0 \0 i \t \0 \0 Q 032
0037220 c 002 020 \0 ( 2 6 Q L O O P - C O
0037240 N S T R U C T - R E T U R N 2
0037260 2 Q L O O P - E M I T - B O D
0037300 Y 1 3 Q L O O P - C O N S T
0037320 R U C T - R E T U R N 2 L O
0037340 O P - G E T - F O R M ) \r N I L
0037360 \r ( ) \r L O O P - D O - T H E R
0037400 E I S D 1 \r ( F 0 L O O P
0037420 - W H E N - I T - V A R I A B L
0037440 E ) \0 035 \0 001 \0 \0 g \0 \0 g \0 \0 \b
0037460 \0 \0 \b \0 \0 h 032 032 032 P \t \0 \0 h 032 032
0037500 032 \t \0 \0 020 \0 ( 3 2 Q L O O P -
0037520 E M I T - B O D Y 2 3 Q L O
0037540 O P - C O N S T R U C T - R E T
0037560 U R N 1 3 Q L O O P - G E T
0037600 - F O R M 1 0 Q L O O P - W
0037620 H E N - I T - V A R I A B L E )
0037640 \r ( 5 C L : S E T Q 2 A N
0037660 D ) \r ( ) \r L O O P - S I M P L
0037700 E P A 0 0 0 1 D 1 \r ( P 0
0037720 \ C A T C H . T A G . L O O P -
0037740 S I M P L E P F 2 E X P R
0037760 ) \0 024 002 001 \0 \0 f 021 021 001 R \t \0 \0
0040000 271 o \0 \0 \0 I 363 264 003 I 020 \0 ( 7 L
0040020 O O P - S I M P L E P - 1 ) \r N
0040040 I L \r ( 1 4 Q 2 0 . 0 ) \r L
0040060 O O P - S I M P L E P D 1 \r (
0040100 I 0 E X P R ) \0 \v \0 \0 \0 001
0040120 @ 241 j 020 j g \0 \0 016 020 \0 N I L \r (
0040140 7 L O O P - S I M P L E P A 0
0040160 0 0 1 ) \r ( ) \r ( D E F V A R
0040200 L O O P - S I M P L E P ( A P
0040220 P E N D ( Q U O T E ( > <
0040240 G R E A T E R P L E S S P
0040260 P L U S P M I N U S P T Y P
0040300 E P Z E R O P P L U S D I
0040320 F F E R E N C E + - \r A D
0040340 D 1 S U B 1 1 + 1 - + $
0040360 - $ 1 + $ 1 - $ B O O L
0040400 E R O T A S H L D B C L
0040420 : E Q U A L C L : A T O M C
0040440 L : S E T Q P R O G 1 P R O
0040460 G 2 A N D O R = ) ) ) ) \r
0040500 L O O P - S I M P L E P - 1 D
0040520 1 \r ( P 7 L P 6 T E M
0040540 P 5 F N P 4 F P
0040560 3 C L P 0 Z I 0 X
0040600 F 1 0 Q \ C A T C H . T A
0040620 G . L O O P - S I M P L E P F
0040640 1 1 Q L O O P - S I M P L E
0040660 P ) 001 320 \b 002 \0 001 j 021 ! 002 @ \t \0
0040700 \0 221 j 020 @ \t \0 \0 221 k 020 @ d 001 g \0
0040720 \0 360 262 ! 002 021 021 004 K 265 004 H 020 001 \ 265
0040740 \a K 002 [ 260 365 001 \t \0 \0 H k 324 324 270 L
0040760 002 260 355 001 004 l 004 360 242 261 001 206 @ 001 021 021
0041000 006 M g \0 \0 \n \0 \0 ^ 265 L M g \0 \0 360
0041020 222 261 001 S M g \0 \0 360 222 261 001 J M g \0
0041040 \0 360 222 261 001 A M g \0 \0 360 222 261 001 8 M
0041060 g \0 \0 360 222 261 001 / M d g \0 \0 360 222 261
0041100 001 $ g \0 \0 360 250 M d g \0 \0 360 262 034 277
0041120 k X 261 001 021 3 265 016 @ k N 017 016 270 h
0041140 b \0 261 001 003 X 261 \0 375 g \0 \0 360 263 026 M
0041160 g \0 \0 360 255 M g \0 \0 360 247 M d g \0 \0
0041200 360 226 277 l 002 X 261 \0 335 g \0 \0 360 263 2 M
0041220 g \0 \0 360 263 + M g \0 \0 360 263 $ M g \0
0041240 \0 360 263 035 M g \0 \0 360 263 026 M g \0 \0 360
0041260 255 M g \0 \0 360 247 M d g \0 \0 360 226 277 l
0041300 003 X 261 \0 241 g \0 \0 360 263 j M g \0 \0 360
0041320 263 c M g \0 \0 360 263 \ M g \0 \0 360 263 U
0041340 M g \0 \0 360 263 N M g \0 \0 360 263 G M g
0041360 \0 \0 360 263 @ M g \0 \0 360 263 9 M g \0 \0
0041400 360 263 2 M g \0 \0 360 263 + M g \0 \0 360 263
0041420 $ M g \0 \0 360 263 035 M g \0 \0 360 263 026 M
0041440 g \0 \0 360 255 M g \0 \0 360 247 M d g \0 \0
0041460 360 225 277 l 004 X 260 - 272 W 022 Y 003 265 \t h
0041500 237 l 002 X 260 037 001 J : 222 I 260 365 I 002 260
0041520 354 N \t \0 \0 270 h b \0 265 \f W 020 g \0 \0
0041540 \n \0 \0 277 @ 002 021 001 \a O 016 265 004 H 020 001
0041560 \t \0 \0 H k 324 324 270 O 016 002 _ 016 260 356 W
0041600 020 g \0 \0 \n \0 \0 020 \0 ( 7 1 5 Q \
0041620 T H R O W . A U X 6 7 1 Q L
0041640 O O P - S I M P L E P - 1 6 5
0041660 1 Q \ T H R O W . A U X 6 3
0041700 3 Q L O O P - S I M P L E P -
0041720 1 1 1 6 Q G E T 6 0 Q L
0041740 O O P - S I M P L E P - 1 1 6
0041760 Q C L : A T O M 7 L O O P
0042000 - C O N S T A N T P ) \r ( 7 1 2
0042020 Q L O O P - S I M P L E P 6
0042040 4 6 Q L O O P - S I M P L E P
0042060 5 6 6 Q C D D D D R 5 5 7
0042100 Q C D D D A R 5 5 1 Q C D
0042120 D A D R 5 4 2 Q C D D A A R
0042140 5 3 3 Q C D A D D R 5 2 4
0042160 Q C D A D A R 5 1 5 Q C D
0042200 A A D R 5 0 6 Q C D A A A R
0042220 4 7 7 Q C A D D D R 4 7 0
0042240 Q C A D D A R 4 6 1 Q C A
0042260 D A D R 4 5 2 Q C A D A A R
0042300 4 4 3 Q C A A D D R 4 3 4
0042320 Q C A A D A R 4 2 5 Q C A
0042340 A A D R 4 1 6 Q C A A A A R
0042360 4 0 2 Q C D D D R 3 7 3 Q
0042400 C D D A R 3 6 5 Q C D A D
0042420 R 3 5 6 Q C D A A R 3 4 7
0042440 Q C A D D R 3 4 0 Q C A D
0042460 A R 3 3 1 Q C A A D R 3 2
0042500 2 Q C A A A R 3 0 6 Q C D
0042520 D R 2 7 7 Q C D A R 2 7 1
0042540 Q C A D R 2 6 2 Q C A A R
0042560 2 2 2 Q C D R 2 1 3 Q C
0042600 A R 2 0 3 Q P R O G N 1 7
0042620 1 Q R E T U R N 1 6 0 Q G
0042640 O 1 4 7 Q E Q 1 3 6 Q N
0042660 O T 1 2 5 Q N U L L 1 1 3
0042700 Q L O O P - S I M P L E P 2
0042720 7 Q C O N D ) \r ( ) \r L O O P
0042740 - H A C K - I T E R A T I O N A
0042760 0 0 0 1 A 0 0 0 2 D 1 \r ( I
0043000 0 X ) \0 006 \0 \0 \0 001 @ \t \0 \0 020
0043020 \0 ( 3 \ A P P E N D 2 ) \r N I
0043040 L \r ( ) \r L O O P - H A C K - I
0043060 T E R A T I O N A 0 0 0 1 D 1
0043100 \r ( I 0 X ) \0 \r \0 \0 \0 001 @
0043120 001 g \0 \0 @ 002 \n \0 \0 032 020 \0 ( 1 1 Q
0043140 C L : M A P C A R ) \r ( 4 L
0043160 O O P - H A C K - I T E R A T I
0043200 O N A 0 0 0 1 A 0 0 0 2 ) \r ( )
0043220 \r L O O P - H A C K - I T E R A
0043240 T I O N D 1 \r ( P 2 1 Q L
0043260 O O P - C O N D I T I O N A L S
0043300 P 2 0 Q C R U F T P 1
0043320 7 Q C N T P 1 6 Q F N
0043340 P 1 5 Q B A R P 1 4 Q
0043360 F O O P 1 3 Q D A T A P
0043400 1 2 Q T E M P 1 1 Q P
0043420 R E - L O O P - P S E U D O - S
0043440 T E P S P 1 0 Q P R E - L
0043460 O O P - P O S T - S T E P - T E
0043500 S T S P 7 P R E - L O O P
0043520 - S T E P S P 6 P R E - L
0043540 O O P - P R E - S T E P - T E S
0043560 T S P 5 P S E U D O - S T
0043600 E P S P 4 P O S T - S T E
0043620 P - T E S T S P 3 S T E P
0043640 S P 2 P R E - S T E P - T
0043660 E S T S P 1 S O U R C E
0043700 P 0 L A S T - E N T R Y I
0043720 0 E N T R Y F 2 2 Q L
0043740 O O P - S O U R C E - C O D E
0043760 F 2 3 Q L O O P - C O N D I
0044000 T I O N A L S F 2 4 Q L O
0044020 O P - B E F O R E - L O O P F
0044040 2 5 Q L O O P - A F T E R -
0044060 B O D Y F 2 6 Q L O O P -
0044100 E M I T T E D - B O D Y ? F
0044120 2 7 Q L O O P - I T E R A T I
0044140 O N - K E Y W O R D - A L I S T
0044160 ) 001 242 022 006 \0 001 @ W $ 021 302 \r @ 002
0044200 001 j 021 002 017 @ 002 002 260 027 d 001 375 002 O 036
0044220 k 330 _ 036 l P 361 226 h l 4 \n \0 \0 277 003
0044240 265 352 O 036 O 034 016 022 _ 026 _ 024 001 225 O 024
0044260 001 J 032 272 K O 024 002 _ 024 001 \t \0 \0 \n \0
0044300 \0 273 O 024 002 _ 024 001 225 O 024 001 L 032 274 M
0044320 O 024 002 _ 024 001 \t \0 \0 \n \0 \0 275 O 024 002
0044340 _ 024 277 W & 243 W , 262 1 O 024 246 J 244 L
0044360 242 M 262 ' @ 001 I 001 I 002 001 I 002 002 001 h
0044400 032 032 032 032 021 001 020 W , 224 o \0 \0 \0 203 o
0044420 \0 \0 \0 O \n \0 \0 023 O 024 265 006 O 026 _
0044440 024 001 225 O 024 001 N 032 276 O 016 O 024 002 _ 024
0044460 001 \t \0 \0 \n \0 \0 _ 016 277 O 024 002 _ 024 001
0044500 230 O 024 001 O 020 032 _ 020 277 O 022 O 024 002 001
0044520 \t \0 \0 \n \0 \0 _ 022 277 W $ 001 g \0 \0 \n
0044540 \0 \0 262 025 W & 242 261 \0 220 W $ 002 001 W .
0044560 \n \0 \0 222 261 \0 203 N \t \0 \0 O 016 \t \0 \0
0044600 O 020 \t \0 \0 O 022 \t \0 \0 h 032 032 032 032 _
0044620 030 277 J \t \0 \0 K \t \0 \0 L \t \0 \0 M \t
0044640 \0 \0 h 032 032 032 032 _ 032 277 W & 263 025 O 030
0044660 W ( \n \0 \0 c ( 277 O 032 W * \n \0 \0 260
0044700 0 g \0 \0 W & \n \0 \0 021 001 021 g \0 \0 h
0044720 O 030 \n \0 \0 032 \t \0 \0 W ( 032 c ( 023 g
0044740 \0 \0 h O 032 \n \0 \0 032 \t \0 \0 W * 032 c
0044760 * 277 \b \0 \0 h 020 W $ 002 c $ 001 W . \n
0045000 \0 \0 _ 024 231 W $ 002 c $ 277 O 024 X 200 H
0045020 b \0 277 W $ 271 261 376 h \0 ( 6 1 1 Q
0045040 L O O P - T A S S O C 5 7 4 Q
0045060 L O O P - B I N D - B L O C K
0045100 5 6 3 Q L O O P - M A K E -
0045120 C O N D I T I O N A L I Z A T I
0045140 O N 5 5 7 Q S Y S T E M : :
0045160 D E L Q 5 4 0 Q L O O P - M
0045200 A K E - C O N D I T I O N A L I
0045220 Z A T I O N 5 3 4 Q S Y S T
0045240 E M : : D E L Q 5 2 0 Q C L
0045260 : M A P C A R 5 0 6 Q N R E
0045300 C O N C 4 7 4 Q N R E C O N
0045320 C 4 5 1 Q L O O P - M A K E
0045340 - S E T Q 4 4 5 Q L O O P -
0045360 E N D - T E S T I F Y 4 4 1 Q
0045400 L O O P - M A K E - P S E T Q
0045420 4 3 5 Q L O O P - E N D - T
0045440 E S T I F Y 4 2 1 Q L O O P
0045460 - M A K E - S E T Q 4 1 4 Q
0045500 L O O P - E N D - T E S T I F Y
0045520 4 0 7 Q L O O P - M A K E -
0045540 P S E T Q 4 0 2 Q L O O P -
0045560 E N D - T E S T I F Y 3 7 2 Q
0045600 L O O P - T A S S O C 3 5 1
0045620 Q L O O P - T E Q U A L 3 3
0045640 5 Q \ N C O N C 2 3 3 2 Q
0045660 \ A P P E N D 2 2 7 6 Q \ N
0045700 C O N C 2 2 7 3 Q \ A P P E
0045720 N D 2 2 3 7 Q C L : E R R O
0045740 R 1 4 3 Q \ N C O N C 2 1
0045760 4 0 Q \ A P P E N D 2 1 1 0
0046000 Q \ N C O N C 2 1 0 5 Q \
0046020 A P P E N D 2 4 5 Q \ L I S
0046040 P E R R O R ) \r ( 5 5 1 Q P R
0046060 O G N 5 2 6 Q P R O G N 5
0046100 1 3 Q L O O P - H A C K - I T
0046120 E R A T I O N A 0 0 0 1 3 4 6
0046140 Q A N D ) \r ( 2 3 2 Q " ~
0046160 S I t e r a t i o n s t a r
0046200 t i n g i n s i d e o f c
0046220 o n d i t i o n a l i n L O
0046240 O P " 2 2 5 Q " ~ S I t e
0046260 r a t i o n i s n o t a l
0046300 l o w e d t o f o l l o w
0046320 b o d y c o d e " ) \r L O O P
0046340 - D O - F O R D 1 \r ( P 6
0046360 C N T P 5 F N P 4 T
0046400 E M P 3 F I R S T - A R G
0046420 P 2 K E Y W O R D P 1
0046440 D A T A - T Y P E ? P 0
0046460 V A R F 7 L O O P - S O U
0046500 R C E - C O D E F 1 0 Q L
0046520 O O P - F O R - K E Y W O R D -
0046540 A L I S T ) \0 ` \a 002 \0 \0 W 016 001
0046560 W 016 002 c 016 277 \b \0 \0 W 016 001 W 016 002 c
0046600 016 277 \b \0 \0 021 024 004 J W 020 \n \0 \0 \ 265
0046620 024 o \0 \0 \0 g \0 \0 H J h 032 032 032 \n \0
0046640 \0 277 L 002 001 l 003 021 002 006 H K I L 002 002
0046660 260 025 d 001 375 002 N k 330 ^ l P 361 226 h l
0046700 4 \n \0 \0 277 003 265 354 N M 016 020 \0 ( 1 2
0046720 6 Q \ L I S P E R R O R 6 3
0046740 Q C L : E R R O R 4 0 Q L
0046760 O O P - T A S S O C 2 7 Q L
0047000 O O P - G E T - F O R M 1 3 Q
0047020 L O O P - O P T I O N A L - T
0047040 Y P E ) \r ( 5 2 Q F O R ) \r (
0047060 4 7 Q " ~ S U n k n o w n
0047100 k e y w o r d i n F O R
0047120 o r A S c l a u s e i n
0047140 L O O P " ) \r L O O P - D O - R
0047160 E P E A T D 1 \r ( P 0 V A
0047200 R ) \0 < 001 \0 \0 \0 \b \0 \0 \b \0 \0 g
0047220 \0 \0 \v \0 \0 021 001 \0 g \0 \0 g \0 \0 g \0
0047240 \0 \n \0 \0 H h 032 032 h 032 032 h d H g \0
0047260 \0 g \0 \0 \n \0 \0 H h 032 032 h 032 032 h 032
0047300 032 032 032 020 \0 ( 5 5 Q L O O P - T
0047320 Y P E D - A R I T H 3 2 Q L
0047340 O O P - T Y P E D - A R I T H
0047360 1 3 Q L O O P - M A K E - V A
0047400 R I A B L E 5 L O O P - G E
0047420 T - F O R M 2 G E N S Y M )
0047440 \r ( 5 2 Q F I X N U M 4 7 Q
0047460 S U B 1 2 7 Q F I X N U M
0047500 2 4 Q P L U S P 2 1 Q N
0047520 O T 1 0 Q F I X N U M ) \r (
0047540 ) \r L O O P - W H E N - I T - V
0047560 A R I A B L E D 1 \r ( F 0
0047600 L O O P - W H E N - I T - V A R
0047620 I A B L E ) \0 017 \0 001 \0 \0 P 265 \f
0047640 \b \0 \0 h d \v \0 \0 c \0 020 \0 ( 1 2 Q
0047660 L O O P - M A K E - V A R I A
0047700 B L E 5 G E N S Y M ) \r N I
0047720 L \r ( ) \r L O O P - F O R - E Q
0047740 U A L S D 1 \r ( P 0 V A R
0047760 V A L I 2 D A T A - T Y P
0050000 E ? I 1 V A L I 0 V
0050020 A R F 1 L O O P - S O U R
0050040 C E - C O D E F 2 L O O P
0050060 - E M I T T E D - B O D Y ? )
0050100 \0 I 001 002 \0 003 Q 001 g \0 \0 \n \0 \0 262 033
0050120 Q 002 c 002 @ A B \v \0 \0 h @ \b \0 \0 h
0050140 032 032 o \0 \0 \0 032 032 020 @ h B \v \0 \0 @
0050160 A h 032 032 021 001 \0 R 264 016 H \t \0 \0 \t \0
0050200 \0 o \0 \0 \0 020 H o \0 \0 \0 032 032 020 \0 (
0050220 7 2 Q L O O P - E M I T - B O
0050240 D Y 6 7 Q L O O P - M A K E
0050260 - S E T Q 5 0 Q L O O P - M
0050300 A K E - I T E R A T I O N - V A
0050320 R I A B L E 3 0 Q L O O P -
0050340 G E T - F O R M 2 3 Q L O O
0050360 P - M A K E - I T E R A T I O N
0050400 - V A R I A B L E 7 L O O P
0050420 - T E Q U A L ) \r ( 4 T H E N
0050440 ) \r ( 1 0 4 Q ( N I L N I
0050460 L ) 7 6 Q ( N I L N I L
0050500 N I L N I L ) 3 7 Q ( N I
0050520 L N I L N I L N I L N I
0050540 L N I L ) ) \r L O O P - F O R
0050560 - F I R S T D 1 \r ( I 2 D
0050600 A T A - T Y P E ? I 1 V A
0050620 L I 0 V A R F 0 L O
0050640 O P - S O U R C E - C O D E )
0050660 \0 9 \0 001 \0 003 P 001 g \0 \0 \n \0 \0 251 o
0050700 \0 \0 \0 P 001 \n \0 \0 277 P 002 c \0 @ h B
0050720 \v \0 \0 h @ \b \0 \0 h 032 032 h d d @ A
0050740 h 032 032 o \0 \0 \0 032 032 032 032 032 032 020 \0 (
0050760 4 1 Q L O O P - G E T - F O R
0051000 M 3 4 Q L O O P - M A K E -
0051020 I T E R A T I O N - V A R I A B
0051040 L E 2 1 Q C L : E R R O R
0051060 7 L O O P - T E Q U A L ) \r (
0051100 4 T H E N ) \r ( 6 0 Q ( N
0051120 I L N I L ) 1 4 Q " ~ S
0051140 f o u n d w h e r e T H E N
0051160 e x p e c t e d i n F O R
0051200 . . . F I R S T " ) \r L O O
0051220 P - L I S T - S T E P P E R D
0051240 1 \r ( P 5 P S E U D O P
0051260 4 E T P 3 S T E P P
0051300 2 S T E P V A R P 1 V A
0051320 R 1 P 0 S T E P P E R I
0051340 3 F N I 2 D A T A - T
0051360 Y P E ? I 1 V A L I 0
0051400 V A R F 6 L O O P - S O
0051420 U R C E - C O D E ) \0 324 006 001 \0
0051440 004 V 001 g \0 \0 \n \0 \0 230 V 002 c \f 277 \b
0051460 \0 \0 203 o \0 \0 \0 021 Q 005 H \t \0 \0 263 026
0051500 H 001 d g \0 \0 360 245 d g \0 \0 360 222 277 i
0051520 201 277 h 252 g \0 \0 \b \0 \0 Z h 032 032 204 H
0051540 002 001 h 032 [ @ \t \0 \0 232 C 250 @ A B \v
0051560 \0 \0 271 260 033 @ h B \v \0 \0 277 \b \0 \0 A
0051600 h \v \0 \0 271 @ C 265 : I h 032 032 275 K \t
0051620 \0 \0 I & J 226 J H h \v \0 \0 277 I K h
0051640 032 032 270 g \0 \0 I h 032 032 \ M 263 033 h H
0051660 L h d d L o \0 \0 \0 032 032 032 032 032 032 032
0051700 020 I h 032 032 260 305 K 001 g \0 \0 360 231 L M
0051720 h H h 032 032 032 032 020 g \0 \0 g \0 \0 H 032
0051740 h 032 032 h d M L h d M h 032 032 032 032 032
0051760 032 032 032 020 \0 ( 1 7 2 Q L O O P -
0052000 M A K E - V A R I A B L E 1 6
0052020 0 Q L A S T 1 4 2 Q L O O
0052040 P - M A K E - V A R I A B L E
0052060 1 3 5 Q G E N S Y M 1 3 1 Q
0052100 L O O P - M A K E - I T E R A
0052120 T I O N - V A R I A B L E 1 2
0052140 0 Q L O O P - M A K E - I T E
0052160 R A T I O N - V A R I A B L E
0052200 1 0 7 Q C L : A T O M 7 0 Q
0052220 G E N S Y M 3 4 Q C L : A
0052240 T O M 2 0 Q L O O P - G E T
0052260 - F O R M 7 L O O P - T E Q
0052300 U A L ) \r ( 2 7 4 Q C L : S E
0052320 T Q 2 7 1 Q N U L L 2 5 2
0052340 Q C D R 2 0 4 Q N U L L
0052360 6 5 Q F U N C A L L 5 2 Q
0052400 F U N C T I O N 4 4 Q Q U O
0052420 T E 4 B Y ) \r ( 2 2 7 Q
0052440 ( N I L ) 2 5 Q ( F U N C T
0052460 I O N C D R ) ) \r L O O P - F
0052500 O R - A R I T H M E T I C D 1
0052520 \r ( I 3 K W D I 2 D A
0052540 T A - T Y P E ? I 1 V A L
0052560 I 0 V A R ) \0 , \0 \0 \0 004
0052600 @ B 265 005 g \0 \0 h d d d d d g \0 \0
0052620 @ C A h 032 032 032 032 C A h 032 032 o \0 \0
0052640 \0 h \n \0 \0 032 \r \n \0 \0 020 \0 ( 5 1 Q
0052660 L O O P - S E Q U E N C E R
0052700 4 4 Q L O O P - G A T H E R -
0052720 P R E P S ) \r ( 1 7 Q F O R
0052740 6 F I X N U M ) \r ( 4 0 Q
0052760 ( F R O M U P F R O M D O W
0053000 N F R O M T O U P T O D O
0053020 W N T O A B O V E B E L O W
0053040 B Y ) ) \r L O O P - N A M E D
0053060 - V A R I A B L E D 1 \r ( P
0053100 0 T E M I 0 N A M E F
0053120 1 L O O P - N A M E D - V A
0053140 R I A B L E S ) \0 031 001 001 \0 001 @
0053160 Q \n \0 \0 021 001 \0 H 265 006 \b \0 \0 020 Q \n
0053200 \0 \0 c 002 H 002 020 \0 ( 2 2 Q S Y S
0053220 T E M : : D E L Q 1 5 Q G E
0053240 N S Y M 4 L O O P - T A S S
0053260 O C ) \r N I L \r ( ) \r L O O P -
0053300 F O R - B E I N G D 1 \r ( P
0053320 7 X P 6 L P 4 A T
0053340 T A C H M E N T P 3 E A C
0053360 H ? P 2 I P P S P 1
0053400 I N C L U S I V E ? P 0 T
0053420 E M I 2 D A T A - T Y P E
0053440 ? I 1 V A L I 0 V A
0053460 R F 1 0 Q L O O P - S O U
0053500 R C E - C O D E F 1 1 Q L
0053520 O O P - P A T H - K E Y W O R D
0053540 - A L I S T F 1 2 Q L O O
0053560 P - N A M E D - V A R I A B L E
0053600 S F 1 3 Q L O O P - P R O
0053620 L O G U E ) 001 A \b 004 \0 003 021 ` 005
0053640 A g \0 \0 \n \0 \0 247 A g \0 \0 \n \0 \0 227
0053660 i 273 W 020 001 b 002 207 A W 020 032 c 020 277 A
0053700 W 022 \n \0 \0 X 262 023 K 222 261 \0 205 W 020 002
0053720 001 g \0 \0 \n \0 \0 262 x \b \0 \0 b 002 277 W
0053740 020 001 g \0 \0 \n \0 \0 262 Q K 230 o \0 \0 \0
0053760 @ \n \0 \0 277 g \0 \0 A h 032 032 h 032 272 i
0054000 271 W 020 002 c 020 001 W 020 002 c 020 277 X o \0
0054020 \0 \0 \n \0 \0 250 o \0 \0 \0 H \n \0 \0 277 W
0054040 020 001 W 022 \n \0 \0 X 263 ' g \0 \0 \b \0 \0
0054060 h 032 032 \ J 032 272 260 036 W 020 001 W 022 \n \0
0054100 \0 X 253 g \0 \0 A h 032 032 \ h 032 272 205 W
0054120 020 002 c 020 277 H 265 031 g \0 \0 W 022 \n \0 \0
0054140 X 265 016 o \0 \0 \0 L 002 001 \n \0 \0 277 H 002
0054160 001 275 H 001 @ B J H 002 002 001 i \n \0 \0 \n
0054200 \0 \0 I H 002 002 001 H 002 002 002 l \a M 017 016
0054220 X W 024 264 \r o \0 \0 \0 W 024 \n \0 \0 277 h
0054240 c 024 H 001 021 021 \a N 265 024 023 H 002 001 \t \0
0054260 \0 W 026 \n \0 \0 c 026 H 002 002 020 001 _ 016 \t
0054300 \0 \0 224 O 016 h d 213 O 016 001 O 016 002 001 O
0054320 016 002 002 001 \v \0 \0 277 N 002 ^ 260 315 \0 ( 4
0054340 7 1 Q L O O P - M A K E - I T
0054360 E R A T I O N - V A R I A B L E
0054400 4 4 4 Q C L : A T O M 4 3
0054420 0 Q \ N C O N C 2 4 2 3 Q
0054440 C L : R E V E R S E 4 0 0 Q
0054460 C L : E R R O R 3 4 4 Q N R
0054500 E C O N C 3 4 1 Q L O O P -
0054520 G A T H E R - P R E P S 3 1 7
0054540 Q C L : E R R O R 3 0 2 Q
0054560 L O O P - T A S S O C 2 4 3 Q
0054600 L O O P - T A S S O C 2 2 2
0054620 Q L O O P - G E T - F O R M
0054640 2 1 1 Q L O O P - T A S S O C
0054660 2 0 0 Q C L : E R R O R 1
0054700 6 7 Q L O O P - T M E M B E R
0054720 1 2 6 Q C L : E R R O R 1
0054740 1 2 Q L O O P - T E Q U A L
0054760 7 6 Q L O O P - G E T - F O R
0055000 M 7 1 Q L O O P - T E Q U A
0055020 L 4 7 Q L O O P - T A S S O
0055040 C 2 1 Q L O O P - T E Q U A
0055060 L 1 1 Q L O O P - T E Q U A
0055100 L ) \r ( 2 7 5 Q D E F A U L T
0055120 - L O O P - P A T H 2 5 0 Q
0055140 I N 2 1 7 Q I N 1 3 2 Q
0055160 O F 1 0 7 Q A N D 6 6 Q
0055200 A N D 1 6 Q T H E 6 E A
0055220 C H ) \r ( 3 7 3 Q " ~ S u
0055240 n u s e d U S I N G v a r i
0055260 a b l e s " 3 1 1 Q " ~ S
0055300 U n d e f i n e d L O O P i
0055320 t e r a t i o n p a t h " 1
0055340 7 4 Q " ~ S f o u n d w h
0055360 e r e I T S o r E A C H
0055400 e x p e c t e d i n L O O P
0055420 p a t h " \r 1 6 4 Q ( I T
0055440 S H I S H E R T H E I R
0055460 E A C H ) 1 2 2 Q " ~ S M
0055500 a l f o r m e d B E I N G E
0055520 A C H c l a u s e i n L O
0055540 O P " ) \r L O O P - G A T H E R
0055560 - P R E P S D 1 \r ( P 3 T
0055600 E M P 2 Z P 1 P R E
0055620 P S P 0 T O K E N I 1
0055640 C R O C K P I 0 P R E P
0055660 S - A L L O W E D F 4 L O
0055700 O P - S O U R C E - C O D E F
0055720 5 L O O P - N A M E D - V A
0055740 R I A B L E S ) \0 261 004 002 \0 002 T
0055760 001 021 021 001 H @ \n \0 \0 262 025 T 001 T 002 c
0056000 \b 277 \b \0 \0 h 032 032 I 032 271 261 \0 211 H g
0056020 \0 \0 \n \0 \0 242 261 \0 204 T 002 c \b 277 A 257
0056040 o \0 \0 \0 g \0 \0 T 001 h 032 032 \n \0 \0 277
0056060 T 001 021 021 003 J \t \0 \0 263 Z J 002 \t \0 \0
0056100 263 035 J 002 002 263 030 J 001 004 l 004 360 236 J d
0056120 002 001 262 025 d 002 001 004 l 004 360 252 277 o \0 \0
0056140 \0 J \n \0 \0 277 J 002 001 262 " J 001 U \n \0
0056160 \0 [ 234 o \0 \0 \0 K J h 032 032 \n \0 \0 277
0056200 J 001 J 002 001 032 U 032 c \n 277 T 002 c \b 001
0056220 Z 260 245 023 T 001 X 261 377 ^ I \t \0 \0 020 \0
0056240 ( 2 5 6 Q C L : N R E V E R S
0056260 E 2 1 7 Q C L : E R R O R
0056300 2 0 1 Q L O O P - T A S S O C
0056320 1 6 5 Q C L : E R R O R 1
0056340 2 0 Q C L : A T O M 1 1 1 Q
0056360 C L : A T O M 7 7 Q C L :
0056400 E R R O R 4 5 Q L O O P - T
0056420 E Q U A L 2 5 Q L O O P - G
0056440 E T - F O R M 1 1 Q L O O P
0056460 - T M E M B E R ) \r ( 6 7 Q U
0056500 S I N G 4 2 Q U S I N G ) \r
0056520 ( 2 0 7 Q " ~ S D u p l i
0056540 c a t e d v a r s u b s t i
0056560 t i t i o n i n U S I N G
0056600 p h r a s e " 1 6 1 Q " ~ S
0056620 b a d v a r i a b l e p a
0056640 i r i n p a t h U S I N G
0056660 p h r a s e " \r 6 4 Q " ~
0056700 S U S I N G u s e d i n
0056720 i l l e g a l c o n t e x t "
0056740 ) \r L O O P - A D D - P A T H
0056760 D 1 \r ( I 1 D A T A I 0
0057000 N A M E F 0 L O O P - P
0057020 A T H - K E Y W O R D - A L I S
0057040 T ) \0 022 \0 001 \0 002 @ A 032 @ P \n \0
0057060 \0 P \n \0 \0 032 c \0 h 020 \0 ( 1 3 Q
0057100 S Y S T E M : : D E L Q 7 L
0057120 O O P - T A S S O C ) \r N I L \r
0057140 ( ) \r E X P A N D - L I S P : D
0057160 E F I N E - L O O P - P A T H 1
0057200 6 0 8 A 0 0 0 1 D 1 \r ( L (
0057220 0 N A M E ) F 0 C R U F
0057240 T ) \0 027 \0 001 \0 001 g \0 \0 g \0 \0 @
0057260 h 032 032 g \0 \0 P h 032 032 h 032 032 032 020 \0
0057300 N I L \r ( 1 4 Q Q U O T E 5
0057320 Q U O T E 2 L O O P - A D
0057340 D - P A T H ) \r ( ) \r E X P A N
0057360 D - L I S P : D E F I N E - L O
0057400 O P - P A T H 1 6 0 8 D 1 \r (
0057420 I 1 N A M E S I 0 C R
0057440 U F T ) \0 " 001 \0 \0 002 A \t \0 \0 223
0057460 A h 032 200 A b 002 g \0 \0 A \n \0 \0 021 001
0057500 \0 g \0 \0 o \0 \0 \0 H 032 032 020 \0 ( 2 2
0057520 Q C L : M A P C A R 3 C L
0057540 : A T O M ) \r ( 3 0 Q E V A L
0057560 - W H E N 1 6 Q E X P A N D
0057600 - L I S P : D E F I N E - L O O
0057620 P - P A T H 1 6 0 8 A 0 0 0 1 )
0057640 \r ( 3 4 Q ( E V A L L O A
0057660 D C L : C O M P I L E ) ) \r (
0057700 D E F M A C R O L I S P : D E
0057720 F I N E - L O O P - P A T H (
0057740 N A M E S & R E S T C R U F
0057760 T ) ( E X P A N D - L I S P :
0060000 D E F I N E - L O O P - P A T H
0060020 1 6 0 8 C R U F T N A M E S
0060040 ) ) \r L O O P - S E Q U E N C E
0060060 R D 1 \r ( P 1 5 Q O D I R
0060100 P 1 4 Q F O R M P 1 3
0060120 Q P R E P P 1 2 Q L P
0060140 7 L I M I T - G I V E N ?
0060160 P 6 S T A R T - G I V E N ?
0060200 P 5 I N C L U S I V E - I
0060220 T E R A T I O N ? P 4 D I
0060240 R P 3 T E S T P 2 S
0060260 E Q U E N C E P P 1 E N D
0060300 F O R M P 0 S T E P I
0060320 1 1 Q P R E P - P H R A S E S
0060340 I 1 0 Q C R A P I 7
0060360 D E F A U L T - T O P ? I 6
0060400 S T E P H A C K ? I 5 S
0060420 E Q U E N C E - T Y P E ? I
0060440 4 S E Q U E N C E V ? I 3
0060460 V T Y P E ? I 2 V A R I
0060500 A B L E ? I 1 I N D E X V
0060520 - T Y P E I 0 I N D E X V
0060540 F 1 6 Q L O O P - P R O L
0060560 O G U E ) 002 210 016 001 \0 \n A \t \0 \0
0060600 265 003 j k 324 021 221 \t B 226 B h C \v \0 \0
0060620 277 G 022 021 1 \r O 024 265 ^ 023 D 233 J 251 o
0060640 \0 \0 \0 G 020 \n \0 \0 277 @ H h 032 032 X L
0060660 230 L g \0 \0 360 242 261 001 202 N 246 @ j A \v
0060700 \0 \0 277 O 016 263 % G 016 242 261 001 j \b \0 \0
0060720 Y h A \v \0 \0 277 g \0 \0 I G 016 h 032 032
0060740 032 W 034 032 c 034 242 261 001 M M 242 261 001 C o
0060760 \0 \0 \0 261 001 @ 001 001 _ 026 277 O 024 001 002 001
0061000 _ 030 277 O 026 o \0 \0 \0 \n \0 \0 262 037 J 236
0061020 o \0 \0 \0 B O 024 001 h 032 032 \n \0 \0 277 i
0061040 272 D O 030 E \v \0 \0 261 \0 334 O 026 o \0 \0
0061060 \0 \n \0 \0 262 9 N 236 o \0 \0 \0 G 020 O 024
0061100 \n \0 \0 \n \0 \0 277 i 276 O 026 g \0 \0 \n \0
0061120 \0 223 g \0 \0 213 O 026 g \0 \0 \n \0 \0 223 g
0061140 \0 \0 274 @ O 030 A \v \0 \0 261 \0 232 O 026 g
0061160 \0 \0 \n \0 \0 226 g \0 \0 \ ] 260 : O 026 g
0061200 \0 \0 \n \0 \0 223 i ] 260 - O 026 g \0 \0 \n
0061220 \0 \0 226 g \0 \0 \ ] 260 035 O 026 g \0 \0 \n
0061240 \0 \0 223 g \0 \0 214 O 026 g \0 \0 \n \0 \0 262
0061260 ' g \0 \0 \ 262 ! O 016 236 o \0 \0 \0 G 020
0061300 O 024 \n \0 \0 \n \0 \0 277 i _ 016 277 O 030 A
0061320 \n \0 \0 Y 260 0 O 026 g \0 \0 \n \0 \0 262 030
0061340 O 030 \t \0 \0 222 O 030 212 \b \0 \0 O 030 g \0
0061360 \0 \v \0 \0 X 215 o \0 \0 \0 G 020 O 024 \n \0
0061400 \0 \n \0 \0 277 O 032 262 034 L d 262 031 d O 032
0061420 360 263 023 277 o \0 \0 \0 G 020 O 024 \n \0 \0 \n
0061440 \0 \0 277 L _ 032 277 O 024 002 _ 024 261 376 l o
0061460 \0 \0 \0 273 g \0 \0 260 U N 263 5 G 016 256 o
0061500 \0 \0 \0 G 020 G 022 \n \0 \0 \n \0 \0 277 @ j
0061520 A \v \0 \0 277 g \0 \0 @ g \0 \0 A \n \0 \0
0061540 G 016 h 032 032 h 032 032 032 W 034 032 c 034 277 G
0061560 016 230 I 250 A \t \0 \0 271 i 275 I 233 M 224 o
0061600 \0 \0 \0 203 o \0 \0 \0 273 g \0 \0 H 032 X 002
0061620 002 001 _ 022 277 o \0 \0 \0 _ 020 003 265 023 h 262
0061640 & H d 001 g \0 \0 360 262 025 g \0 \0 260 023 001
0061660 O 022 : 223 O 020 260 351 O 020 002 260 336 g \0 \0
0061700 030 002 h 031 277 H d 001 A \n \0 \0 030 @ H h
0061720 032 032 X K A \n \0 \0 [ @ I h 032 032 g \0
0061740 \0 K \v \0 \0 [ F 264 \v B F h 032 032 b \f
0061760 277 h H K F h d K F h 032 032 032 032 032 032
0062000 032 032 020 \0 ( 1 1 5 0 Q C L : S U
0062020 B S T 1 1 3 3 Q L O O P - T
0062040 Y P E D - A R I T H 1 1 1 7 Q
0062060 L O O P - T Y P E D - A R I T
0062100 H 7 7 3 Q L O O P - T Y P E
0062120 D - I N I T 7 4 3 Q L O O P
0062140 - T Y P E D - A R I T H 7 2 7
0062160 Q L O O P - M A K E - I T E R
0062200 A T I O N - V A R I A B L E 7
0062220 2 0 Q C L : E R R O R 7 1 5
0062240 Q \ A P P E N D 2 6 4 5 Q
0062260 C L : E R R O R 6 4 2 Q \ A
0062300 P P E N D 2 6 0 7 Q C L : E
0062320 R R O R 6 0 4 Q \ A P P E N
0062340 D 2 5 6 7 Q L O O P - M A K
0062360 E - V A R I A B L E 5 5 7 Q
0062400 G E N S Y M 5 5 0 Q L O O P
0062420 - C O N S T A N T P 5 4 1 Q
0062440 L O O P - T E Q U A L 5 2 6 Q
0062460 L O O P - M A Y B E - B I N D
0062500 - F O R M 5 1 3 Q C L : E R
0062520 R O R 5 1 0 Q \ A P P E N D
0062540 2 4 6 2 Q L O O P - T E Q U
0062560 A L 4 4 5 Q L O O P - T E Q
0062600 U A L 4 2 5 Q L O O P - T E
0062620 Q U A L 4 1 0 Q L O O P - T
0062640 E Q U A L 3 7 0 Q L O O P -
0062660 T E Q U A L 3 5 5 Q L O O P
0062700 - M A K E - I T E R A T I O N -
0062720 V A R I A B L E 3 4 1 Q L O
0062740 O P - T E Q U A L 3 2 4 Q L
0062760 O O P - T E Q U A L 3 1 1 Q
0063000 C L : E R R O R 3 0 6 Q \ A
0063020 P P E N D 2 2 6 7 Q L O O P
0063040 - T M E M B E R 2 5 3 Q L O
0063060 O P - M A K E - V A R I A B L E
0063100 2 4 1 Q C L : E R R O R 2
0063120 1 7 Q L O O P - T M E M B E R
0063140 1 3 1 Q L O O P - M A K E -
0063160 V A R I A B L E 1 2 3 Q G E
0063200 N S Y M 1 0 5 Q L O O P - M
0063220 A K E - I T E R A T I O N - V A
0063240 R I A B L E 5 3 Q C L : E R
0063260 R O R 2 3 Q L O O P - M A K
0063300 E - I T E R A T I O N - V A R I
0063320 A B L E 3 L O O P - T Y P E
0063340 D - I N I T ) \r ( 1 1 4 4 Q A
0063360 R G S 1 1 0 3 Q S U B 1 1
0063400 0 6 0 Q A D D 1 1 0 5 2 Q
0063420 P L U S 1 0 1 7 Q D I F F E
0063440 R E N C E 7 3 7 Q S U B 1
0063460 7 3 3 Q C L : S E T Q 6 7 2
0063500 Q P L U S 5 6 4 Q F I X N
0063520 U M 5 3 6 Q B Y 4 6 7 Q
0063540 U P 4 5 7 Q B E L O W 4 5
0063560 1 Q D O W N 4 4 2 Q A B O
0063600 V E 4 3 1 Q D O W N 4 2 2
0063620 Q D O W N T O 4 0 5 Q T O
0063640 3 7 4 Q U P 3 6 5 Q U P
0063660 T O 3 4 5 Q U P 3 3 6 Q
0063700 U P F R O M 3 3 0 Q D O W N
0063720 3 2 1 Q D O W N F R O M 1
0063740 3 5 Q C L : S E T Q 7 0 Q
0063760 U P ) \r ( 1 0 3 4 Q ( 1 1
0064000 . 0 ) 1 0 1 3 Q ( N O T (
0064020 G R E A T E R P . A R G S )
0064040 ) 1 0 0 6 Q ( L E S S P .
0064060 A R G S ) 7 0 6 Q " ~ S
0064100 D o n ' t k n o w w h e r e
0064120 t o s t a r t s t e p p i
0064140 n g " \r 6 6 6 Q ( N O T (
0064160 L E S S P . A R G S ) ) 6
0064200 3 3 Q " ~ S C o n f l i c t
0064220 i n g s t e p p i n g d i r
0064240 e c t i o n s i n L O O P
0064260 s e q u e n c i n g p a t h "
0064300 5 7 5 Q " ~ S I l l e g a
0064320 l p r e p i n s e q u e n
0064340 c e p a t h " \r 5 0 1 Q "
0064360 ~ S E n d t e s t r e d u n
0064400 d a n t l y s p e c i f i e d
0064420 i n L O O P s e q u e n c
0064440 i n g p a t h " 2 7 7 Q "
0064460 ~ S I t e r a t i o n s t a
0064500 r t r e d u n d a n t l y s
0064520 p e c i f i e d i n L O O P
0064540 s e q u e n c i n g " \r 2 6
0064560 4 Q ( F R O M D O W N F R O
0064600 M U P F R O M ) 2 2 7 Q "
0064620 ~ S S e q u e n c e d u p l
0064640 i c a t e d i n L O O P p
0064660 a t h " 2 1 4 Q ( O F I N
0064700 ) 1 6 6 Q ( G R E A T E R P
0064720 . A R G S ) \r 4 6 Q " ~
0064740 S M i s s i n g O F p h r
0064760 a s e i n s e q u e n c e
0065000 p a t h " ) \r L O O P - S E Q U
0065020 E N C E - E L E M E N T S - P A
0065040 T H D 1 \r ( P 6 D E F A U
0065060 L T - V A R - T Y P E P 5
0065100 T Y P E P 4 S I Z E F U N
0065120 P 3 F E T C H F U N P
0065140 2 C R A P P 1 S E Q U E
0065160 N C E V P 0 I N D E X V
0065200 I 6 D A T A I 5 A L L
0065220 O W E D - P R E P S I 4 I
0065240 N C L U S I V E ? I 3 P R
0065260 E P - P H R A S E S I 2 D
0065300 A T A - T Y P E I 1 V A R
0065320 I A B L E I 0 P A T H )
0065340 \0 w \a \0 \0 \a g \0 \0 \t \0 \0 g \0 \0 \t
0065360 \0 \0 g \0 \0 A g \0 \0 g \0 \0 @ h 032 032
0065400 032 032 032 021 C 006 D 262 J 002 002 C 001 002 001
0065420 g \0 \0 g \0 \0 @ h 032 032 032 032 031 277 o \0
0065440 \0 \0 J \n \0 \0 277 F 001 273 F 002 b \f 001 274
0065460 F 002 b \f 001 275 F 002 001 ^ h d H g \0 \0
0065500 A B 265 003 N I M K I H h 032 032 032 L I
0065520 h 032 032 J C \r \n \0 \0 032 032 020 \0 ( 1 6
0065540 2 Q L O O P - S E Q U E N C E
0065560 R 7 7 Q C L : E R R O R 1
0065600 3 Q L O O P - N A M E D - V A
0065620 R I A B L E 5 L O O P - N A
0065640 M E D - V A R I A B L E ) \r ( 1
0065660 3 1 Q F I X N U M 5 7 Q I
0065700 T S 5 4 Q A N D 2 5 Q T
0065720 H E 2 2 Q B E I N G 1 6 Q
0065740 F O R 1 0 Q S E Q U E N C
0065760 E 2 I N D E X ) \r ( 7 3 Q
0066000 " ~ S C a n ' t s t e p
0066020 s e q u e n c e i n c l u s i
0066040 v e l y " ) \r E X P A N D - L I
0066060 S P : D E F I N E - L O O P - S
0066100 E Q U E N C E - P A T H 1 6 1 2
0066120 D 1 \r ( L ( 4 P A T H - N
0066140 A M E - O R - N A M E S 3 F
0066160 E T C H F U N 2 S I Z E F U
0066200 N 1 S E Q U E N C E - T Y P
0066220 E 0 E L E M E N T - T Y P E
0066240 ) ) \0 032 \0 \0 \0 005 g \0 \0 D g \0 \0
0066260 o \0 \0 \0 C B A @ h 032 032 032 032 032 032 032
0066300 032 020 \0 N I L \r ( 6 L O O P - S
0066320 E Q U E N C E - E L E M E N T S
0066340 - P A T H 2 L I S P : D E F
0066360 I N E - L O O P - P A T H ) \r (
0066400 1 2 Q ( O F I N F R O M
0066420 D O W N F R O M T O D O W
0066440 N T O B E L O W A B O V E
0066460 B Y ) ) \r ( D E F M A C R O L
0066500 I S P : D E F I N E - L O O P -
0066520 S E Q U E N C E - P A T H ( P
0066540 A T H - N A M E - O R - N A M E
0066560 S F E T C H F U N S I Z E F
0066600 U N & O P T I O N A L S E Q
0066620 U E N C E - T Y P E \r E L E M
0066640 E N T - T Y P E ) ( E X P A N
0066660 D - L I S P : D E F I N E - L O
0066700 O P - S E Q U E N C E - P A T H
0066720 1 6 1 2 E L E M E N T - T Y P
0066740 E S E Q U E N C E - T Y P E
0066760 S I Z E F U N F E T C H F U N
0067000 \r P A T H - N A M E - O R - N
0067020 A M E S ) ) \r ( C L : M A P C
0067040 ( F U N C T I O N ( C L : L A
0067060 M B D A ( X ) ( C L : M A P
0067100 C ( F U N C T I O N ( C L :
0067120 L A M B D A ( Y ) ( C L : S
0067140 E T Q L O O P - P A T H - K E
0067160 Y W O R D - A L I S T ( \r C O
0067200 N S ( C O N S Y ( C D R
0067220 X ) ) ( S Y S T E M : : D E L
0067240 Q ( L O O P - T A S S O C Y
0067260 L O O P - P A T H - K E Y W O
0067300 R D - A L I S T ) L O O P - P
0067320 A T H - K E Y W O R D - A L I S
0067340 T ) ) ) \r ) ) ( C A R X ) )
0067360 ) ) ( Q U O T E N I L ) ) \r
0067400 ( C L : M A P C ( F U N C T I
0067420 O N ( C L : L A M B D A ( X
0067440 ) ( C L : M A P C ( F U N C
0067460 T I O N ( C L : L A M B D A
0067500 ( Y ) ( C L : S E T Q L O O
0067520 P - P A T H - K E Y W O R D - A
0067540 L I S T ( \r C O N S ( B Q U
0067560 O T E ( ( \ , Y ) L O O P
0067600 - S E Q U E N C E - E L E M E N
0067620 T S - P A T H ( O F I N F
0067640 R O M D O W N F R O M T O
0067660 D O W N T O B E L O W A B O
0067700 V E B Y ) \ , ( \r C D R
0067720 X ) ) ) ( S Y S T E M : : D E
0067740 L Q ( L O O P - T A S S O C
0067760 Y L O O P - P A T H - K E Y W
0070000 O R D - A L I S T ) L O O P -
0070020 P A T H - K E Y W O R D - A L I
0070040 S T ) ) ) ) ) ( C A R X ) )
0070060 ) ) \r ( Q U O T E N I L ) )
0070100 \r S T O P \r
0070106