$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>tcpdomain!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " I N T E R L I S P " 247 B
0000100 A S E 1 0 ) \r 006 001 ( F I L E C
0000120 R E A T E D " 2 - A p r - 8
0000140 7 1 7 : 0 1 : 1 8 " 006 004 { E
0000160 R I S } < L I S P C O R E > L I
0000200 B R A R Y > T C P D O M A I N .
0000220 ; 5 006 001 6 1 6 7 6 \r \r
0000240 c h a n g e s t o % :
0000260 ( V A R S T C P D O M A I
0000300 N C O M S ) \r \r p r
0000320 e v i o u s d a t e % : " 1
0000340 9 - M a r - 8 7 1 6 : 5 9 : 0
0000360 1 " { E R I S } < L I S P C O
0000400 R E > L I B R A R Y > T C P D O
0000420 M A I N . ; 4 ) \r \r \r ( * " \r
0000440 C o p y r i g h t ( c ) 1 9
0000460 8 6 , 1 9 8 7 b y X e r o
0000500 x C o r p o r a t i o n .
0000520 A l l r i g h t s r e s e r
0000540 v e d . \r " ) \r \r ( P R E T T Y
0000560 C O M P R I N T T C P D O M A
0000600 I N C O M S ) \r \r ( R P A Q Q
0000620 006 002 T C P D O M A I N C O M S 006
0000640 001 \r ( ( C O M S
0000660 \r \r
0000700 006 006 ( * ; ; "
0000720 T C P / I P D o m a i n r e
0000740 s o l v e r i m p l e m e n t
0000760 a t i o n . R F C 8 8 2 ,
0001000 R F C 8 8 3 , R F C 9 7 3 " )
0001020 006 001 \r ) \r ( C O
0001040 M S \r \r
0001060 006 006 ( * ; ;
0001100 " U D P p r o t o c o l f
0001120 u n c t i o n s " ) 006 001 \r \r
0001140 ( D E C
0001160 L A R E % : D O N T C O P Y
0001200 ( E X P O R T ( C O N S T A N
0001220 T S ( \ U D P D O M A I N . W
0001240 D S 6 ) ) \r
0001260
*
0001320 ( R E C O R D S D O M A I N .
0001340 H E A D E R ) ) ) \r
0001360 ( I N I T V A R
0001400 S ( \ U D P D O M A I N . I P
0001420 S O C K E T ) ) \r
0001440 ( G L O B A L V A
0001460 R S \ U D P D O M A I N . I P
0001500 S O C K E T ) \r
0001520 ( F I L E S ( S Y
0001540 S L O A D ) \r
0001560 T C P U
0001600 D P ) \r
0001620 ( F N S \ U D P D O M . P
0001640 R O C E S S . R E S P O N S E
0001660 \ U D P D O M . Q U E R Y \ U
0001700 D P D O M . I P S O C K E T ) )
0001720 \r ( C O M S \r
0001740 \r
0001760 006 006 ( * ; ; " P r
0002000 o t o c o l i n d e p e n d e
0002020 n t f u n c t i o n s " ) 006 001
0002040 \r \r
0002060 [ D E C L A R E % : D O N T C
0002100 O P Y ( E X P O R T ( C O N
0002120 S T A N T S * D O M A I N .
0002140 O P C O D E S ) \r
0002160
*
0002220 ( C O N S T A N T S * D
0002240 O M A I N . R C O D E S ) \r
0002260
*
0002320 ( C O N S T A N T
0002340 S * D O M A I N . R R T Y P
0002360 E S ) \r
0002400
0002420 ( C O
0002440 N S T A N T S * D O M A I N
0002460 . C L A S S T Y P E S ) \r
0002500
*
0002540 ( C O N S T A N T S
0002560 ( \ D O M A I N . P O R T 5
0002600 3 ] \r
0002620 ( I N I T V A R S ( \ D O M
0002640 A I N . D E F A U L T . S E R V
0002660 E R ) ) \r
0002700 ( G L O B A L V A R S \
0002720 D O M A I N . D E F A U L T . S
0002740 E R V E R ) \r
0002760 ( F N S \ D O M A I
0003000 N . N A M E \ D O M A I N . P
0003020 A C K . N A M E . L I S T \ D
0003040 O M A I N . P A R S E . N A M E
0003060 \ D O M A I N . R C O D E . E
0003100 R R O R \r
0003120 \ D O M A I N
0003140 . P R O C E S S . R E D I R E C
0003160 T \ D O M A I N . P R O C E S
0003200 S . R E S P O N S E \ D O M A
0003220 I N . P R O C E S S . R R \r
0003240
0003260 \ D O M A I N . R E A D . A
0003300 D D R E S S \ D O M A I N . R
0003320 E A D . N A M E . F R O M . S T
0003340 R E A M \ D O M A I N . R E A
0003360 D . S T R I N G . F R O M . S T
0003400 R E A M \r
0003420 \ D O M A I N
0003440 . S E A R C H . F O R . C A N O
0003460 N I C A L . N A M E \ D O M A
0003500 I N . S K I P . N A M E . I N .
0003520 S T R E A M \r
0003540 \ D O M A
0003560 I N . S K I P . Q U E S T I O N
0003600 \ D O M A I N . S K I P . R R
0003620 ) ) \r ( C O M S
0003640 \r \r
0003660 006 006 ( * ; ; "
0003700 F u n c t i o n s t o m a i
0003720 n t a i n t h e d o m a i n
0003740 t r e e s t r u c t u r e "
0003760 ) 006 001 \r \r
0004000 ( R E C O R D S D O M A
0004020 I N . T R E E . N O D E D O M
0004040 A I N . S E R V E R ) \r
0004060 ( I N I T R
0004100 E C O R D S D O M A I N . T R
0004120 E E . N O D E ) \r
0004140 ( F N S U S T R
0004160 I N G H A S H B I T S ) \r
0004200 ( I N I T
0004220 V A R S ( \ D O M A I N . R O
0004240 O T ( c r e a t e D O M A I
0004260 N . T R E E . N O D E N A M E
0004300 _ " " ) ) \r
0004320 ( \ D
0004340 O M A I N . N A M E S E R V E R
0004360 S ( H A S H A R R A Y 5 0
0004400 1 . 2 ( F U N C T I O N U S
0004420 T R I N G H A S H B I T S ) \r
0004440
*
0004520 ( F U N C T I O N S T R I N G
0004540 - E Q U A L ) ) ) \r
0004560 (
0004600 \ D O M A I N . U N K N O W N .
0004620 D O M A I N S ) \r
0004640 ( \
0004660 D O M A I N . G C . I N T E R V
0004700 A L 6 0 0 0 0 0 ) \r
0004720
0004740 ( \ D O M A I N . G C . T I M E
0004760 R ( S E T U P T I M E R \ D
0005000 O M A I N . G C . I N T E R V A
0005020 L ) ) ) \r
0005040 ( G L O B A L V A R S \
0005060 D O M A I N . R O O T \ D O M
0005100 A I N . N A M E S E R V E R S
0005120 \ D O M A I N . U N K N O W N .
0005140 D O M A I N S \ D O M A I N .
0005160 G C . T I M E R \r
0005200 \
0005220 D O M A I N . G C . I N T E R V
0005240 A L ) \r
0005260 ( F N S \ D O M A I N . A
0005300 D D . N E W . D O M A I N \ D
0005320 O M A I N . A D D . N A M E S E
0005340 R V E R \ D O M A I N . A U G
0005360 M E N T . T R E E \r
0005400 \ D
0005420 O M A I N . C H O O S E . B E S
0005440 T . S E R V E R S \ D O M A I
0005460 N . F I N D . D O M A I N . I N
0005500 . T R E E \ D O M A I N . I N
0005520 I T \r
0005540 \ D O M A I N . I
0005560 N S E R T . I N . T R E E \ D
0005600 O M A I N . P A T H \ D O M A
0005620 I N . S E A R C H . R E S O U R
0005640 C E . L I S T \r
0005660 \ D O M
0005700 A I N . D E L E T E . N A M E S
0005720 E R V E R \ D O M A I N . A R
0005740 O U N D . E X I T \ D O M A I
0005760 N . D E L E T E . T R E E \r
0006000
0006020 \ D O M A I N . B A C K G R
0006040 O U N D \ D O M A I N . G C .
0006060 N A M E S E R V E R S \ D O M
0006100 A I N . S O R T . B Y . S V C .
0006120 T I M E ) \r
0006140 ( A D D V A R S ( B A
0006160 C K G R O U N D F N S \ D O M
0006200 A I N . B A C K G R O U N D ) )
0006220 ) \r ( C O M S
0006240 \r \r
0006260 006 006 ( * ; ; " P
0006300 r o g r a m m e r ' s i n t e
0006320 r f a c e " ) 006 001 \r \r
0006340 ( I N I T V A
0006360 R S ( D O M A I N . T R A C E
0006400 . F L G ) \r
0006420 ( D O M A
0006440 I N . T R A C E . F I L E ) \r
0006460
0006500 ( I N T E R N E T . L O
0006520 C A L . D O M A I N ) ) \r
0006540 ( G L O B
0006560 A L V A R S D O M A I N . T R
0006600 A C E . F L G D O M A I N . T
0006620 R A C E . F I L E I N T E R N
0006640 E T . L O C A L . D O M A I N )
0006660 \r (
0006700 F N S D O M A I N . I N I T
0006720 D O M A I N . L O O K U P . A D
0006740 D R E S S D O M A I N . L O O
0006760 K U P . N A M E S E R V E R D
0007000 O M A I N . L O O K U P . O S T
0007020 Y P E \r
0007040 D O M A I N . L
0007060 O O K U P D O M A I N . G R A
0007100 P H D O M A I N . N A M E . E
0007120 Q U A L D O M A I N . T R A C
0007140 E \r
0007160 D O M A I N . T R A
0007200 C E W I N D O W . B U T T O N F
0007220 N ) ) \r ( P (
0007240 D O M A I N . I N I T ) ) ) ) \r
0007260 \r \r \r 006 004 ( * ; ; " T C P /
0007300 I P D o m a i n r e s o l v
0007320 e r i m p l e m e n t a t i o
0007340 n . R F C 8 8 2 , R F C 8
0007360 8 3 , R F C 9 7 3 " ) 006 001 \r \r
0007400 \r \r \r 006 004 ( * ; ; " U D P
0007420 p r o t o c o l f u n c t i o
0007440 n s " ) 006 001 \r \r ( D E C L A R E
0007460 % : D O N T C O P Y \r ( *
0007500 " F O L L O W I N G D E F I N
0007520 I T I O N S E X P O R T E D "
0007540 ) \r \r ( D E C L A R E % : E V
0007560 A L @ C O M P I L E \r \r ( R P
0007600 A Q Q 006 002 \ U D P D O M A I N
0007620 . W D S 006 001 6 ) \r \r ( C O N S
0007640 T A N T S ( \ U D P D O M A I
0007660 N . W D S 6 ) ) \r ) \r ( D E C
0007700 L A R E % : E V A L @ C O M P
0007720 I L E \r \r ( B L O C K R E C O R
0007740 D 006 002 D O M A I N . H E A D E
0007760 R 006 001 ( ( I D W O R D ) \r
0010000
0010020 ( R E S P
0010040 O N S E F L G F L A G ) \r
0010060
0010100 ( O P C O D
0010120 E B I T S 4 ) \r
0010140
0010160 ( A U T H O R I T Y
0010200 F L G F L A G ) \r
0010220
0010240 ( T R U N C A T E D
0010260 F L G F L A G ) \r
0010300
0010320 ( W A N T R E C U R
0010340 S E F L G F L A G ) \r
0010360
0010400 ( C A N R E C U
0010420 R S E F L G F L A G ) \r
0010440
0010460 ( N I L B I
0010500 T S 3 ) \r
0010520
0010540 ( R E S P O N S E C O D E
0010560 B I T S 4 ) \r
0010600
0010620 ( Q D C O U N T W O R
0010640 D ) \r
0010660 (
0010700 A N C O U N T W O R D ) \r
0010720
0010740 ( N S C O U
0010760 N T W O R D ) \r
0011000
0011020 ( A R C O U N T W O
0011040 R D ) ) ) \r ) \r \r ( * " E N D
0011060 E X P O R T E D D E F I N I
0011100 T I O N S " ) \r \r ) \r \r ( R P A
0011120 Q ? 006 002 \ U D P D O M A I N .
0011140 I P S O C K E T 006 001 ) \r ( D E
0011160 C L A R E % : D O E V A L @ C
0011200 O M P I L E D O N T C O P Y \r
0011220 \r ( G L O B A L V A R S \ U D
0011240 P D O M A I N . I P S O C K E T
0011260 ) \r ) \r ( F I L E S L O A D (
0011300 S Y S L O A D ) \r
0011320 T C P U D P ) \r ( D E F I N E Q
0011340 \r \r ( 006 004 \ U D P D O M . P R O
0011360 C E S S . R E S P O N S E 006 001 \r
0011400 [ L A M B D A ( D O M A I
0011420 N . P A T H R E S P O N S E )
0011440 006 006 006 001
0011460
0011500 006 006 ( * e j s % : " 5 -
0011520 N o v - 8 6 1 3 : 3 8 " ) 006 001
0011540 \r \r
0011560 006 006 ( * * T h i
0011600 s f u n c t i o n p a r s e
0011620 s a q u e r y r e p o n s
0011640 e p a c k e t ) 006 001 \r \r
0011660 ( L E T ( ( R E S P O N S E
0011700 B A S E ( 006 002 f e t c h 006 001
0011720 ( U D P U D P C O N T E N T S
0011740 ) 006 002 o f 006 001 R E S P O N S
0011760 E ) ) ) \r ( C
0012000 O N D \r
0012020 ( ( N E Q 0 ( 006 002 f e t c h
0012040 006 001 ( D O M A I N . H E A D E
0012060 R A N C O U N T ) 006 002 o f 006
0012100 001 R E S P O N S E B A S E ) )
0012120 \r \r
0012140 006 006 ( * * T h e
0012160 r e s p o n s e p a c k e t
0012200 h a s t h e i n f o r m a
0012220 t i o n w e r e q u e s t e
0012240 d ) 006 001 \r \r
0012260 ( P R O G 1 ( 006 002 \ D O
0012300 M A I N . P R O C E S S . R E S
0012320 P O N S E 006 001 ( \ M A K E B A
0012340 S E B Y T E S T R E A M R E S
0012360 P O N S E B A S E 0 \r
0012400
*
0012460 ( I D I F F E R E N C E ( 006
0012500 002 f e t c h 006 001 ( U D P U D
0012520 P L E N G T H ) 006 002 o f 006 001
0012540 R E S P O N S E ) \r
0012560
*
0012640 \ U D P O V L E N )
0012660 \r
0012700
*
0012740 ' I N P U T ) ) \r
0012760
0013000 ( \ R E L E A S E . E T H
0013020 E R P A C K E T R E S P O N S
0013040 E ) ) ) \r
0013060 ( ( O R ( N E Q 0 ( 006 002
0013100 f e t c h 006 001 ( D O M A I N .
0013120 H E A D E R N S C O U N T )
0013140 006 002 o f 006 001 R E S P O N S E B
0013160 A S E ) ) \r
0013200 ( N E Q 0 ( 006
0013220 002 f e t c h 006 001 ( D O M A I N
0013240 . H E A D E R A R C O U N T )
0013260 006 002 o f 006 001 R E S P O N S E
0013300 B A S E ) ) ) \r
0013320 \r 006 006 (
0013340 * * T h e s e r v e r w
0013360 e a s k e d d i d n ' t k
0013400 n o w , b u t d i d t e l
0013420 l u s t h e n a m e o f
0013440 a s e r v e r \r 006 001
0013460 006 006 w h i c h m
0013500 i g h t k n o w ) 006 001 \r \r
0013520 ( P R O G
0013540 1 ( 006 002 \ D O M A I N . P R O
0013560 C E S S . R E D I R E C T 006 001
0013600 ( \ M A K E B A S E B Y T E S T
0013620 R E A M R E S P O N S E B A S
0013640 E 0 \r
0013660
*
0013720 ( I D I F F E
0013740 R E N C E ( 006 002 f e t c h 006 001
0013760 ( U D P U D P L E N G T H )
0014000 006 002 o f 006 001 R E S P O N S E
0014020 ) \r
0014040
*
0014100 \ U
0014120 D P O V L E N ) \r
0014140
*
0014200 ' I
0014220 N P U T ) ) \r
0014240 ( \ R E L
0014260 E A S E . E T H E R P A C K E T
0014300 R E S P O N S E ) ) ) \r
0014320 ( T ( \ R E
0014340 L E A S E . E T H E R P A C K E
0014360 T R E S P O N S E ) \r
0014400 ' F A I L
0014420 E D ] ) \r \r ( 006 004 \ U D P D O M
0014440 . Q U E R Y 006 001 \r [ L A M B
0014460 D A ( D O M A I N T Y P E
0014500 C L A S S S E R V E R ) 006 006 006
0014520 001
0014540 006 006 ( * e
0014560 j s % : " 5 - N o v - 8 6
0014600 1 3 : 4 0 " ) 006 001 \r
0014620 \r 006
0014640 006 ( * * M a k e a d o m
0014660 a i n q u e r y . A r g u m
0014700 e n t s e m a n t i c s s h
0014720 o u l d b e s e l f - e v i
0014740 d e n t i f y o u ' v e \r
0014760 006 001 006 006 r e
0015000 a d R F C 8 8 2 a n d R F
0015020 C 8 8 3 . R e t u r n s a
0015040 l i s t o f a n s w e r s ,
0015060 o r a t o m s t o i n d
0015100 i c a t e \r 006 001
0015120 006 006 f a i l u r e - - U S
0015140 E . T C P , e t c ) 006 001 \r \r
0015160 ( L E T * ( ( Q U E R Y
0015200 ( \ A L L O C A T E . E T H E
0015220 R P A C K E T ) ) \r
0015240 ( I D ( R A N D 1
0015260 6 5 5 3 4 ) ) \r
0015300 A N S W E R D O M A I
0015320 N B A S E ) \r
0015340 \r 006 006 ( *
0015360 * D o b a s i c Q U E R
0015400 Y i n i t i a l i z a t i o n
0015420 ) 006 001 \r \r (
0015440 U D P . S E T U P Q U E R Y
0015460 ( O R S E R V E R \ D O M A
0015500 I N . D E F A U L T . S E R V E
0015520 R ) \r
0015540 \ D O M A I N . P O R T
0015560 I D ( 006 002 \ U D P D O M . I
0015600 P S O C K E T 006 001 ) ) \r
0015620 ( S E T Q D O M A
0015640 I N B A S E ( 006 002 f e t c h 006
0015660 001 ( U D P U D P C O N T E N
0015700 T S ) 006 002 o f 006 001 Q U E R Y
0015720 ) ) \r \r
0015740 006 006 ( * * F
0015760 o r m a t h e a d e r s e c
0016000 t i o n ) 006 001 \r \r
0016020 ( 006 002 r e p l a c e 006 001
0016040 ( D O M A I N . H E A D E R I
0016060 D ) 006 002 o f 006 001 D O M A I N
0016100 B A S E 006 002 w i t h 006 001 I D
0016120 ) \r ( 006 002 r
0016140 e p l a c e 006 001 ( D O M A I N
0016160 . H E A D E R R E S P O N S E
0016200 F L G ) 006 002 o f 006 001 D O M A
0016220 I N B A S E 006 002 w i t h 006 001
0016240 N I L ) \r (
0016260 006 002 r e p l a c e 006 001 ( D O M
0016300 A I N . H E A D E R A U T H O
0016320 R I T Y F L G ) 006 002 o f 006 001
0016340 D O M A I N B A S E 006 002 w i t
0016360 h 006 001 N I L ) \r
0016400 ( 006 002 r e p l a c e 006 001
0016420 ( D O M A I N . H E A D E R T
0016440 R U N C A T E D F L G ) 006 002 o
0016460 f 006 001 D O M A I N B A S E 006
0016500 002 w i t h 006 001 N I L ) \r
0016520 ( 006 002 r e p l a c
0016540 e 006 001 ( D O M A I N . H E A D
0016560 E R W A N T R E C U R S E F L
0016600 G ) 006 002 o f 006 001 D O M A I N
0016620 B A S E 006 002 w i t h 006 001 N I
0016640 L ) \r ( 006 002
0016660 r e p l a c e 006 001 ( D O M A I
0016700 N . H E A D E R C A N R E C U
0016720 R S E F L G ) 006 002 o f 006 001 D
0016740 O M A I N B A S E 006 002 w i t h
0016760 006 001 N I L ) \r
0017000 ( 006 002 r e p l a c e 006 001 (
0017020 D O M A I N . H E A D E R O P
0017040 C O D E ) 006 002 o f 006 001 D O M
0017060 A I N B A S E 006 002 w i t h 006 001
0017100 D O M A I N . Q U E R Y ) \r
0017120 ( 006 002 r e p l
0017140 a c e 006 001 ( D O M A I N . H E
0017160 A D E R R E S P O N S E C O D
0017200 E ) 006 002 o f 006 001 D O M A I N
0017220 B A S E 006 002 w i t h 006 001 0 )
0017240 \r ( 006 002 r e
0017260 p l a c e 006 001 ( D O M A I N .
0017300 H E A D E R Q D C O U N T )
0017320 006 002 o f 006 001 D O M A I N B A S
0017340 E 006 002 w i t h 006 001 1 ) \r
0017360 ( 006 002 r e p l a
0017400 c e 006 001 ( D O M A I N . H E A
0017420 D E R A N C O U N T ) 006 002 o
0017440 f 006 001 D O M A I N B A S E 006
0017460 002 w i t h 006 001 0 ) \r
0017500 ( 006 002 r e p l a c e 006
0017520 001 ( D O M A I N . H E A D E R
0017540 N S C O U N T ) 006 002 o f 006 001
0017560 D O M A I N B A S E 006 002 w i
0017600 t h 006 001 0 ) \r
0017620 ( 006 002 r e p l a c e 006 001 (
0017640 D O M A I N . H E A D E R A R
0017660 C O U N T ) 006 002 o f 006 001 D O
0017700 M A I N B A S E 006 002 w i t h 006
0017720 001 0 ) \r (
0017740 U D P . I N C R E M E N T . L E
0017760 N G T H Q U E R Y ( U N F O
0020000 L D \ U D P D O M A I N . W D
0020020 S B Y T E S P E R W O R D ) )
0020040 \r \r
0020060 006 006 ( * * A d d
0020100 Q u e r y ) 006 001 \r \r
0020120 [ C O N D \r
0020140 ( ( A N D ( N
0020160 O T ( N U L L D O M A I N )
0020200 ) \r
0020220 ( N L I S T P D O M
0020240 A I N ) ) \r
0020260 ( S E T Q D O M A I N
0020300 ( 006 002 \ D O M A I N . P A R S
0020320 E . N A M E 006 001 D O M A I N ]
0020340 \r ( 006 002 f o
0020360 r 006 001 N A M E 006 002 i n 006 001
0020400 D O M A I N 006 002 d o 006 001 ( U
0020420 D P . A P P E N D . B Y T E Q
0020440 U E R Y ( N C H A R S N A M
0020460 E ) ) \r
0020500
0020520 ( U D P . A P P E N D
0020540 . S T R I N G Q U E R Y ( M
0020560 K S T R I N G N A M E ) ) \r
0020600 006 002 f i
0020620 n a l l y 006 001 ( U D P . A P P
0020640 E N D . B Y T E Q U E R Y 0
0020660 ) ) \r ( U D
0020700 P . A P P E N D . W O R D Q U
0020720 E R Y T Y P E ) \r
0020740 ( U D P . A P P E N D .
0020760 W O R D Q U E R Y C L A S S
0021000 ) \r \r
0021020 006 006 ( * * D o
0021040 t h e q u e r y ) 006 001 \r \r
0021060 ( 006 002 b i n d
0021100 006 001 R E S P O N S E R E S P
0021120 O N S E B A S E 006 002 f o r 006 001
0021140 I 006 002 f r o m 006 001 1 006 002
0021160 t o 006 001 \ M A X E T H E R T R
0021200 I E S \r
0021220 006 002 d o 006 001 ( C O N D \r
0021240
0021260 [ ( S E T Q R E S P O N S E
0021300 ( U D P . E X C H A N G E (
0021320 006 002 \ U D P D O M . I P S O C K
0021340 E T 006 001 ) \r
0021360
*
0021420 Q U E R Y 1 0 0 0 0 ) ) \r
0021440
0021460 ( S E T Q R E S P O N S E
0021500 B A S E ( 006 002 f e t c h 006 001
0021520 ( U D P U D P C O N T E N T S
0021540 ) 006 002 o f 006 001 R E S P O N S
0021560 E ) ) \r
0021600 ( C O N D \r
0021620
0021640 [ ( A N D ( E Q (
0021660 006 002 f e t c h 006 001 ( D O M A I
0021700 N . H E A D E R I D ) 006 002 o
0021720 f 006 001 R E S P O N S E B A S E
0021740 ) \r
0021760
0022000 I D ) \r
0022020
0022040 ( 006 002 f e t c h 006 001 (
0022060 D O M A I N . H E A D E R R E
0022100 S P O N S E F L G ) 006 002 o f 006
0022120 001 R E S P O N S E B A S E ) )
0022140 \r
0022160 ( C O N D \r
0022200
0022220 ( ( A N D
0022240 ( 006 002 f e t c h 006 001 ( D O M A
0022260 I N . H E A D E R T R U N C A
0022300 T E D F L G ) 006 002 o f 006 001 R
0022320 E S P O N S E B A S E ) \r
0022340
0022360 ( E
0022400 Q ( 006 002 f e t c h 006 001 ( D O
0022420 M A I N . H E A D E R A N C O
0022440 U N T ) 006 002 o f 006 001 R E S P
0022460 O N S E B A S E ) \r
0022500
0022520 0
0022540 ) \r
0022560
0022600 ( E Q ( 006 002 f e t c h 006
0022620 001 ( D O M A I N . H E A D E R
0022640 N S C O U N T ) 006 002 o f 006 001
0022660 R E S P O N S E B A S E ) \r
0022700
*
0022740 0 ) \r
0022760
0023000 ( E Q ( 006 002 f
0023020 e t c h 006 001 ( D O M A I N . H
0023040 E A D E R R E S P O N S E C O
0023060 D E ) 006 002 o f 006 001 R E S P O
0023100 N S E B A S E ) \r
0023120
0023140 R C
0023160 O D E . O K ) ) \r
0023200
0023220 ( S E T Q A N S W E
0023240 R ' U S E . T C P ) \r
0023260
0023300 ( \ R E L E A S
0023320 E . E T H E R P A C K E T R E
0023340 S P O N S E ) \r
0023360
0023400 ( G O $ $ O U T ) ) \r
0023420
0023440 ( ( N E Q
0023460 ( 006 002 f e t c h 006 001 ( D O M
0023500 A I N . H E A D E R R E S P O
0023520 N S E C O D E ) 006 002 o f 006 001
0023540 R E S P O N S E B A S E ) \r
0023560
0023600 R
0023620 C O D E . O K ) \r
0023640
0023660 ( S E T Q A N S W E
0023700 R ( 006 002 \ D O M A I N . R C O
0023720 D E . E R R O R 006 001 ( 006 002 f e
0023740 t c h 006 001 ( D O M A I N . H E
0023760 A D E R R E S P O N S E C O D
0024000 E ) \r
0024020
*
0024100 006 002 o f 006 001 R E S P O
0024120 N S E B A S E ) ) ) \r
0024140
0024160 ( C O N D \r
0024200
0024220 ( D O M
0024240 A I N . T R A C E . F L G ( F
0024260 R E S H L I N E D O M A I N .
0024300 T R A C E . F I L E ) \r
0024320
*
0024360 ( p r i n t o u t D O M A
0024400 I N . T R A C E . F I L E " E
0024420 r r o r o n q u e r y : "
0024440 A N S W E R ) ) ) \r
0024460
0024500 ( \ R E L E A S E
0024520 . E T H E R P A C K E T R E S
0024540 P O N S E ) \r
0024560
0024600 ( G O $ $ O U T ) ) \r
0024620
0024640 ( T ( S E
0024660 T Q A N S W E R ( 006 002 \ U D
0024700 P D O M . P R O C E S S . R E S
0024720 P O N S E 006 001 D O M A I N R
0024740 E S P O N S E ) ) \r
0024760
0025000 ( G O $ $ O U
0025020 T ] \r
0025040 ( T ( \ R
0025060 E L E A S E . E T H E R P A C K
0025100 E T R E S P O N S E ] \r
0025120
0025140 ( D O M A I N . T R A C E . F L
0025160 G ( F R E S H L I N E D O M
0025200 A I N . T R A C E . F I L E ) \r
0025220
0025240 ( p r i n t
0025260 o u t D O M A I N . T R A C E
0025300 . F I L E " Q u e r y t o
0025320 " ( \ I P . A D D R E S S . T
0025340 O . S T R I N G \r
0025360
*
0025440 ( 006 002 f
0025460 e t c h 006 001 ( I P I P D E S
0025500 T I N A T I O N A D D R E S S )
0025520 \r
0025540
*
0025620 006 002 o f 006 001 Q U
0025640 E R Y ) ) \r
0025660
0025700 " t i m e d o
0025720 u t . " ) ) ) 006 002 f i n a l l
0025740 y 006 001 ( \ R E L E A S E . E T
0025760 H E R P A C K E T Q U E R Y )
0026000 \r
0026020
*
0026060 ( R E T U R N
0026100 A N S W E R ] ) \r \r ( 006 004 \ U
0026120 D P D O M . I P S O C K E T 006 001
0026140 \r [ L A M B D A N I L 006 006
0026160 006 001
0026200
*
0026240 006 006 ( * e j s % : " 1 2
0026260 - A p r - 8 6 2 0 : 3 9 " ) 006
0026300 001 \r [ C O N D \r
0026320 ( ( N U L L \ U D P D O
0026340 M A I N . I P S O C K E T ) \r
0026360 ( S E T Q \ U D
0026400 P D O M A I N . I P S O C K E T
0026420 ( U D P . O P E N . S O C K E
0026440 T ) ) ) \r ( ( N O
0026460 T ( \ I P . F I N D . S O C K
0026500 E T ( 006 002 f e t c h 006 001 ( I
0026520 P S O C K E T I P S O C K E T
0026540 ) 006 002 o f 006 001 \ U D P D O M
0026560 A I N . I P S O C K E T ) \r
0026600
0026620 ( \ I P . F I N D . P R O T
0026640 O C O L \ U D P . P R O T O C
0026660 O L ) ) ) \r ( S
0026700 E T Q \ U D P D O M A I N . I
0026720 P S O C K E T ( U D P . O P E
0026740 N . S O C K E T N I L ' A C
0026760 C E P T ] \r \ U D P D O
0027000 M A I N . I P S O C K E T ] ) \r
0027020 ) \r \r \r \r 006 004 ( * ; ; " P r
0027040 o t o c o l i n d e p e n d e
0027060 n t f u n c t i o n s " ) 006 001
0027100 \r \r ( D E C L A R E % : D O N
0027120 T C O P Y \r ( * " F O L L O
0027140 W I N G D E F I N I T I O N S
0027160 E X P O R T E D " ) \r \r \r ( R
0027200 P A Q Q 006 002 D O M A I N . O P
0027220 C O D E S 006 001 ( ( D O M A I N
0027240 . Q U E R Y 0 ) \r
0027260
0027300 ( D O M A I N . I Q U E R Y
0027320 1 ) \r
0027340 ( D O M A I
0027360 N . C Q U E R Y M 2 ) \r
0027400
0027420 ( D O M A I N . C Q U E
0027440 R Y U 3 ) ) ) \r ( D E C L A R
0027460 E % : E V A L @ C O M P I L E
0027500 \r \r ( R P A Q Q 006 002 D O M A
0027520 I N . Q U E R Y 006 001 0 ) \r \r (
0027540 R P A Q Q 006 002 D O M A I N . I
0027560 Q U E R Y 006 001 1 ) \r \r ( R P A
0027600 Q Q 006 002 D O M A I N . C Q U E
0027620 R Y M 006 001 2 ) \r \r ( R P A Q Q
0027640 006 002 D O M A I N . C Q U E R Y
0027660 U 006 001 3 ) \r \r ( C O N S T A N
0027700 T S ( D O M A I N . Q U E R Y
0027720 0 ) \r ( D O M A
0027740 I N . I Q U E R Y 1 ) \r
0027760 ( D O M A I N . C Q U E
0030000 R Y M 2 ) \r ( D
0030020 O M A I N . C Q U E R Y U 3 )
0030040 ) \r ) \r \r ( R P A Q Q 006 002 D O
0030060 M A I N . R C O D E S 006 001 ( (
0030100 R C O D E . O K 0 ) \r
0030120
0030140 ( R C O D E . F O R M A T E
0030160 R R O R 1 ) \r
0030200 ( R
0030220 C O D E . S E R V E R F A I L E
0030240 D 2 ) \r
0030260 ( R C O D
0030300 E . N A M E E R R O R 3 ) \r
0030320
0030340 ( R C O D E . N O T I
0030360 M P L E M E N T E D 4 ) \r
0030400
0030420 ( R C O D E . R E F U S
0030440 E D 5 ) ) ) \r ( D E C L A R E
0030460 % : E V A L @ C O M P I L E
0030500 \r \r ( R P A Q Q 006 002 R C O D E
0030520 . O K 006 001 0 ) \r \r ( R P A Q Q
0030540 006 002 R C O D E . F O R M A T E
0030560 R R O R 006 001 1 ) \r \r ( R P A Q
0030600 Q 006 002 R C O D E . S E R V E R
0030620 F A I L E D 006 001 2 ) \r \r ( R P
0030640 A Q Q 006 002 R C O D E . N A M E
0030660 E R R O R 006 001 3 ) \r \r ( R P A
0030700 Q Q 006 002 R C O D E . N O T I M
0030720 P L E M E N T E D 006 001 4 ) \r \r
0030740 ( R P A Q Q 006 002 R C O D E . R
0030760 E F U S E D 006 001 5 ) \r \r ( C O
0031000 N S T A N T S ( R C O D E . O
0031020 K 0 ) \r ( R C O
0031040 D E . F O R M A T E R R O R 1
0031060 ) \r ( R C O D E .
0031100 S E R V E R F A I L E D 2 ) \r
0031120 ( R C O D E . N A
0031140 M E E R R O R 3 ) \r
0031160 ( R C O D E . N O T I M P L
0031200 E M E N T E D 4 ) \r
0031220 ( R C O D E . R E F U S E D
0031240 5 ) ) \r ) \r \r ( R P A Q Q 006
0031260 002 D O M A I N . R R T Y P E S 006
0031300 001 ( ( R R T Y P E . A 1 ) \r
0031320
0031340 ( R R T Y P E . N
0031360 S 2 ) \r
0031400 ( R R T
0031420 Y P E . M D 3 ) \r
0031440
0031460 ( R R T Y P E . M F 4 ) \r
0031500
0031520 ( R R T Y P E . C N
0031540 A M E 5 ) \r
0031560 ( R
0031600 R T Y P E . S O A 6 ) \r
0031620
0031640 ( R R T Y P E . M B 7
0031660 ) \r
0031700 ( R R T Y P E
0031720 . M G 8 ) \r
0031740 ( R
0031760 R T Y P E . M R 9 ) \r
0032000
0032020 ( R R T Y P E . N U L L
0032040 1 0 ) \r
0032060 ( R R T Y
0032100 P E . W K S 1 1 ) \r
0032120
0032140 ( R R T Y P E . P T R 1 2
0032160 ) \r
0032200 ( R R T Y P E
0032220 . H I N F O 1 3 ) \r
0032240
0032260 ( R R T Y P E . M I N F O
0032300 1 4 ) \r
0032320 ( R R T Y
0032340 P E . M X 1 5 ) ) ) \r ( D E C
0032360 L A R E % : E V A L @ C O M P
0032400 I L E \r \r ( R P A Q Q 006 002 R
0032420 R T Y P E . A 006 001 1 ) \r \r ( R
0032440 P A Q Q 006 002 R R T Y P E . N S
0032460 006 001 2 ) \r \r ( R P A Q Q 006 002
0032500 R R T Y P E . M D 006 001 3 ) \r \r
0032520 ( R P A Q Q 006 002 R R T Y P E .
0032540 M F 006 001 4 ) \r \r ( R P A Q Q
0032560 006 002 R R T Y P E . C N A M E 006 001
0032600 5 ) \r \r ( R P A Q Q 006 002 R R
0032620 T Y P E . S O A 006 001 6 ) \r \r (
0032640 R P A Q Q 006 002 R R T Y P E . M
0032660 B 006 001 7 ) \r \r ( R P A Q Q 006
0032700 002 R R T Y P E . M G 006 001 8 ) \r
0032720 \r ( R P A Q Q 006 002 R R T Y P E
0032740 . M R 006 001 9 ) \r \r ( R P A Q Q
0032760 006 002 R R T Y P E . N U L L 006 001
0033000 1 0 ) \r \r ( R P A Q Q 006 002 R
0033020 R T Y P E . W K S 006 001 1 1 ) \r
0033040 \r ( R P A Q Q 006 002 R R T Y P E
0033060 . P T R 006 001 1 2 ) \r \r ( R P A
0033100 Q Q 006 002 R R T Y P E . H I N F
0033120 O 006 001 1 3 ) \r \r ( R P A Q Q
0033140 006 002 R R T Y P E . M I N F O 006 001
0033160 1 4 ) \r \r ( R P A Q Q 006 002 R
0033200 R T Y P E . M X 006 001 1 5 ) \r \r
0033220 ( C O N S T A N T S ( R R T Y
0033240 P E . A 1 ) \r (
0033260 R R T Y P E . N S 2 ) \r
0033300 ( R R T Y P E . M D 3
0033320 ) \r ( R R T Y P E
0033340 . M F 4 ) \r ( R
0033360 R T Y P E . C N A M E 5 ) \r
0033400 ( R R T Y P E . S O
0033420 A 6 ) \r ( R R T
0033440 Y P E . M B 7 ) \r
0033460 ( R R T Y P E . M G 8 ) \r
0033500 ( R R T Y P E . M R
0033520 9 ) \r ( R R T Y
0033540 P E . N U L L 1 0 ) \r
0033560 ( R R T Y P E . W K S 1
0033600 1 ) \r ( R R T Y P
0033620 E . P T R 1 2 ) \r
0033640 ( R R T Y P E . H I N F O 1
0033660 3 ) \r ( R R T Y P
0033700 E . M I N F O 1 4 ) \r
0033720 ( R R T Y P E . M X 1 5
0033740 ) ) \r ) \r \r ( R P A Q Q 006 002 D
0033760 O M A I N . C L A S S T Y P E S
0034000 006 001 ( ( C L A S S T Y P E . I
0034020 N 1 ) \r
0034040 (
0034060 C L A S S T Y P E . C S N E T
0034100 2 ) \r
0034120 ( C L
0034140 A S S T Y P E . C H A O S 3 )
0034160 ) ) \r ( D E C L A R E % : E V
0034200 A L @ C O M P I L E \r \r ( R P
0034220 A Q Q 006 002 C L A S S T Y P E .
0034240 I N 006 001 1 ) \r \r ( R P A Q Q
0034260 006 002 C L A S S T Y P E . C S N E
0034300 T 006 001 2 ) \r \r ( R P A Q Q 006
0034320 002 C L A S S T Y P E . C H A O S
0034340 006 001 3 ) \r \r ( C O N S T A N T
0034360 S ( C L A S S T Y P E . I N
0034400 1 ) \r ( C L A S S
0034420 T Y P E . C S N E T 2 ) \r
0034440 ( C L A S S T Y P E .
0034460 C H A O S 3 ) ) \r ) \r ( D E C
0034500 L A R E % : E V A L @ C O M P
0034520 I L E \r \r ( R P A Q Q 006 002 \
0034540 D O M A I N . P O R T 006 001 5 3
0034560 ) \r \r ( C O N S T A N T S ( \
0034600 D O M A I N . P O R T 5 3 ) )
0034620 \r ) \r \r ( * " E N D E X P O
0034640 R T E D D E F I N I T I O N S
0034660 " ) \r \r ) \r \r ( R P A Q ? 006 002
0034700 \ D O M A I N . D E F A U L T .
0034720 S E R V E R 006 001 ) \r ( D E C L
0034740 A R E % : D O E V A L @ C O M
0034760 P I L E D O N T C O P Y \r \r (
0035000 G L O B A L V A R S \ D O M A
0035020 I N . D E F A U L T . S E R V E
0035040 R ) \r ) \r ( D E F I N E Q \r \r (
0035060 006 004 \ D O M A I N . N A M E 006 001
0035100 \r [ L A M B D A ( D O M A
0035120 I N . T R E E . N O D E ) 006 006 006
0035140 001
0035160
0035200 006 006 ( * e j s % : " 1 3
0035220 - A p r - 8 6 1 5 : 3 8 " ) 006
0035240 001 \r \r
0035260 006 006 ( * * G e
0035300 n e r a t e a l i s t o f
0035320 d o m a i n n a m e s a l
0035340 o n g t h e p a t h t o
0035360 t h e r o o t o f t h e
0035400 d o m a i n \r 006 001
0035420 006 006 t r e e ) 006 001 \r \r
0035440 ( C O N D \r
0035460 ( ( N U L L ( 006 002 f e t c h 006
0035500 001 ( D O M A I N . T R E E . N
0035520 O D E S U P E R D O M A I N )
0035540 006 002 o f 006 001 D O M A I N . T
0035560 R E E . N O D E ) ) \r
0035600 N I L ) \r (
0035620 T ( L E T [ ( S U F F I X
0035640 ( 006 002 \ D O M A I N . N A M E 006
0035660 001 ( 006 002 f e t c h 006 001 ( D O
0035700 M A I N . T R E E . N O D E S
0035720 U P E R D O M A I N ) 006 002 o f
0035740 006 001 D O M A I N . T R E E . N
0035760 O D E ] \r
0036000 ( C O N D \r
0036020 ( S U F
0036040 F I X ( C O N C A T ( 006 002 f
0036060 e t c h 006 001 ( D O M A I N . T
0036100 R E E . N O D E N A M E ) 006
0036120 002 o f 006 001 D O M A I N . T R E
0036140 E . N O D E ) \r
0036160
0036200 " . " S U F
0036220 F I X ) ) \r
0036240 ( T ( 006 002 f e
0036260 t c h 006 001 ( D O M A I N . T R
0036300 E E . N O D E N A M E ) 006 002
0036320 o f 006 001 D O M A I N . T R E E
0036340 . N O D E ] ) \r \r ( 006 004 \ D O M
0036360 A I N . P A C K . N A M E . L I
0036400 S T 006 001 \r [ L A M B D A (
0036420 L I S T ) 006 006 006 001
0036440
*
0036500 006 006 ( * e j s % :
0036520 " 1 2 - A p r - 8 6 2 0 : 2
0036540 9 " ) 006 001 \r ( C O N D \r
0036560 ( ( L I S T P L
0036600 I S T ) \r ( L E
0036620 T [ ( D O M A I N . N A M E
0036640 ( A L L O C S T R I N G ( I P
0036660 L U S ( S U B 1 ( L E N G T
0036700 H L I S T ) ) \r
0036720
*
0036760 ( 006 002 f o r 006 001
0037000 N A M E 006 002 i n 006 001 L I S
0037020 T 006 002 s u m 006 001 ( N C H A R
0037040 S N A M E ] \r
0037060 [ 006 002 b i n d 006 001 (
0037100 I _ 1 ) 006 002 f o r 006 001 N
0037120 A M E 006 002 i n 006 001 L I S T
0037140 006 002 d o 006 001 ( R P L S T R I N
0037160 G D O M A I N . N A M E I
0037200 N A M E ) \r
0037220
*
0037260 ( 006 002 a d d 006 001 I
0037300 ( N C H A R S N A M E ) ) \r
0037320
*
0037360 ( C
0037400 O N D \r
0037420
*
0037460 ( ( I L E S S P I
0037500 ( N C H A R S D O M A I N .
0037520 N A M E ) ) \r
0037540
*
0037600 ( R P L C H
0037620 A R C O D E D O M A I N . N A
0037640 M E I ( C H A R C O D E %
0037660 . ) ) \r
0037700
*
0037740 ( 006 002 a d d 006 001
0037760 I 1 ] \r
0040000 D O M A I N . N A M E ) ) \r
0040020 ( T ( A L L O C
0040040 S T R I N G 0 ] ) \r \r ( 006 004 \
0040060 D O M A I N . P A R S E . N A M
0040100 E 006 001 \r [ L A M B D A ( N
0040120 A M E ) 006 006 006 001
0040140
*
0040200 006 006 ( * e j s % :
0040220 " 1 2 - A p r - 8 6 1 8 : 1 1
0040240 " ) 006 001 \r \r
0040260 006 006 ( * *
0040300 T h i s f u n c t i o n p
0040320 a r s e s a d o m a i n n
0040340 a m e ( e . g . \r 006 001
0040360 006 006 S U M E X . S T
0040400 A N F O R D . E D U ) % , a n
0040420 d r e t u r n s a l i s t
0040440 o f d o m a i n l a b e l
0040460 s \r 006 001 006 006
0040500 ( S U M E X S T A N F O R D
0040520 E D U ) ) 006 001 \r \r ( 006 002
0040540 b i n d 006 001 ( S C R A T C H S
0040560 T R I N G _ ( C O N S T A N
0040600 T ( A L L O C S T R I N G 6
0040620 3 ) ) ) \r N
0040640 A M E L I S T \r
0040660 ( L E N G T H _ 0 ) 006
0040700 002 f o r 006 001 C H A R 006 002 i n
0040720 s t r i n g 006 001 ( M K S T R I
0040740 N G N A M E ) \r
0040760 006 002 d o 006 001 ( C O N D \r
0041000 [ ( E Q C
0041020 H A R ( C H A R C O D E % .
0041040 ) ) \r
0041060 ( C O N D \r
0041100 ( ( N E Q 0
0041120 L E N G T H ) \r
0041140 [ S E T Q
0041160 N A M E L I S T ( N C O N C 1
0041200 N A M E L I S T ( C O N C A
0041220 T ( S U B S T R I N G S C R
0041240 A T C H S T R I N G 1 L E N
0041260 G T H ] \r
0041300 ( S E T Q L E N
0041320 G T H 0 ] \r
0041340 ( ( I G R E A T E R P
0041360 L E N G T H 6 3 ) \r
0041400 ( E R R O R
0041420 " D o m a i n n a m e t o o
0041440 l o n g " S C R A T C H S T
0041460 R I N G ) ) \r
0041500 ( T ( R P L C H A R C
0041520 O D E S C R A T C H S T R I N
0041540 G ( 006 002 a d d 006 001 L E N G T
0041560 H 1 ) \r
0041600 C H A R
0041620 ) ) ) 006 002 f i n a l l y 006 001
0041640 ( R E T U R N ( C O N D \r
0041660
*
0041740 [ ( N E Q L E N G T H 0 ) \r
0041760
*
0042040 ( N C O N C 1 N A M E L
0042060 I S T ( C O N C A T ( S U B
0042100 S T R I N G S C R A T C H S T
0042120 R I N G \r
0042140
*
0042240 1 L E N G T
0042260 H ] \r
0042300
*
0042340 ( T N A M E L I S T
0042360 ] ) \r \r ( 006 004 \ D O M A I N . R
0042400 C O D E . E R R O R 006 001 \r [
0042420 L A M B D A ( C O D E ) 006 006 006
0042440 001
0042460
0042500 006 006
0042520 ( * e j s % : " 1 2 - A p r
0042540 - 8 6 1 9 : 1 5 " ) 006 001 \r
0042560 ( S E L E C T C C O D E \r
0042600 ( R C O D E . O
0042620 K ' O K ) \r (
0042640 R C O D E . F O R M A T E R R O
0042660 R \r
0042700 ' F O R M A T . E R R O R ) \r
0042720 ( R C O D E . S E
0042740 R V E R F A I L E D \r
0042760 ' S E R V E R
0043000 . F A I L E D ) \r
0043020 ( R C O D E . N A M E E R R O
0043040 R \r
0043060 ' N A M E . E R R O R ) \r
0043100 ( R C O D E . N O T I
0043120 M P L E M E N T E D \r
0043140 ' N O T . I M
0043160 P L E M E N T E D ) \r
0043200 ( R C O D E . R E F U S E
0043220 D ' R E F U S E D ) \r
0043240 N I L ] ) \r \r ( 006 004 \ D
0043260 O M A I N . P R O C E S S . R E
0043300 D I R E C T 006 001 \r [ L A M B
0043320 D A ( S T R E A M ) 006 006 006 001
0043340
*
0043400 006 006 ( * e
0043420 j s % : " 1 2 - A p r - 8 6
0043440 2 1 : 0 4 " ) 006 001 \r
0043460 \r 006
0043500 006 ( * * S k i p p a s t
0043520 t h e h e a d e r a n d q
0043540 u e r y s e c t i o n t o
0043560 g e t t o t h e a n s w e
0043600 r s e c t i o n ) 006 001 \r
0043620 \r
0043640 006 006 ( * * P a s t I D
0043660 a n d f l a g s i n h e
0043700 a d e r ) 006 001 \r \r ( \ W
0043720 I N S T R E A M ) \r (
0043740 \ W I N S T R E A M ) \r
0043760 ( L E T ( ( % # Q U E S T I
0044000 O N S ( \ W I N S T R E A M
0044020 ) ) \r ( % #
0044040 A N S W E R S ( \ W I N S T
0044060 R E A M ) ) \r
0044100 ( % # N S E R V E R S ( \ W
0044120 I N S T R E A M ) ) \r
0044140 ( % # A D D I T I O
0044160 N A L ( \ W I N S T R E A M
0044200 ) ) ) \r \r
0044220 006 006 ( * *
0044240 P a s t q u e s t i o n s ) 006
0044260 001 \r \r ( 006 002 f
0044300 o r 006 001 I 006 002 f r o m 006 001
0044320 1 006 002 t o 006 001 % # Q U E S T
0044340 I O N S 006 002 d o 006 001 ( 006 002 \
0044360 D O M A I N . S K I P . Q U E S
0044400 T I O N 006 001 S T R E A M ) ) \r
0044420 \r
0044440 006 006 ( * * C o l l
0044460 e c t a n s w e r s ) 006 001 \r \r
0044500 ( 006 002 f o r 006
0044520 001 I 006 002 f r o m 006 001 1 006
0044540 002 t o 006 001 % # A N S W E R S
0044560 006 002 c o l l e c t 006 001 ( 006 002 \
0044600 D O M A I N . S K I P . R R 006 001
0044620 S T R E A M ) ) \r
0044640 \r 006
0044660 006 ( * * C o l l e c t r e
0044700 s t ) 006 001 \r \r
0044720 ( A P P E N D ( 006 002 f o r 006 001
0044740 I 006 002 f r o m 006 001 1 006 002
0044760 t o 006 001 % # N S E R V E R S
0045000 006 002 c o l l e c t 006 001 ( 006 002 \
0045020 D O M A I N . P R O C E S S . R
0045040 R 006 001 S T R E A M ) ) \r
0045060 ( 006 002
0045100 f o r 006 001 I 006 002 f r o m 006 001
0045120 1 006 002 t o 006 001 % # A D D I
0045140 T I O N A L 006 002 c o l l e c t
0045160 006 001 ( 006 002 \ D O M A I N . P R
0045200 O C E S S . R R 006 001 S T R E A
0045220 M ] ) \r \r ( 006 004 \ D O M A I N .
0045240 P R O C E S S . R E S P O N S E
0045260 006 001 \r [ L A M B D A ( S T
0045300 R E A M ) 006 006 006 001
0045320
*
0045360 006 006 ( * e j s % : "
0045400 1 2 - A p r - 8 6 1 9 : 5 8 "
0045420 ) 006 001 \r \r
0045440 006 006 ( * *
0045460 S k i p p a s t t h e h e
0045500 a d e r a n d q u e r y s
0045520 e c t i o n t o g e t t o
0045540 t h e a n s w e r s e c t
0045560 i o n ) 006 001 \r
0045600 \r 006 006 ( *
0045620 * P a s t I D a n d f
0045640 l a g s i n h e a d e r ) 006
0045660 001 \r \r ( \ W I N S T R
0045700 E A M ) \r ( \ W I N S
0045720 T R E A M ) \r ( L E T
0045740 ( ( % # Q U E S T I O N S ( \
0045760 W I N S T R E A M ) ) \r
0046000 ( % # A N S W E R
0046020 S ( \ W I N S T R E A M ) )
0046040 ) \r \r
0046060 006 006 ( * * P a
0046100 s t r e s t o f h e a d e
0046120 r ) 006 001 \r \r (
0046140 \ W I N S T R E A M ) \r
0046160 ( \ W I N S T R E
0046200 A M ) \r \r
0046220 006 006 ( * *
0046240 P a s t q u e s t i o n s ) 006
0046260 001 \r \r ( 006 002 f
0046300 o r 006 001 I 006 002 f r o m 006 001
0046320 1 006 002 t o 006 001 % # Q U E S T
0046340 I O N S 006 002 d o 006 001 ( 006 002 \
0046360 D O M A I N . S K I P . Q U E S
0046400 T I O N 006 001 S T R E A M ) ) \r
0046420 \r
0046440 006 006 ( * * C o l l
0046460 e c t a n s w e r s ) 006 001 \r \r
0046500 ( 006 002 f o r 006
0046520 001 I 006 002 f r o m 006 001 1 006
0046540 002 t o 006 001 % # A N S W E R S
0046560 006 002 c o l l e c t 006 001 ( 006 002 \
0046600 D O M A I N . P R O C E S S . R
0046620 R 006 001 S T R E A M ] ) \r \r ( 006
0046640 004 \ D O M A I N . P R O C E S S
0046660 . R R 006 001 \r [ L A M B D A
0046700 ( S T R E A M ) 006 006 006 001
0046720
*
0046760 006 006 ( * e j s %
0047000 : " 1 3 - A p r - 8 6 1 7 :
0047020 0 9 " ) 006 001 \r
0047040 \r 006 006 ( *
0047060 * P r o c e s s a r e s
0047100 o u r c e r e c o r d b e g
0047120 i n n i n g a t t h e c u
0047140 r r e n t p o i n t i n t
0047160 h e s t r e a m ) 006 001 \r \r
0047200 ( L E T ( ( N A M E ( 006
0047220 002 \ D O M A I N . R E A D . N A
0047240 M E . F R O M . S T R E A M 006 001
0047260 S T R E A M ) ) \r
0047300 ( T Y P E ( \ W I N
0047320 S T R E A M ) ) \r
0047340 ( C L A S S ( \ W I N
0047360 S T R E A M ) ) \r
0047400 ( T T L ( \ M A K E N U
0047420 M B E R ( \ W I N S T R E A
0047440 M ) \r
0047460 ( \ W I N S
0047500 T R E A M ) ) ) \r
0047520 ( R D L E N ( \ W I N
0047540 S T R E A M ) ) \r
0047560 A N S W E R ) \r
0047600 [ S E T Q A N S W E R
0047620 ` ( N A M E % , N A M E
0047640 T Y P E % , T Y P E C L A
0047660 S S % , C L A S S T T L
0047700 % , T T L D A T A % , \r
0047720
0047740 ( S E L
0047760 E C T C T Y P E \r
0050000
0050020 ( R R T Y
0050040 P E . A ( 006 002 \ D O M A I N .
0050060 R E A D . A D D R E S S 006 001 S
0050100 T R E A M C L A S S ( F O L
0050120 D L O R D L E N \r
0050140
*
0050260 B Y T E S P E R C E L L ) ) ) \r
0050300
*
0050340 ( ( L I S T R R T Y P E . C
0050360 N A M E R R T Y P E . N S )
0050400 \r
0050420
0050440 ( 006 002 \ D O M A I
0050460 N . R E A D . N A M E . F R O M
0050500 . S T R E A M 006 001 S T R E A M
0050520 ) ) \r
0050540
0050560 ( R R T Y P E . H I N F
0050600 O ( C O N S ( 006 002 \ D O M A
0050620 I N . R E A D . S T R I N G . F
0050640 R O M . S T R E A M 006 001 S T R
0050660 E A M ) \r
0050700
*
0050740 ( 006 002 \ D O
0050760 M A I N . R E A D . S T R I N G
0051000 . F R O M . S T R E A M 006 001 S
0051020 T R E A M ) ) ) \r
0051040
0051060 ( P R O G N
0051100 ( 006 002 f o r 006 001 I 006 002 f r
0051120 o m 006 001 1 006 002 t o 006 001 R D
0051140 L E N 006 002 d o 006 001 ( B I N
0051160 S T R E A M ) ) \r
0051200
*
0051240 N I L ] \r [
0051260 C O N D \r
0051300 ( D O M A I N . T R A C E . F
0051320 L G ( F R E S H L I N E D O
0051340 M A I N . T R A C E . F I L E
0051360 ( p r i n t o u t D O M A I N
0051400 . T R A C E . F I L E \r
0051420
*
0051500 "
0051520 A n s w e r r e c e i v e d :
0051540 " A N S W E R ] \r
0051560 A N S W E R ] ) \r \r ( 006
0051600 004 \ D O M A I N . R E A D . A D
0051620 D R E S S 006 001 \r [ L A M B D
0051640 A ( S T R E A M C L A S S
0051660 % # A D D R E S S E S ) 006 006 006 001
0051700
0051720 006 006 ( * e j
0051740 s % : " 1 2 - A p r - 8 6 2
0051760 0 : 5 6 " ) 006 001 \r ( S E
0052000 L E C T C C L A S S \r
0052020 ( C L A S S T Y P E . I
0052040 N [ C O N D \r
0052060
0052100 ( ( E Q % # A D D R E S S E
0052120 S 0 ) \r
0052140 N
0052160 I L ) \r
0052200 [ ( N
0052220 E Q % # A D D R E S S E S 1
0052240 ) \r
0052260 ( 006 002 f
0052300 o r 006 001 I 006 002 f r o m 006 001
0052320 1 006 002 t o 006 001 % # A D D R E
0052340 S S E S 006 002 c o l l e c t 006 001
0052360 ( \ M A K E N U M B E R ( \
0052400 W I N S T R E A M ) \r
0052420
*
0052520 ( \ W I N S T R E A M ] \r
0052540
0052560 ( T ( \ M A
0052600 K E N U M B E R ( \ W I N S
0052620 T R E A M ) \r
0052640
0052660 ( \ W I N
0052700 S T R E A M ] ) \r
0052720 N I L ] ) \r \r ( 006 004 \ D O M A
0052740 I N . R E A D . N A M E . F R O
0052760 M . S T R E A M 006 001 \r [ L A
0053000 M B D A ( S T R E A M ) 006 006 006
0053020 001
0053040
0053060 006 006 ( *
0053100 e j s % : " 1 2 - A p r - 8
0053120 6 2 0 : 5 4 " ) 006 001 \r
0053140 ( 006 002 b i n d 006 001 N A M E L E
0053160 N N A M E L S T 006 002 u n t i
0053200 l 006 001 ( E Q 0 ( S E T Q
0053220 N A M E L E N ( B I N S T R
0053240 E A M ) ) ) \r 006 002
0053260 d o 006 001 [ C O N D \r
0053300 [ ( E Q 3 (
0053320 L R S H N A M E L E N 6 ) )
0053340 \r \r
0053360 006 006 ( * * P r o
0053400 c e s s a p o i n t e r r
0053420 e d i r e c t i o n ) 006 001 \r \r
0053440 ( L E
0053460 T ( ( C O N T I N U A T I O N
0053500 A D D R ( 006 002 c r e a t e 006 001
0053520 W O R D \r
0053540
*
0053600 H I B Y T E _ ( L O G
0053620 A N D N A M E L E N ( M A S
0053640 K . 1 ' S 0 6 ) ) \r
0053660
*
0053720 L O B Y T E
0053740 _ ( B I N S T R E A M ) ) )
0053760 \r
0054000 ( S T R E A M P T R
0054020 ( G E T F I L E P T R S T R E
0054040 A M ) ) ) \r
0054060 ( S E T F I L
0054100 E P T R S T R E A M C O N T
0054120 I N U A T I O N A D D R ) \r
0054140
0054160 ( R E T U R N ( P R O G 1
0054200 ( C O N D \r
0054220
0054240 ( N A M E
0054260 L S T ( C O N C A T ( 006 002 \
0054300 D O M A I N . P A C K . N A M E
0054320 . L I S T 006 001 ( D R E V E R S
0054340 E N A M E L S T ) ) \r
0054360
*
0054440 " . " \r
0054460
*
0054520 ( 006 002 \ D O
0054540 M A I N . R E A D . N A M E . F
0054560 R O M . S T R E A M 006 001 S T R
0054600 E A M ) ) ) \r
0054620
0054640 ( T (
0054660 006 002 \ D O M A I N . R E A D . N
0054700 A M E . F R O M . S T R E A M 006
0054720 001 S T R E A M ) ) ) \r
0054740
0054760 ( S
0055000 E T F I L E P T R S T R E A M
0055020 S T R E A M P T R ] \r
0055040 ( T \r
0055060 \r
0055100 006 006 ( * * N o r m a l
0055120 n a m e s e g m e n t ) 006 001 \r
0055140 \r
0055160 ( L E T ( ( N A M E ( A L
0055200 L O C S T R I N G N A M E L E
0055220 N ) ) ) \r
0055240 ( \ B I N S
0055260 S T R E A M ( 006 002 f e t c h
0055300 006 001 ( S T R I N G P B A S E
0055320 ) 006 002 o f 006 001 N A M E ) \r
0055340
0055360 ( 006 002 f e
0055400 t c h 006 001 ( S T R I N G P O
0055420 F F S T ) 006 002 o f 006 001 N A M
0055440 E ) \r
0055460 N
0055500 A M E L E N ) \r
0055520 ( 006 002
0055540 p u s h 006 001 N A M E L S T N
0055560 A M E ] 006 002 f i n a l l y 006 001
0055600 ( R E T U R N ( 006 002 \ D O M
0055620 A I N . P A C K . N A M E . L I
0055640 S T 006 001 ( D R E V E R S E N
0055660 A M E L S T ] ) \r \r ( 006 004 \ D O
0055700 M A I N . R E A D . S T R I N G
0055720 . F R O M . S T R E A M 006 001 \r
0055740 [ L A M B D A ( S T R E A M
0055760 ) 006 006 006 001
0056000
*
0056040 006 006 ( * e j s % : " 1 3 - A
0056060 p r - 8 6 0 2 : 3 3 " ) 006 001 \r
0056100 ( L E T * ( ( N A M E
0056120 L E N ( B I N S T R E A M )
0056140 ) \r ( S T
0056160 R I N G ( A L L O C S T R I N
0056200 G N A M E L E N ) ) ) \r
0056220 ( 006 002 f o r 006 001
0056240 I 006 002 f r o m 006 001 1 006 002 t
0056260 o 006 001 N A M E L E N 006 002 d o
0056300 006 001 ( R P L C H A R C O D E
0056320 S T R I N G I ( B I N S T
0056340 R E A M ) ) ) \r
0056360 S T R I N G ] ) \r \r ( 006 004 \
0056400 D O M A I N . S E A R C H . F O
0056420 R . C A N O N I C A L . N A M E
0056440 006 001 \r [ L A M B D A ( N A
0056460 M E R R L S T ) 006 006 006 001
0056500
*
0056540 006 006 ( * e j s % : "
0056560 1 4 - N o v - 8 6 1 4 : 4 4 "
0056600 ) 006 001 \r ( 006 002 b i n d 006
0056620 001 F O U N D I T D A T A 006
0056640 002 f o r 006 001 R R 006 002 i n 006 001
0056660 R R L S T 006 002 t h e r e i s
0056700 006 001 ( A N D ( E Q R R T Y
0056720 P E . C N A M E ( L I S T G E
0056740 T R R ' T Y P E ) ) \r
0056760
*
0057040 ( 006 002 D O M A I N . N A M E .
0057060 E Q U A L 006 001 ( L I S T G E T
0057100 R R ' N A M E ) \r
0057120
*
0057200 N A M E ) \r
0057220
*
0057300 ( S E T Q F O U N D I T T )
0057320 ) \r 006 002 f i n a l
0057340 l y 006 001 ( R E T U R N ( A N
0057360 D F O U N D I T ( L I S T G
0057400 E T R R ' D A T A ] ) \r \r (
0057420 006 004 \ D O M A I N . S K I P . N
0057440 A M E . I N . S T R E A M 006 001 \r
0057460 [ L A M B D A ( S T R E A
0057500 M ) 006 006 006 001
0057520
*
0057560 006 006 ( * e j s % : " 1 2 -
0057600 A p r - 8 6 2 1 : 0 6 " ) 006 001
0057620 \r ( 006 002 b i n d 006 001 N
0057640 A M E L E N N A M E L S T 006
0057660 002 u n t i l 006 001 ( E Q 0 (
0057700 S E T Q N A M E L E N ( B I
0057720 N S T R E A M ) ) ) \r
0057740 006 002 d o 006 001 ( C O N D \r
0057760 ( ( E
0060000 Q 3 ( L R S H N A M E L E
0060020 N 6 ) ) \r
0060040 \r 006 006 ( *
0060060 * P r o c e s s a p o i n
0060100 t e r r e d i r e c t i o n )
0060120 006 001 \r \r
0060140 ( B I N S T R E A M ) ) \r
0060160 ( T
0060200 \r \r
0060220 006 006 ( * * N o r
0060240 m a l n a m e s e g m e n t
0060260 ) 006 001 \r \r
0060300 ( 006 002 f o r 006 001 I
0060320 006 002 f r o m 006 001 1 006 002 t o 006
0060340 001 N A M E L E N 006 002 d o 006 001
0060360 ( B I N S T R E A M ] ) \r \r
0060400 ( 006 004 \ D O M A I N . S K I P .
0060420 Q U E S T I O N 006 001 \r [ L A
0060440 M B D A ( S T R E A M ) 006 006 006
0060460 001
0060500
0060520 006 006 ( *
0060540 e j s % : " 1 2 - A p r - 8
0060560 6 2 1 : 0 6 " ) 006 001 \r
0060600 \r
0060620 006 006 ( * * S k i p o v e
0060640 r a q u e s t i o n s e c
0060660 t i o n - - c o m p o s e d o
0060700 f c o m p r e s s e d n a m
0060720 e , Q T Y P E , a n d \r 006
0060740 001 006 006 Q C L
0060760 A S S f i e l d s ) 006 001 \r \r
0061000 ( 006 002 \ D O M A I N . S K
0061020 I P . N A M E . I N . S T R E A
0061040 M 006 001 S T R E A M ) \r
0061060 ( \ W I N S T R E A M ) \r
0061100 ( \ W I N S T R E A M ] )
0061120 \r \r ( 006 004 \ D O M A I N . S K I
0061140 P . R R 006 001 \r [ L A M B D A
0061160 ( S T R E A M ) 006 006 006 001
0061200
*
0061240 006 006 ( * e j s
0061260 % : " 1 2 - A p r - 8 6 2 1
0061300 : 1 0 " ) 006 001 \r
0061320 \r 006 006 (
0061340 * * S k i p a r e s o u
0061360 r c e r e c o r d b e g i n
0061400 n i n g a t t h e c u r r
0061420 e n t p o i n t i n t h e
0061440 s t r e a m ) 006 001 \r
0061460 \r
0061500 006 006 ( * * N a m e ) 006 001 \r \r
0061520 ( 006 002 \ D O M A I N . S
0061540 K I P . N A M E . I N . S T R E
0061560 A M 006 001 S T R E A M ) \r
0061600 \r
0061620 006 006 ( * * T y p e ) 006 001
0061640 \r \r ( \ W I N S T R E
0061660 A M ) \r \r
0061700 006 006 ( * *
0061720 C l a s s ) 006 001 \r \r ( \
0061740 W I N S T R E A M ) \r
0061760 \r
0062000 006 006 ( * * T i m e t o
0062020 L i v e ) 006 001 \r \r ( \ W
0062040 I N S T R E A M ) \r (
0062060 \ W I N S T R E A M ) \r
0062100 \r
0062120 006 006 ( * * R D A T A L
0062140 e n g t h ) 006 001 \r \r ( 006
0062160 002 f o r 006 001 I 006 002 f r o m 006
0062200 001 0 006 002 t o 006 001 ( \ W I N
0062220 S T R E A M ) 006 002 d o 006 001
0062240 ( B I N S T R E A M ] ) \r ) \r
0062260 \r \r \r 006 004 ( * ; ; " F u n c
0062300 t i o n s t o m a i n t a i
0062320 n t h e d o m a i n t r e
0062340 e s t r u c t u r e " ) 006 001 \r
0062360 \r ( D E C L A R E % : E V A L
0062400 @ C O M P I L E \r \r ( D A T A T
0062420 Y P E 006 002 D O M A I N . T R E
0062440 E . N O D E 006 001 ( ( N A M E
0062460 P O I N T E R )
0062500 006 006 ( *
0062520 T h e n a m e o f t h i s
0062540 d o m a i n ) 006 001 \r
0062560
0062600 ( S U B D O M A I
0062620 N S P O I N T E R )
0062640 006 006 ( * L i s
0062660 t o f d o m a i n s i n f
0062700 e r i o r t o t h i s \r 006
0062720 001
0062740
*
0063000 006 006
0063020 o n e ) 006 001 \r
0063040
0063060 ( S U P E R D O M A I N
0063100 P O I N T E R )
0063120 006 006 ( * T h e d o m
0063140 a i n o f w h i c h t h i
0063160 s d o m a i n i s \r 006 001
0063200
*
0063260 006 006 a
0063300 p a r t ) 006 001 \r
0063320
0063340 ( N A M E S E R V E R S
0063360 P O I N T E R )
0063400 006 006 ( * T h e l i
0063420 s t o f d e s i g n a t e d
0063440 n a m e s e r v e r s \r 006
0063460 001
0063500
*
0063540 006 006
0063560 f o r t h i s d o m a i n )
0063600 006 001 \r
0063620 )
0063640 ) \r \r ( R E C O R D 006 002 D O M
0063660 A I N . S E R V E R 006 001 ( N A
0063700 M E A D D R E S S E S E X P
0063720 I R A T I O N . D A T E F O R
0063740 . D O M A I N S A V G . S V C
0063760 . T I M E ) \r
0064000 A V G
0064020 . S V C . T I M E _ 0 ) \r )
0064040 \r ( / D E C L A R E D A T A T Y
0064060 P E ' D O M A I N . T R E E .
0064100 N O D E ' ( P O I N T E R P
0064120 O I N T E R P O I N T E R P
0064140 O I N T E R ) ' ( ( D O M A I
0064160 N . T R E E . N O D E 0 P O
0064200 I N T E R ) \r
0064220
*
0064320 ( D O M A I N . T R E E . N O D
0064340 E 2 P O I N T E R ) \r
0064360
*
0064460 ( D O M A I N . T R
0064500 E E . N O D E 4 P O I N T E
0064520 R ) \r
0064540
*
0064620 ( D O M
0064640 A I N . T R E E . N O D E 6
0064660 P O I N T E R ) \r
0064700
*
0065000 ) ' 8 ) \r ( / D E C L A R
0065020 E D A T A T Y P E ' D O M A I
0065040 N . T R E E . N O D E ' ( P O
0065060 I N T E R P O I N T E R P O
0065100 I N T E R P O I N T E R ) '
0065120 ( ( D O M A I N . T R E E . N O
0065140 D E 0 P O I N T E R ) \r
0065160
*
0065260 ( D O M A I N . T
0065300 R E E . N O D E 2 P O I N T
0065320 E R ) \r
0065340
*
0065420 ( D O
0065440 M A I N . T R E E . N O D E 4
0065460 P O I N T E R ) \r
0065500
*
0065600 ( D O M A I N . T R E E .
0065620 N O D E 6 P O I N T E R ) \r
0065640
*
0065740 ) ' 8 ) \r (
0065760 D E F I N E Q \r \r ( 006 004 U S T R
0066000 I N G H A S H B I T S 006 001 \r
0066020 [ L A M B D A ( S T R I N G )
0066040 006 006 006 001
0066060
0066100 006
0066120 006 ( * e j s % : " 5 - N o
0066140 v - 8 6 1 3 : 2 0 " ) 006 001 \r
0066160 ( 006 002 f o r 006 001 C 006 002
0066200 i n t h i n s t r i n g 006 001 (
0066220 M K S T R I N G S T R I N G )
0066240 006 002 b i n d 006 001 ( H A S H B
0066260 I T S _ 0 ) \r
0066300 006 002 d o 006 001 [ S E T Q H A S
0066320 H B I T S ( I P L U S 1 6 (
0066340 E L T U P P E R C A S E A R R
0066360 A Y C ) \r
0066400
0066420 ( I P L U S 1 6 (
0066440 S E T Q H A S H B I T S ( I
0066460 P L U S 1 6 H A S H B I T S
0066500 ( L L S H ( L O G A N D H A
0066520 S H B I T S 4 0 9 5 \r
0066540
*
0066660 ) \r
0066700
*
0067000 2 ) ) ) \r
0067020
*
0067060 ( L L S H ( L O G A N D H
0067100 A S H B I T S 2 5 5 ) \r
0067120
*
0067160 8 ] 006 002 f
0067200 i n a l l y 006 001 ( R E T U R N
0067220 H A S H B I T S ] ) \r ) \r \r (
0067240 R P A Q ? 006 002 \ D O M A I N .
0067260 R O O T 006 001 ( c r e a t e D
0067300 O M A I N . T R E E . N O D E
0067320 N A M E _ " " ) ) \r \r ( R P
0067340 A Q ? 006 002 \ D O M A I N . N A
0067360 M E S E R V E R S 006 001 ( H A S
0067400 H A R R A Y 5 0 1 . 2 ( F
0067420 U N C T I O N U S T R I N G H
0067440 A S H B I T S ) \r
0067460
0067500 ( F U N C
0067520 T I O N S T R I N G - E Q U A
0067540 L ) ) ) \r \r ( R P A Q ? 006 002 \
0067560 D O M A I N . U N K N O W N . D
0067600 O M A I N S 006 001 ) \r \r ( R P A
0067620 Q ? 006 002 \ D O M A I N . G C .
0067640 I N T E R V A L 006 001 6 0 0 0 0
0067660 0 ) \r \r ( R P A Q ? 006 002 \ D O
0067700 M A I N . G C . T I M E R 006 001
0067720 ( S E T U P T I M E R \ D O M
0067740 A I N . G C . I N T E R V A L )
0067760 ) \r ( D E C L A R E % : D O E
0070000 V A L @ C O M P I L E D O N T
0070020 C O P Y \r \r ( G L O B A L V A R
0070040 S \ D O M A I N . R O O T \
0070060 D O M A I N . N A M E S E R V E
0070100 R S \ D O M A I N . U N K N O
0070120 W N . D O M A I N S \ D O M A
0070140 I N . G C . T I M E R \r
0070160 \ D O M A I N . G C . I
0070200 N T E R V A L ) \r ) \r ( D E F I
0070220 N E Q \r \r ( 006 004 \ D O M A I N .
0070240 A D D . N E W . D O M A I N 006 001
0070260 \r [ L A M B D A ( N O D E
0070300 D O M A I N N A M E S E R V
0070320 E R A D D R E S S E S T T L
0070340 ) 006 006 006 001
0070360 006 006 ( * e j s % : " 2 5
0070400 - A p r - 8 6 1 2 : 2 5 " ) 006
0070420 001 \r \r
0070440 006 006 ( * * A d
0070460 d D O M A I N a s a s u
0070500 b d o m a i n o f N O D E ,
0070520 w i t h n a m e s e r v i
0070540 c e b y N A M E S E R V E R
0070560 , a t \r 006 001
0070600 006 006 a d d r e s s e s A D
0070620 D R E S S E S , w i t h e x
0070640 p i r a t i o n T T L s e c
0070660 o n d s f r o m n o w ) 006 001
0070700 \r \r ( L E T ( ( S U B
0070720 D O M A I N ( 006 002 c r e a t e
0070740 006 001 D O M A I N . T R E E . N
0070760 O D E \r
0071000
0071020 S U P E R D O M A I N _ N O
0071040 D E \r
0071060 N
0071100 A M E _ D O M A I N ) ) ) \r
0071120 ( 006 002 p u s h
0071140 006 001 ( 006 002 f e t c h 006 001 ( D
0071160 O M A I N . T R E E . N O D E
0071200 S U B D O M A I N S ) 006 002 o f
0071220 006 001 N O D E ) \r
0071240 S U B D O M A I
0071260 N ) \r [ C O N
0071300 D \r ( D
0071320 O M A I N . T R A C E . F L G
0071340 ( F R E S H L I N E D O M A I
0071360 N . T R A C E . F I L E ) \r
0071400
0071420 ( p r i n t o u t D O M A I
0071440 N . T R A C E . F I L E " A d
0071460 d i n g " D O M A I N "
0071500 a s s u b d o m a i n o f
0071520 " ( 006 002 \ D O M A I N . N A M
0071540 E 006 001 \r
0071560
*
0071660 N O D E ] \r
0071700 ( C O N D \r
0071720 ( N A M E S
0071740 E R V E R
0071760
0072000 006 006 ( *
0072020 A d d n a m e s e r v e r
0072040 i n f o r m a t i o n t o n
0072060 e w \r 006 001
0072100
*
0072160 006 006 s u b d o m a i n ) 006
0072200 001 \r
0072220 ( C O N D \r
0072240
0072260 ( D O M A I N . T R A C E . F
0072300 L G ( p r i n t o u t D O M
0072320 A I N . T R A C E . F I L E "
0072340 w i t h n a m e s e r v e
0072360 r " N A M E S E R V E R ) )
0072400 \r
0072420 ) \r
0072440 ( 006 002 \
0072460 D O M A I N . A D D . N A M E S
0072500 E R V E R 006 001 S U B D O M A I
0072520 N N A M E S E R V E R A D D
0072540 R E S S E S T T L ] ) \r \r ( 006
0072560 004 \ D O M A I N . A D D . N A M
0072600 E S E R V E R 006 001 \r [ L A M
0072620 B D A ( N O D E N A M E S E
0072640 R V E R A D D R E S S E S T
0072660 T L ) 006 006 006 001
0072700 006 006 ( *
0072720 e j s % : " 2 5 - A p r - 8 6
0072740 1 2 : 3 4 " ) 006 001 \r
0072760 \r
0073000 006 006 ( * * F u n c t i o n
0073020 c a l l e d t o a d d n a
0073040 m e s e r v e r i n f o r m
0073060 a t i o n t o a n o d e
0073100 i n t h e d o m a i n \r 006
0073120 001 006 006 t r e
0073140 e . I f A D D R E S S E S
0073160 i s N I L , t h i s f u n
0073200 c t i o n w i l l q u e r y
0073220 t h e i n t e r n e t t o
0073240 r e s o l v e t h e \r 006 001
0073260 006 006 i n f o
0073300 r m a t i o n ) 006 001 \r \r
0073320 ( C O N D \r ( N A
0073340 M E S E R V E R ( L E T [ (
0073360 D O M A I N . S E R V E R ( O
0073400 R ( G E T H A S H N A M E S
0073420 E R V E R \ D O M A I N . N A
0073440 M E S E R V E R S ) \r
0073460
*
0073520 ( P U T H A S H
0073540 N A M E S E R V E R \r
0073560
*
0073620 ( 006
0073640 002 c r e a t e 006 001 D O M A I N
0073660 . S E R V E R \r
0073700
*
0073760 N A M E _ N A M E S E R
0074000 V E R \r
0074020
*
0074060 A D
0074100 D R E S S E S _ A D D R E S
0074120 S E S \r
0074140
*
0074200 E X
0074220 P I R A T I O N . D A T E _ \r
0074240
*
0074320 ( I P L U S
0074340 ( I D A T E ) \r
0074360
*
0074440 ( O R ( N
0074460 U M B E R P T T L ) \r
0074500
*
0074600 3 6 0 0 ) ) ) \r
0074620
*
0074660 \ D O M
0074700 A I N . N A M E S E R V E R S ]
0074720 \r
0074740 [ C O N D \r
0074760
0075000 ( [ A N D
0075020 ( N U L L A D D R E S S E S )
0075040 \r
0075060
0075100 ( N U L L ( S E T Q A D
0075120 D R E S S E S ( 006 002 f e t c h
0075140 006 001 ( D O M A I N . S E R V E
0075160 R A D D R E S S E S ) 006 002 o
0075200 f 006 001 \r
0075220
*
0075320 D O M
0075340 A I N . S E R V E R \r
0075360
*
0075440 ] \r
0075460
0075500 ( S E T Q A D D
0075520 R E S S E S ( 006 002 r e p l a c
0075540 e 006 001 ( D O M A I N . S E R V
0075560 E R A D D R E S S E S ) 006 002
0075600 o f 006 001 D O M A I N . S E R V
0075620 E R \r
0075640
*
0075700 006 002 w i t h 006 001 ( O R A
0075720 D D R E S S E S ( 006 002 D O M A
0075740 I N . L O O K U P . A D D R E S
0075760 S 006 001 N A M E S E R V E R \r
0076000
*
0076100 N I L T ] \r
0076120
0076140 ( C O N D \r
0076160
0076200 [ A D D R E S
0076220 S E S ( C O N D \r
0076240
*
0076300 ( ( N O T ( 006 002 f o r 006
0076320 001 S E R V E R 006 002 i n 006 001
0076340 ( 006 002 f e t c h 006 001 ( D O M A
0076360 I N . T R E E . N O D E N A M
0076400 E S E R V E R S ) \r
0076420
*
0076500 006 002 o f 006
0076520 001 N O D E ) \r
0076540
*
0076600 006 002 t h e r
0076620 e i s 006 001 ( S T R I N G - E Q
0076640 U A L S E R V E R N A M E S
0076660 E R V E R ) ) ) \r
0076700
*
0076740 [ C O N D \r
0076760
*
0077020 ( D O M A I N . T R
0077040 A C E . F L G ( F R E S H L I
0077060 N E D O M A I N . T R A C E .
0077100 F I L E ) \r
0077120
*
0077160 ( p r i n t
0077200 o u t D O M A I N . T R A C E
0077220 . F I L E " A d d i n g "
0077240 N A M E S E R V E R \r
0077260
*
0077340 " a s n e w
0077360 n a m e s e r v e r f o r
0077400 " ( 006 002 \ D O M A I N . N A M
0077420 E 006 001 \r
0077440
*
0077540 N O D E ]
0077560 \r
0077600
0077620 ( 006 002 p u
0077640 s h 006 001 ( 006 002 f e t c h 006 001
0077660 ( D O M A I N . T R E E . N O D
0077700 E N A M E S E R V E R S ) 006
0077720 002 o f 006 001 N O D E ) \r
0077740
*
0100000 N A M E
0100020 S E R V E R ) \r
0100040
*
0100100 ( 006 002 p u s h 006 001 ( 006 002 f
0100120 e t c h 006 001 ( D O M A I N . S
0100140 E R V E R F O R . D O M A I N
0100160 S ) 006 002 o f 006 001 D O M A I N
0100200 . S E R V E R ) \r
0100220
*
0100260 N O D E ] \r
0100300
0100320 ( T ( P U
0100340 T H A S H N A M E S E R V E R
0100360 N I L \ D O M A I N . N A M
0100400 E S E R V E R S ] ) \r \r ( 006 004 \
0100420 D O M A I N . A U G M E N T . T
0100440 R E E 006 001 \r [ L A M B D A
0100460 ( R R L S T ) 006 006 006 001
0100500
*
0100540 006 006 ( * e j s %
0100560 : " 1 4 - N o v - 8 6 1 4 :
0100600 3 0 " ) 006 001 \r
0100620 \r 006 006 ( *
0100640 * R R L S T i s a l i
0100660 s t o f R R T Y P E . N S
0100700 a n d / o r R R T Y P E . A
0100720 r e c o r d s . \r 006 001
0100740 006 006 B u i l d u p
0100760 o u r m o d e l o f t h e
0101000 i n t e r n e t d o m a i n
0101020 t r e e b y p r o c e s s
0101040 i n g t h e i n f o r m a t
0101060 i o n i n \r 006 001
0101100 006 006 R R L S T ) 006 001 \r \r
0101120 ( 006 002 b i n d 006 001 N A
0101140 M E S E R V E R 006 002 f o r 006 001
0101160 R R 006 002 i n 006 001 R R L S T
0101200 006 002 d o 006 001 ( C O N D \r
0101220
*
0101260 ( ( E Q ( L
0101300 I S T G E T R R ' T Y P E )
0101320 \r
0101340
*
0101400 R R T Y P E . N S ) \r
0101420
*
0101460 ( S E T Q N A
0101500 M E S E R V E R ( L I S T G E
0101520 T R R ' D A T A ) ) \r
0101540
*
0101600 ( 006 002 \ D O M
0101620 A I N . I N S E R T . I N . T R
0101640 E E 006 001 ( L I S T G E T R R
0101660 ' N A M E ) \r
0101700
*
0101740 N A M E S
0101760 E R V E R \r
0102000
*
0102040 ( 006 002 \ D O M
0102060 A I N . S E A R C H . R E S O U
0102100 R C E . L I S T 006 001 R R L S T
0102120 N A M E S E R V E R \r
0102140
*
0102220 R R T Y P E . A
0102240 N I L ) \r
0102260
*
0102320 ( L I S T G E T
0102340 R R ' T T L ] ) \r \r ( 006 004 \
0102360 D O M A I N . C H O O S E . B E
0102400 S T . S E R V E R S 006 001 \r [
0102420 L A M B D A ( D O M A I N ) 006
0102440 006 006 001
0102460
0102500 006 006
0102520 ( * e j s % : " 1 - M a y
0102540 - 8 6 1 7 : 1 5 " ) 006 001 \r
0102560 \r
0102600 006 006 ( * * T h i s f
0102620 u n c t i o n c h o o s e s
0102640 t h e b e s t s e r v e r s
0102660 f o r a q u e r y t o
0102700 r e s o l v e D O M A I N ) 006
0102720 001 \r \r ( L E T * [ ( P
0102740 A T H ( C O N D \r
0102760 ( (
0103000 A N D ( N L I S T P D O M A
0103020 I N ) \r
0103040 D O
0103060 M A I N ) \r
0103100 ( D R E V
0103120 E R S E ( 006 002 \ D O M A I N .
0103140 P A R S E . N A M E 006 001 D O M
0103160 A I N ) ) ) \r
0103200 ( T D O
0103220 M A I N ) ) ) \r
0103240 ( B E S T . C H O I C E
0103260 ( 006 002 b i n d 006 001 N E X T (
0103300 C U R R E N T _ \ D O M A I
0103320 N . R O O T ) 006 002 f o r 006 001
0103340 N A M E 006 002 i n 006 001 P A T H
0103360 \r
0103400 006 002 w h
0103420 i l e 006 001 [ S E T Q N E X T
0103440 ( 006 002 f o r 006 001 S U B D O M
0103460 A I N 006 002 i n 006 001 ( 006 002 f e
0103500 t c h 006 001 ( D O M A I N . T R
0103520 E E . N O D E S U B D O M A I
0103540 N S ) \r
0103560
*
0103640 006 002 o f 006 001 C U R R
0103660 E N T ) \r
0103700
*
0103740 006 002 t h e r e i s 006 001
0103760 ( S T R I N G - E Q U A L N A
0104000 M E ( 006 002 f e t c h 006 001 ( D
0104020 O M A I N . T R E E . N O D E \r
0104040
*
0104160 N A M E ) 006 002 o f 006 001 S
0104200 U B D O M A I N ] \r
0104220
0104240 006 002 d o 006 001 ( S E T
0104260 Q C U R R E N T N E X T )
0104300 006 002 f i n a l l y 006 001 ( R E T
0104320 U R N C U R R E N T ] \r
0104340 [ 006 002 w h i l e 006
0104360 001 B E S T . C H O I C E 006 002
0104400 d o 006 001 ( C O N D \r
0104420
0104440 ( (
0104460 006 002 f e t c h 006 001 ( D O M A I
0104500 N . T R E E . N O D E N A M E
0104520 S E R V E R S ) 006 002 o f 006 001
0104540 B E S T . C H O I C E ) \r
0104560
*
0104620 ( R E T U R N ) ) \r
0104640
0104660 ( T
0104700 ( S E T Q B E S T . C H O I
0104720 C E ( 006 002 f e t c h 006 001 ( D
0104740 O M A I N . T R E E . N O D E
0104760 S U P E R D O M A I N ) \r
0105000
*
0105060 006 002 o f 006 001 B
0105100 E S T . C H O I C E ] \r
0105120 [ C O N D \r
0105140 ( ( E Q B E
0105160 S T . C H O I C E \ D O M A I
0105200 N . R O O T ) \r
0105220 \r 006 006 (
0105240 * H e r e w e h a v e a
0105260 p r o b l e m . I s t h e
0105300 r e q u e s t f o r a s
0105320 u b d o m a i n o f R O O T
0105340 \r 006 001 006 006 (
0105360 e . g . C O M , G O V , E
0105400 D U , e t c ) % , o r f o
0105420 r a l o c a l n a m e i
0105440 n o u r o w n d o m a i n
0105460 ? ) 006 001 \r \r
0105500 ( C O N D \r
0105520 [ ( A N D
0105540 ( E Q L E N G T H P A T H
0105560 1 ) \r
0105600 ( 006 002 f o r
0105620 006 001 S U B D O M A I N 006 002 i
0105640 n 006 001 ( 006 002 f e t c h 006 001 (
0105660 D O M A I N . T R E E . N O D E
0105700 S U B D O M A I N S ) 006 002 o
0105720 f 006 001 \ D O M A I N . R O O T
0105740 ) \r
0105760 006 002 t h
0106000 e r e i s 006 001 ( S T R I N G -
0106020 E Q U A L ( C A R P A T H )
0106040 \r
0106060
0106100 ( 006 002 f e t
0106120 c h 006 001 ( D O M A I N . T R E
0106140 E . N O D E N A M E ) 006 002 o
0106160 f 006 001 S U B D O M A I N ] \r
0106200
0106220 ( T \r \r
0106240 006 006 ( * H e
0106260 u r i s t i c % : I f t h e
0106300 d o m a i n d o e s n ' t
0106320 a p p e a r t o b e a s
0106340 u b d o m a i n o f t h e
0106360 r o o t , \r 006 001
0106400 006 006 a s s u m e t h a t
0106420 t h e l o c a l d o m a i
0106440 n s e r v e r w i l l k n
0106460 o w i t . \r 006 001
0106500 006 006 I f w e ' r e w r
0106520 o n g , t h e l o c a l n
0106540 a m e s e r v e r w i l l
0106560 t e l l u s ) 006 001 \r \r
0106600
0106620 ( S E T Q B E S T . C H O I C
0106640 E N I L ] \r
0106660 ( C O N D \r
0106700 [ ( N U L L B E S T .
0106720 C H O I C E ) \r
0106740 ( C O N D \r
0106760 ( ( O
0107000 R ( E Q L E N G T H P A T H
0107020 1 ) \r
0107040 ( N U L L
0107060 ( 006 002 f e t c h 006 001 ( D O M A
0107100 I N . T R E E . N O D E N A M
0107120 E S E R V E R S ) 006 002 o f 006 001
0107140 \ D O M A I N . R O O T ) ) )
0107160 \r
0107200 ( C O N D \r
0107220 ( D
0107240 O M A I N . T R A C E . F L G
0107260 ( F R E S H L I N E D O M A I
0107300 N . T R A C E . F I L E ) \r
0107320
0107340 ( p r i n t
0107360 o u t D O M A I N . T R A C E
0107400 . F I L E " B e s t c h o i
0107420 c e f o r " D O M A I N
0107440 \r
0107460
0107500 " i s o u r l o c
0107520 a l s e r v e r : " \ D O
0107540 M A I N . D E F A U L T . S E R
0107560 V E R ) ) ) \r
0107600 ( S O R T (
0107620 M K L I S T \ D O M A I N . D
0107640 E F A U L T . S E R V E R ) \r
0107660
0107700 ( F U N C T I O N
0107720 \ D O M A I N . S O R T . B Y
0107740 . S V C . T I M E ) ) ) \r
0107760 ( T
0110000 ( C O N D \r
0110020 ( D
0110040 O M A I N . T R A C E . F L G
0110060 ( F R E S H L I N E D O M A I
0110100 N . T R A C E . F I L E ) \r
0110120
0110140 ( p r i
0110160 n t o u t D O M A I N . T R A
0110200 C E . F I L E " B e s t c h
0110220 o i c e f o r " D O M A I
0110240 N \r
0110260
0110300 " i s t h e
0110320 r o o t s e r v e r " ) ) )
0110340 \r
0110360 ( S O R T ( 006 002 f e
0110400 t c h 006 001 ( D O M A I N . T R
0110420 E E . N O D E N A M E S E R V
0110440 E R S ) 006 002 o f 006 001 \ D O M
0110460 A I N . R O O T ) \r
0110500
0110520 ( F U N C T I O N \ D
0110540 O M A I N . S O R T . B Y . S V
0110560 C . T I M E ] \r
0110600 ( T [ C O N D \r
0110620
0110640 ( D O M A I N . T R A C E . F
0110660 L G ( F R E S H L I N E D O
0110700 M A I N . T R A C E . F I L E )
0110720 \r
0110740 ( p r i n
0110760 t o u t D O M A I N . T R A C
0111000 E . F I L E " B e s t c h o
0111020 i c e ( s ) f o r " D O M
0111040 A I N " : " \r
0111060
0111100 ( 006 002 f e t
0111120 c h 006 001 ( D O M A I N . T R E
0111140 E . N O D E N A M E S E R V E
0111160 R S ) 006 002 o f 006 001 B E S T .
0111200 C H O I C E ] \r
0111220 ( S O R T ( 006
0111240 002 f e t c h 006 001 ( D O M A I N
0111260 . T R E E . N O D E N A M E S
0111300 E R V E R S ) 006 002 o f 006 001 B
0111320 E S T . C H O I C E ) \r
0111340
0111360 ( F U N C T I O N \ D O M
0111400 A I N . S O R T . B Y . S V C .
0111420 T I M E ] ) \r \r ( 006 004 \ D O M A
0111440 I N . F I N D . D O M A I N . I
0111460 N . T R E E 006 001 \r [ L A M B
0111500 D A ( N A M E ) 006 006 006 001
0111520
*
0111560 006 006 ( * e
0111600 j s % : " 1 3 - A p r - 8 6
0111620 0 1 : 2 5 " ) 006 001 \r ( C
0111640 O N D \r ( ( S T R
0111660 E Q U A L N A M E " " ) \r
0111700 \ D O M A I N . R
0111720 O O T ) \r ( T (
0111740 L E T ( [ P A T H ( C O N D
0111760 \r
0112000 ( ( L I S T
0112020 P N A M E ) \r
0112040
0112060 ( R E V E R S E N A M E )
0112100 ) \r
0112120 ( T ( D
0112140 R E V E R S E ( 006 002 \ D O M A
0112160 I N . P A R S E . N A M E 006 001
0112200 N A M E ] \r
0112220 ( C U R R E N T \
0112240 D O M A I N . R O O T ) ) \r
0112260 ( 006 002
0112300 b i n d 006 001 N E X T 006 002 f o
0112320 r 006 001 N O D E 006 002 o n 006 001
0112340 P A T H \r
0112360 006 002 d o 006 001 ( C
0112400 O N D \r
0112420 ( [ N O
0112440 T ( S E T Q N E X T ( 006 002
0112460 f o r 006 001 S U B D O M A I N
0112500 006 002 i n 006 001 ( 006 002 f e t c h 006
0112520 001 ( D O M A I N . T R E E . N
0112540 O D E S U B D O M A I N S ) \r
0112560
*
0112640 006 002
0112660 o f 006 001 C U R R E N T ) \r
0112700
*
0112740 006 002 t h e r
0112760 e i s 006 001 ( S T R I N G - E Q
0113000 U A L ( C A R N O D E ) \r
0113020
*
0113100 ( 006 002 f e t
0113120 c h 006 001 ( D O M A I N . T R E
0113140 E . N O D E N A M E ) \r
0113160
*
0113240 006 002 o f 006
0113260 001 S U B D O M A I N ] \r
0113300
0113320 ( R E T U R N ( C
0113340 O N S C U R R E N T N O D E
0113360 ) ) ) \r
0113400 ( T (
0113420 S E T Q C U R R E N T N E X
0113440 T ) ) ) 006 002 f i n a l l y 006 001
0113460 ( R E T U R N C U R R E N T
0113500 ] ) \r \r ( 006 004 \ D O M A I N . I
0113520 N I T 006 001 \r [ L A M B D A
0113540 ( E V E N T ) 006 006 006 001
0113560
*
0113620 006 006 ( * e j s %
0113640 : " 1 - M a y - 8 6 1 5 :
0113660 4 6 " ) 006 001 \r ( S E T Q
0113700 \ D O M A I N . D E F A U L T
0113720 . S E R V E R \r ( 006 002
0113740 b i n d 006 001 N A M E 006 002 f o
0113760 r 006 001 S E R V E R 006 002 i n 006
0114000 001 ( 006 002 f e t c h 006 001 ( I P
0114020 I N I T D O M A I N . S E R V
0114040 E R S ) 006 002 o f 006 001 \ I P .
0114060 D E F A U L T . C O N F I G U R
0114100 A T I O N ) \r 006
0114120 002 a s 006 001 S E R V E R # 006 002
0114140 f r o m 006 001 1 006 002 c o l l e
0114160 c t 006 001 ( S E T Q N A M E
0114200 ( C O N C A T " L o c a l - D
0114220 o m a i n - S e r v e r - " S
0114240 E R V E R # ) ) \r
0114260
0114300 ( P U T H A S
0114320 H N A M E ( 006 002 c r e a t e
0114340 006 001 D O M A I N . S E R V E R
0114360 \r
0114400
*
0114440 N A M E _ N A M
0114460 E \r
0114500
*
0114540 E X P I R A T I O
0114560 N . D A T E _ M A X . F I X
0114600 P \r
0114620
*
0114660 A D D R E S S E S
0114700 _ ( L I S T ( \ I P . R E
0114720 A D . S T R I N G . A D D R E S
0114740 S \r
0114760
*
0115040 S E R V E R
0115060 ) ) ) \r
0115100
0115120 \ D O M A
0115140 I N . N A M E S E R V E R S ) \r
0115160
*
0115220 N A M E ] ) \r \r ( 006 004 \ D O M A
0115240 I N . I N S E R T . I N . T R E
0115260 E 006 001 \r [ L A M B D A ( D
0115300 O M A I N N A M E S E R V E R
0115320 A D D R E S S E S T T L ) 006
0115340 006 006 001
0115360 006 006 ( * e j s % :
0115400 " 2 5 - A p r - 8 6 1 2 : 2 1
0115420 " ) 006 001 \r \r
0115440 006 006 ( * *
0115460 G i v e n i n f o r m a t i
0115500 o n f r o m a n R R T Y P
0115520 E . N S r e c o r d , a d d
0115540 a n e n t r y t o t h e
0115560 d o m a i n \r 006 001
0115600 006 006 t r e e ) 006 001 \r \r
0115620 ( L E T ( ( P A R T I
0115640 A L . P A T H ( 006 002 \ D O M A
0115660 I N . F I N D . D O M A I N . I
0115700 N . T R E E 006 001 D O M A I N )
0115720 ) ) \r ( C O N
0115740 D \r ( (
0115760 006 002 t y p e ? 006 001 D O M A I N
0116000 . T R E E . N O D E P A R T I
0116020 A L . P A T H )
0116040 006 006 ( * F o u n d i t
0116060 ) 006 001 \r
0116100 ( 006 002 \ D O M A I N . A D D .
0116120 N A M E S E R V E R 006 001 P A R
0116140 T I A L . P A T H N A M E S E
0116160 R V E R A D D R E S S E S T
0116200 T L ) ) \r
0116220 ( ( E Q L E N G T H P A R T
0116240 I A L . P A T H 2 )
0116260
0116300 006 006 ( * O n l y o n e
0116320 a w a y f r o m p r e v i o
0116340 u s \r 006 001
0116360
*
0116440 006 006 k n o w l e d g e ? )
0116460 006 001 \r
0116500 ( 006 002 \ D O M A I N . A D D . N
0116520 E W . D O M A I N 006 001 ( C A R
0116540 P A R T I A L . P A T H ) \r
0116560
0116600 ( C A D R P A R T I A L
0116620 . P A T H ) \r
0116640 N A M E S
0116660 E R V E R A D D R E S S E S
0116700 T T L ) ) \r
0116720 ( T \r
0116740 \r 006 006 ( *
0116760 S o m e n u m b e r o f d
0117000 o m a i n s b e t w e e n o
0117020 u r d e e p e s t k n o w l
0117040 e d g e a n d t h e d e s
0117060 i r e d d o m a i n ) 006 001 \r \r
0117100 (
0117120 006 002 \ D O M A I N . A D D . N E
0117140 W . D O M A I N 006 001 ( C A R
0117160 P A R T I A L . P A T H ) \r
0117200
0117220 ( C A D R P A R T I A
0117240 L . P A T H ) ) \r
0117260 ( 006 002 \ D O M A
0117300 I N . I N S E R T . I N . T R E
0117320 E 006 001 D O M A I N N A M E S
0117340 E R V E R A D D R E S S E S
0117360 T T L ] ) \r \r ( 006 004 \ D O M A I
0117400 N . P A T H 006 001 \r [ L A M B
0117420 D A ( D O M A I N . T R E E .
0117440 N O D E ) 006 006 006 001
0117460
0117500 006 006 ( * e
0117520 j s % : " 1 3 - A p r - 8 6
0117540 1 4 : 4 4 " ) 006 001 \r
0117560 \r 006
0117600 006 ( * * G e n e r a t e a
0117620 l i s t o f d o m a i n
0117640 n a m e s a l o n g t h e
0117660 p a t h t o t h e r o o t
0117700 o f t h e d o m a i n \r
0117720 006 001 006 006 t r
0117740 e e ) 006 001 \r \r ( C O N D
0117760 \r ( ( N U L L (
0120000 006 002 f e t c h 006 001 ( D O M A I
0120020 N . T R E E . N O D E S U P E
0120040 R D O M A I N ) 006 002 o f 006 001
0120060 D O M A I N . T R E E . N O D E
0120100 ) ) \r N I L ) \r
0120120 ( T ( C O N S
0120140 ( 006 002 f e t c h 006 001 ( D O M A
0120160 I N . T R E E . N O D E N A M
0120200 E ) 006 002 o f 006 001 D O M A I N
0120220 . T R E E . N O D E ) \r
0120240 ( 006 002 \
0120260 D O M A I N . P A T H 006 001 ( 006
0120300 002 f e t c h 006 001 ( D O M A I N
0120320 . T R E E . N O D E S U P E R
0120340 D O M A I N ) 006 002 o f 006 001 D
0120360 O M A I N . T R E E . N O D E ]
0120400 ) \r \r ( 006 004 \ D O M A I N . S E
0120420 A R C H . R E S O U R C E . L I
0120440 S T 006 001 \r [ L A M B D A (
0120460 R R L S T N A M E T Y P E
0120500 O K . T O . R E T U R N . N A M
0120520 E ) 006 006 006 001
0120540 006 006 ( * e j s % :
0120560 " 1 4 - N o v - 8 6 1 4 : 4
0120600 0 " ) 006 001 \r ( L E T [
0120620 ( A N S W E R ( 006 002 b i n d 006
0120640 001 D A T A 006 002 f o r 006 001 R
0120660 R 006 002 i n 006 001 R R L S T 006
0120700 002 c o l l e c t 006 001 ( S E T Q
0120720 D A T A ( L I S T G E T R
0120740 R ' D A T A ) ) \r
0120760
*
0121020 ( C O
0121040 N D \r
0121060
*
0121120 ( ( A N D D
0121140 A T A ( E Q T Y P E R R T
0121160 Y P E . A ) \r
0121200
*
0121260 O K . T O . R E T U R N .
0121300 N A M E ) \r
0121320
*
0121360 ( L I
0121400 S T G E T R R ' N A M E ) )
0121420 \r
0121440
*
0121500 ( T D A T A ) )
0121520 \r
0121540 006 002 w h e n 006 001 (
0121560 A N D ( E Q T Y P E ( L I
0121600 S T G E T R R ' T Y P E ) )
0121620 \r
0121640
0121660 ( 006 002 D O M A I N . N A M E . E
0121700 Q U A L 006 001 ( L I S T G E T
0121720 R R ' N A M E ) \r
0121740
*
0122000 N A M E ] \r (
0122020 C O N D \r
0122040 ( A N S W E R ) \r
0122060 ( T ( L E T [ (
0122100 C A N O N I C A L . N A M E (
0122120 006 002 b i n d 006 001 F O U N D I T
0122140 D A T A 006 002 f o r 006 001 R R
0122160 006 002 i n 006 001 R R L S T \r
0122200
*
0122240 006 002 t h e r e i s 006
0122260 001 ( A N D ( E Q R R T Y P
0122300 E . C N A M E ( L I S T G E T
0122320 R R ' T Y P E ) ) \r
0122340
*
0122420 ( 006 002 D O M A I N . N A M E .
0122440 E Q U A L 006 001 ( L I S T G E T
0122460 R R ' N A M E ) \r
0122500
*
0122560 N A M E ) \r
0122600
*
0122660 ( S E T Q F O U N D I T
0122700 T ) ) \r
0122720
0122740 006 002 f i
0122760 n a l l y 006 001 ( R E T U R N
0123000 ( A N D F O U N D I T ( L I
0123020 S T G E T R R ' D A T A ] \r
0123040
0123060 ( C O N D \r
0123100
0123120 ( C A N O N I C A L . N A M E
0123140 ( 006 002 \ D O M A I N . S E A R
0123160 C H . R E S O U R C E . L I S T
0123200 006 001 R R L S T C A N O N I C
0123220 A L . N A M E T Y P E \r
0123240
*
0123300 O K . T
0123320 O . R E T U R N . N A M E ] ) \r
0123340 \r ( 006 004 \ D O M A I N . D E L E
0123360 T E . N A M E S E R V E R 006 001 \r
0123400 [ L A M B D A ( N A M E S
0123420 E R V E R ) 006 006 006 001
0123440
*
0123500 006 006 ( * e j s % : " 1 3 -
0123520 A p r - 8 6 1 8 : 3 5 " ) 006 001
0123540 \r ( L E T ( ( D O M A
0123560 I N . S E R V E R ( G E T H A
0123600 S H N A M E S E R V E R \ D
0123620 O M A I N . N A M E S E R V E R
0123640 S ) ) ) \r ( C
0123660 O N D \r
0123700 ( D O M A I N . S E R V E R [
0123720 006 002 b i n d 006 001 N A M E S E R
0123740 V E R S 006 002 f o r 006 001 D O M
0123760 A I N 006 002 i n 006 001 ( 006 002 f e
0124000 t c h 006 001 ( D O M A I N . S E
0124020 R V E R F O R . D O M A I N S
0124040 ) \r
0124060
*
0124140 006 002 o f 006 001 D O M A I N . S E
0124160 R V E R ) \r
0124200
0124220 006 002 d o 006 001 ( S E T Q
0124240 N A M E S E R V E R S ( 006 002
0124260 f e t c h 006 001 ( D O M A I N .
0124300 T R E E . N O D E N A M E S E
0124320 R V E R S ) 006 002 o f 006 001 D O
0124340 M A I N ) ) \r
0124360
0124400 ( 006 002 b i n d 006
0124420 001 006 002 f o r 006 001 N A M E 006
0124440 002 i n 006 001 N A M E S E R V E R
0124460 S 006 002 w h e n 006 001 ( S T R I
0124500 N G - E Q U A L N A M E N A
0124520 M E S E R V E R ) \r
0124540
0124560 006 002
0124600 d o 006 001 ( 006 002 r e p l a c e 006
0124620 001 ( D O M A I N . T R E E . N
0124640 O D E N A M E S E R V E R S )
0124660 006 002 o f 006 001 D O M A I N \r
0124700
*
0124740 006 002 w i t h 006
0124760 001 ( D R E M O V E N A M E
0125000 N A M E S E R V E R S ] \r
0125020
0125040 ( P U T H A S H N A M E S E R
0125060 V E R N I L \ D O M A I N .
0125100 N A M E S E R V E R S ] ) \r \r (
0125120 006 004 \ D O M A I N . A R O U N D
0125140 . E X I T 006 001 \r [ L A M B D
0125160 A ( E V E N T ) 006 006 006 001
0125200
*
0125240 006 006 ( * e j
0125260 s % : " 1 3 - A p r - 8 6 1
0125300 8 : 3 0 " ) 006 001 \r ( S E
0125320 L E C T Q E V E N T \r
0125340 ( ( N I L A F T E R L
0125360 O G O U T A F T E R S Y S O U
0125400 T A F T E R M A K E S Y S A
0125420 F T E R S A V E V M ) \r
0125440 ( 006 002 \ D O
0125460 M A I N . D E L E T E . T R E E
0125500 006 001 ) ) \r N I L
0125520 ] ) \r \r ( 006 004 \ D O M A I N . D
0125540 E L E T E . T R E E 006 001 \r [
0125560 L A M B D A N I L 006 006 006 001
0125600
*
0125640 006 006
0125660 ( * e j s % : " 1 3 - A p r
0125700 - 8 6 1 7 : 3 9 " ) 006 001 \r
0125720 \r
0125740 006 006 ( * * U n d o e s
0125760 c i r c u l a r i t y i n
0126000 p o i n t e r s b e t w e e n
0126020 l e v e l s o f t h e t
0126040 r e e ) 006 001 \r \r ( 006 002 b
0126060 i n d 006 001 ( O P E N _ ( L
0126100 I S T \ D O M A I N . R O O T
0126120 ) ) \r C L O
0126140 S E D C U R R E N T 006 002 w h
0126160 i l e 006 001 O P E N 006 002 d o 006
0126200 001 ( S E T Q C U R R E N T
0126220 ( 006 002 p o p 006 001 O P E N ) ) \r
0126240
*
0126300 ( S E T Q O P E
0126320 N ( A P P E N D ( 006 002 f e t
0126340 c h 006 001 ( D O M A I N . T R E
0126360 E . N O D E S U B D O M A I N
0126400 S ) \r
0126420
*
0126500 006 002 o f 006 001 C U R R E N T ) \r
0126520
*
0126600 O P E N ) ) \r
0126620
*
0126660 ( 006 002 r e p l a c
0126700 e 006 001 ( D O M A I N . T R E E
0126720 . N O D E S U B D O M A I N S
0126740 ) 006 002 o f 006 001 C U R R E N T
0126760 006 002 w i t h 006 001 N I L ) \r
0127000
*
0127040 ( 006 002 r e p l a c e
0127060 006 001 ( D O M A I N . T R E E .
0127100 N O D E N A M E ) 006 002 o f 006
0127120 001 C U R R E N T 006 002 w i t h
0127140 006 001 N I L ) \r
0127160
0127200 (
0127220 006 002 r e p l a c e 006 001 ( D O M
0127240 A I N . T R E E . N O D E N A
0127260 M E S E R V E R S ) 006 002 o f 006
0127300 001 C U R R E N T \r
0127320
*
0127360 006 002 w i t h 006 001 N I L
0127400 ) \r
0127420
0127440 ( 006 002 r e p l
0127460 a c e 006 001 ( D O M A I N . T R
0127500 E E . N O D E S U P E R D O M
0127520 A I N ) 006 002 o f 006 001 C U R R
0127540 E N T \r
0127560
0127600 006 002
0127620 w i t h 006 001 N I L ) ) \r
0127640 [ M A P H A S H \ D O M A I
0127660 N . N A M E S E R V E R S ( F
0127700 U N C T I O N ( L A M B D A
0127720 ( D O M A I N . S E R V E R N
0127740 A M E ) \r
0127760
*
0130020 ( 006 002 r e p l a c e 006 001 (
0130040 D O M A I N . S E R V E R F O
0130060 R . D O M A I N S ) 006 002 o f 006
0130100 001 D O M A I N . S E R V E R \r
0130120
*
0130200 006 002 w i t h 006 001 N I L ] \r
0130220 ( C L R H A S H \ D O M A
0130240 I N . N A M E S E R V E R S ) \r
0130260 N I L ] ) \r \r ( 006 004 \ D
0130300 O M A I N . B A C K G R O U N D
0130320 006 001 \r [ L A M B D A N I L
0130340 006 006 006 001
0130360
*
0130420 006 006 ( * e j s % : "
0130440 1 3 - A p r - 8 6 1 8 : 2 4 "
0130460 ) 006 001 \r ( C O N D \r
0130500 ( ( T I M E R E X P I
0130520 R E D ? \ D O M A I N . G C .
0130540 T I M E R ) \r (
0130560 006 002 \ D O M A I N . G C . N A M
0130600 E S E R V E R S 006 001 ) \r
0130620 ( S E T Q \ D O M A I
0130640 N . G C . T I M E R ( S E T U
0130660 P T I M E R \ D O M A I N . G
0130700 C . I N T E R V A L \ D O M A
0130720 I N . G C . T I M E R ] ) \r \r (
0130740 006 004 \ D O M A I N . G C . N A M
0130760 E S E R V E R S 006 001 \r [ L A
0131000 M B D A N I L 006 006 006 001
0131020
*
0131060 006 006 ( *
0131100 e j s % : " 1 3 - A p r - 8
0131120 6 1 7 : 5 7 " ) 006 001 \r
0131140 \r
0131160 006 006 ( * * T h i s f u n
0131200 c t i o n m a p s o v e r
0131220 t h e n a m e s e r v e r
0131240 h a s h a r r a y , a n d
0131260 r e m o v e s o l d \r 006 001
0131300 006 006 s e r v e
0131320 r s w h i c h h a v e t i
0131340 m e d o u t ) 006 001 \r \r
0131360 ( L E T ( ( T I M E ( I D A
0131400 T E ) ) ) \r (
0131420 006 002 D E C L A R E 006 001 ( S P E
0131440 C V A R S T I M E ) ) \r
0131460 [ M A P H A S H \
0131500 D O M A I N . N A M E S E R V E
0131520 R S ( F U N C T I O N ( L A
0131540 M B D A ( D O M A I N . S E R
0131560 V E R N A M E ) \r
0131600
*
0131640 ( 006 002 D
0131660 E C L A R E 006 001 ( U S E D F R
0131700 E E T I M E ) ) \r
0131720
*
0131760 ( C O N
0132000 D \r
0132020
*
0132060 ( ( I L E S S P
0132100 ( 006 002 f e t c h 006 001 ( D O M A
0132120 I N . S E R V E R E X P I R A
0132140 T I O N . D A T E ) \r
0132160
*
0132240 006 002 o f
0132260 006 001 D O M A I N . S E R V E R
0132300 ) \r
0132320
*
0132360 T
0132400 I M E ) \r
0132420
*
0132460 ( C O N D
0132500 \r
0132520
*
0132560 ( D O M A I
0132600 N . T R A C E . F L G ( F R E
0132620 S H L I N E \r
0132640
*
0132740 D O M A I N
0132760 . T R A C E . F I L E ) \r
0133000
*
0133060 ( p r
0133100 i n t o u t D O M A I N . T R
0133120 A C E . F I L E \r
0133140
*
0133240 " N a m e s e r v e r "
0133260 N A M E \r
0133300
*
0133360 " h
0133400 a s e x p i r e d ; d e l e
0133420 t i n g . . . " ) ) ) \r
0133440
*
0133520 ( 006 002 \ D O M A I N . D E L
0133540 E T E . N A M E S E R V E R 006 001
0133560 N A M E ] \r
0133600 N I L ] ) \r \r ( 006 004 \ D O M A I
0133620 N . S O R T . B Y . S V C . T I
0133640 M E 006 001 \r [ L A M B D A (
0133660 N A M E 1 N A M E 2 ) 006 006 006 001
0133700
*
0133740 006 006 ( * e j s % :
0133760 " 1 3 - A p r - 8 6 1 8 : 1
0134000 4 " ) 006 001 \r ( L E T (
0134020 ( R 1 ( G E T H A S H N A M
0134040 E 1 \ D O M A I N . N A M E S
0134060 E R V E R S ) ) \r
0134100 ( R 2 ( G E T H A S H
0134120 N A M E 2 \ D O M A I N . N A
0134140 M E S E R V E R S ) ) ) \r
0134160 ( I L E S S P ( O
0134200 R ( 006 002 f e t c h 006 001 ( D O
0134220 M A I N . S E R V E R A V G .
0134240 S V C . T I M E ) 006 002 o f 006 001
0134260 R 1 ) \r
0134300 0 ) \r
0134320 ( O R
0134340 ( 006 002 f e t c h 006 001 ( D O M
0134360 A I N . S E R V E R A V G . S
0134400 V C . T I M E ) 006 002 o f 006 001
0134420 R 2 ) \r
0134440 0 ] ) \r ) \r \r (
0134460 A D D T O V A R 006 002 B A C K G
0134500 R O U N D F N S 006 001 \ D O M A
0134520 I N . B A C K G R O U N D ) \r \r
0134540 \r \r 006 004 ( * ; ; " P r o g r
0134560 a m m e r ' s i n t e r f a c
0134600 e " ) 006 001 \r \r \r ( R P A Q ? 006
0134620 002 D O M A I N . T R A C E . F L
0134640 G 006 001 ) \r \r ( R P A Q ? 006 002
0134660 D O M A I N . T R A C E . F I L
0134700 E 006 001 ) \r \r ( R P A Q ? 006 002
0134720 I N T E R N E T . L O C A L . D
0134740 O M A I N 006 001 ) \r ( D E C L A
0134760 R E % : D O E V A L @ C O M P
0135000 I L E D O N T C O P Y \r \r ( G
0135020 L O B A L V A R S D O M A I N
0135040 . T R A C E . F L G D O M A I
0135060 N . T R A C E . F I L E I N T
0135100 E R N E T . L O C A L . D O M A
0135120 I N ) \r ) \r ( D E F I N E Q \r \r
0135140 ( 006 004 D O M A I N . I N I T 006 001
0135160 \r [ L A M B D A N I L 006 006
0135200 006 001
0135220
*
0135260 006 006 ( * e j s % : " 1 4
0135300 - N o v - 8 6 1 4 : 2 1 " ) 006
0135320 001 \r \r
0135340 006 006 ( * * C a
0135360 l l e d t o i n i t i a l i
0135400 z e t h e d o m a i n s e
0135420 r v i c e f o r t h i s h
0135440 o s t ) 006 001 \r \r ( 006 002 D
0135460 E C L A R E 006 001 ( G L O B A L
0135500 V A R S \ D O M A I N . D E F
0135520 A U L T . S E R V E R I N T E
0135540 R N E T . L O C A L . D O M A I
0135560 N ) ) \r ( L E T [ ( L
0135600 O C A L . D O M A I N . S E R V
0135620 E R S ( 006 002 f e t c h 006 001 (
0135640 I P I N I T D O M A I N . S E
0135660 R V E R S ) 006 002 o f 006 001 \ I
0135700 P . D E F A U L T . C O N F I G
0135720 U R A T I O N ) ) \r
0135740 ( L O C A L . D O M A I
0135760 N ( M K S T R I N G ( 006 002 f
0136000 e t c h 006 001 ( I P I N I T L
0136020 O C A L . D O M A I N ) 006 002 o
0136040 f 006 001 \ I P . D E F A U L T .
0136060 C O N F I G U R A T I O N ] \r
0136100 ( C O N D \r
0136120 ( ( A N D
0136140 L O C A L . D O M A I N . S E R
0136160 V E R S L O C A L . D O M A I
0136200 N ) \r
0136220 ( S E T Q \ D O M A I N . D E
0136240 F A U L T . S E R V E R ( 006 002
0136260 f o r 006 001 A D D R 006 002 i n s
0136300 i d e 006 001 L O C A L . D O M A
0136320 I N . S E R V E R S \r
0136340
*
0136400 006 002 c o l l e c
0136420 t 006 001 ( M K S T R I N G A D
0136440 D R ) ) ) \r
0136460 ( S E T Q I N T E R N E
0136500 T . L O C A L . D O M A I N L
0136520 O C A L . D O M A I N ) \r
0136540 ( 006 002 f o r
0136560 006 001 N A M E S E R V E R 006 002
0136600 i n 006 001 L O C A L . D O M A I
0136620 N . S E R V E R S 006 002 d o 006 001
0136640 ( 006 002 \ D O M A I N . I N S E
0136660 R T . I N . T R E E 006 001 \r
0136700
*
0136760 L O C A L . D O M A
0137000 I N \r
0137020
*
0137060 ( M K S
0137100 T R I N G N A M E S E R V E R
0137120 ) \r
0137140
*
0137200 ( L I S T
0137220 ( D O D I P . H O S T P ( M
0137240 K S T R I N G N A M E S E R V
0137260 E R ) ) ) \r
0137300
*
0137340 M
0137360 A X . F I X P ) ) ) \r
0137400 ( T ( P R O M P
0137420 T P R I N T " I n t e r n e t
0137440 d o m a i n c o d e i s
0137460 l o a d e d , b u t d i s a
0137500 b l e d . " ] ) \r \r ( 006 004 D O M
0137520 A I N . L O O K U P . A D D R E
0137540 S S 006 001 \r [ L A M B D A (
0137560 N A M E S E R V E R D O N T
0137600 . G E T . O S T Y P E ) 006 006 006 001
0137620
0137640 006 006 ( * e j s % :
0137660 " 1 4 - N o v - 8 6 1 4 : 4
0137700 8 " ) 006 001 \r
0137720 \r 006 006 ( *
0137740 * P r o g r a m m e r ' s i
0137760 n t e r f a c e t o l o o k
0140000 u p I P I n t e r n e t h
0140020 o s t n a m e u s i n g t
0140040 h e d o m a i n \r 006 001
0140060 006 006 s y s t e m )
0140100 006 001 \r \r ( 006 002 b i n d 006
0140120 001 ( O P E N _ ( O R ( M
0140140 K L I S T S E R V E R ) \r
0140160
0140200 ( 006 002 \ D O M A I N . C
0140220 H O O S E . B E S T . S E R V E
0140240 R S 006 001 N A M E ) ) ) \r
0140260 C A N O N I C A L
0140300 . N A M E C L O S E D A D D
0140320 R E S S E S T H I S . S E R V
0140340 E R A N S W E R 006 002 w h i l
0140360 e 006 001 O P E N \r
0140400 006 002 d o 006 001 ( S E T Q T H I
0140420 S . S E R V E R ( 006 002 p o p 006
0140440 001 O P E N ) ) \r
0140460 ( 006 002 p u s h 006 001 C L O
0140500 S E D T H I S . S E R V E R )
0140520 \r ( S E T Q
0140540 A N S W E R ( 006 002 D O M A I
0140560 N . L O O K U P 006 001 N A M E
0140600 R R T Y P E . A T H I S . S E
0140620 R V E R ) ) \r
0140640 ( C O N D \r
0140660 ( ( S E T Q A D D R E
0140700 S S E S ( 006 002 \ D O M A I N .
0140720 S E A R C H . R E S O U R C E .
0140740 L I S T 006 001 A N S W E R N A
0140760 M E R R T Y P E . A ) ) \r
0141000 ( 006 002 \
0141020 D O M A I N . A U G M E N T . T
0141040 R E E 006 001 A N S W E R ) \r
0141060 ( P U T
0141100 H A S H ( M K A T O M ( U -
0141120 C A S E N A M E ) ) \r
0141140
0141160 [ 006 002 c r e a t e 006 001 H O S
0141200 T S . T X T . E N T R Y \r
0141220
0141240 H T E . T Y P
0141260 E _ ' H O S T \r
0141300
0141320 H T E . A D D R E S
0141340 S E S _ A D D R E S S E S \r
0141360
0141400 H T E .
0141420 N A M E S _ ( L I S T ( M
0141440 K A T O M ( U - C A S E N A
0141460 M E ) ) ) \r
0141500
0141520