$ od -c -N 50000 [eris]<LispCore>bcpl>BcplEnv.dm!1>PupSubrs.br
0000000  002 002 003   t  \0  \0  \0 017  \0  \0 001 035  \0  \0 001   2
0000020   \0  \0 003   K  \0  \0 003   s  \0  \0  \0  \0  \0  \0  \0   '
0000040   \0   !  \0  \0  \a   P   u   p   Z   o   n   e  \0   !  \0  \0
0000060  005   X   t   r   a   Q  \0   !  \0  \0 005   X   U   s   e   s
0000100   \0   @  \0 001  \n   O   P   E   N   S   O   C   K   E   T  \0
0000120   \0   @  \0 002  \a   O   p   e   n   S   o   c  \0   @  \0 003
0000140   \a   R   E   A   D   P   U   P  \0   @  \0 004  \b   W   R   I
0000160    T   E   P   U   P  \0  \0   @  \0 005  \v   C   L   O   S   E
0000200    S   O   C   K   E   T  \0   @  \0 006  \b   C   l   o   s   e
0000220    S   o   c  \0  \0   @  \0  \a  \b   S   t   a   r   t   P   u
0000240    p  \0  \0   A  \0  \b 006   S   o   c   k   e   t  \0  \0   A
0000260   \0  \t  \n   S   o   c   H   e   a   d   C   h   k  \0  \0   A
0000300   \0  \n  \v   G   e   t   E   x   t   r   a   P   B   I  \0  \0
0000320   \0  \0  \n   M   k   S   m   a   l   l   P   o   s  \0  \0  \0
0000340   \0  \0  \n   S   m   a   l   l   U   n   b   o   x  \0  \0  \0
0000360   \0  \0  \b   A   l   l   o   c   a   t   e  \0  \0  \0  \0  \0
0000400  004   Z   e   r   o  \0  \0  \0  \0  \0 020   O   p   e   n   L
0000420    e   v   e   l   1   S   o   c   k   e   t  \0  \0 020  \0  \0
0000440  005   l   v   N   I   L  \0  \0  \0  \0  \a   D   e   q   u   e
0000460    u   e  \0  \0  \0  \0 005   E   q   N   I   L  \0  \0  \0  \0
0000500   \t   M   o   v   e   W   o   r   d   s  \0  \0  \0  \0 006   E
0000520    m   A   d   d   r  \0  \0  \0  \0  \0 003   M   i   n  \0  \0
0000540   \0  \0  \n   R   e   l   e   a   s   e   P   B   I  \0  \0 020
0000560   \0  \0  \b   X   G   e   t   B   a   s   e  \0  \0  \0  \0  \0
0000600  017   m   a   x   P   u   p   D   a   t   a   B   y   t   e   s
0000620   \0  \0  \0  \0  \b   R   A   I   D   C   o   d   e  \0  \0  \0
0000640   \0  \0 006   G   e   t   P   B   I  \0  \0  \0  \0  \0 005   B
0000660    l   o   c   k  \0  \0  \0  \0  \v   C   o   m   p   l   e   t
0000700    e   P   u   p  \0 020  \0  \0 004   l   v   K   T  \0  \0  \0
0000720   \0  \0 021   C   l   o   s   e   L   e   v   e   l   1   S   o
0000740    c   k   e   t  \0  \0  \0  \0 004   F   r   e   e  \0  \0  \0
0000760   \0  \0 016   I   n   i   t   i   a   l   i   z   e   Z   o   n
0001000    e  \0  \0  \0  \0  \0  \r   I   n   i   t   P   u   p   L   e
0001020    v   e   l   1  \0 020  \0  \0  \b   C   o   n   t   e   x   t
0001040    Q  \0  \0  \0  \0  \0  \a   E   n   q   u   e   u   e  \0  \0
0001060   \0  \0  \a   s   o   c   k   e   t   Q  \0  \n  \0 004  \0 001
0001100   \0 005  \0 023  \0 006  \0   0  \0  \a  \0 232  \0  \b 001   *
0001120   \0  \t 001   6  \0  \n 001   B  \0  \v 001   {  \0  \f 001 256
0001140   \0  \r 001 366 002 030 002 030   Z 001  \f 370  \0  \f  \f 367
0001160    " 004   i   C  \0 001   B  \b   " 005   i   ?  \0 001 212  \0
0001200    "  \b   i   W  \0 002   i   V  \0 001  \f 366   Z 001  \f 370
0001220   \0 020  \f 367   %   P   )   P   i   P  \0 002   B 006   !   N
0001240  306  \0   B  \a   "  \a   )   K   i   K  \0 002   " 004   :  \a
0001260    C 001   " 005   :  \a   C 002   " 006   *  \a   i   B  \0 002
0001300    " 006 001 001  \f 366   Z 001  \f 370  \0 022  \f 367   B  \b
0001320    " 004   i   ]  \0 001   B  \t   :  \t 372  \f 001 003      \0
0001340  001   \   "  \t   9   W 346  \0   i   V  \0 001   B  \n   :  \n
0001360  372  \f 001 004      \v 001   Q  \0  \0   "  \n   9   M 346  \0
0001400    B  \v   :  \v   #  \0 203  \0 202 220   B  \f   "  \b   9 027
0001420  345   J 001 006   " 006   i   P  \0 001 202  \r 001 023   "  \v
0001440    i   L  \0 001   :  \f   Z 003   * 005   i   H  \0 003 001   (
0001460   \0  \0  \0  \0  \0  \0  \0  \r  \0  \0  \0  \f  \0 003  \0  \0
0001500   \0  \0   "  \v   i   :  \0 001   9   T   Z 003   * 005   i   6
0001520   \0 003   "  \f   9 037 345  \0   B 016   "  \a   i 316  \0 001
0001540  212  \0   " 016   i   G  \0 002   B  \f   "  \v   9   B 346  \0
0001560    i   $  \0 001   :  \f   Z 003   * 006   i      \0 003   "  \n
0001600    i   D  \0 001   "  \f   i 326  \0 001 001  \a  \0  \0  \f 355
0001620   \0 004  \0  \v  \0  \0  \0  \t  \f 366   Z 001  \f 370  \0 021
0001640   \f 367   B  \a   " 004   i 363  \0 001   B  \b   :  \b 372  \f
0001660  001 006       _ 001   P  \0  \0  \0  \0  \0  \0   " 005  \f  \0
0001700   \0 001 203  \0 202 220   B  \t   %   H 202 220   9 343 346  \0
0001720    *  \t 214   J 001 020  \t  \b  \f   P   u   p       t   o   o
0001740        l   o   n   g  \0 342  \0   * 005   i   ]  \0 002 001   e
0001760   \0  \n  \0  \0   "  \b 254  \0   i   W  \0 002   B  \n   :  \n
0002000  372  \r 001 004 001 017 001  \r  \0  \0   "  \b   i   N  \0 001
0002020    B  \n   :  \n 372  \r 001 003 001 005 001 003   i   H  \0  \0
0002040  001 352   "  \n   9 271 346  \0   B  \v   "  \a   9 210 345   J
0002060  001 006   " 006   i 301  \0 001 202  \r 001 020   : 005   Z  \r
0002100    "  \v   i 273  \0 001   :  \t   Z 003 212  \0   "  \r   i 266
0002120   \0 003 001 036  \f 355  \0   1  \0  \0   : 005   Z  \r   "  \v
0002140    i 254  \0 001   9 306   Z 003 212  \0   "  \r   i 247  \0 003
0002160    : 006   Z  \r   "  \v   9 275 346  \0   i 237  \0 001   *  \t
0002200    9 270 355  \0   J 003 212  \0   "  \r   i 230  \0 003   "  \b
0002220    *  \n   i   O  \0 002 202  \r 001  \v   "  \n   i   K  \0 001
0002240       \0 001  \v  \0  \0  \0  \0  \0  \0 001  \a  \0  \0   "  \n
0002260    i 254  \0 001     201 001 001  \f 366   Z 001  \f 370  \0  \t
0002300   \f 367   " 004   i   J  \0 001   i   I  \0 001      \f 001 001
0002320   \f 366   Z 001  \f 370  \0  \t  \f 367   " 004   i   S  \0 001
0002340    %   R   * 004   i   Q  \0 002  \f 366   Z 001  \f 370  \0 016
0002360   \f 367   " 004   * 005   i   I  \0 002   E   E   9   G   Z 003
0002400    %   B   (  \0   i   D  \0 003   %   >   )   B   i   V  \0 002
0002420    E   U   %   T   )   =   i   S  \0 002   % 237   9   7 346  \0
0002440    )   7  \f 344   9   M 356  \0   J 006 375   P   Z  \a 001 020
0002460   \0  \0  \0  \0   =   C   Z  \t   %   &   * 006   i   >  \0 002
0002500  212  \0   "  \t   i   N  \0 002   "  \a 203  \0   B  \a   "  \a
0002520    9   I 344   J 001 360  \f 366  \0 223  \0  \0   Z 001  \f 370
0002540   \0  \v  \f 367   " 004   i   h  \0 001   B 005   =   f   Z 006
0002560    : 006   ;  \0   Z 006   " 006   : 005 345  \f 001  \n   " 005
0002600  001      \0  \0  \0   g  \0  \0  \0  \0  \0 026  \0  \0  \0 002
0002620    : 006 372  \f 001 356  \t  \v 022   N   o   t       a   n    
0002640    o   p   e   n       s   o   c   k   e   t  \0 342  \0   * 004
0002660    i   F  \0 002 205  \0 001 005  \0   i  \0  \0  \0   l  \0  \t
0002700   \f 366   Z 001  \f 370  \0 016  \f 367   " 004   9   ] 346  \0
0002720    B 006   " 005   9   Z 346  \0   B  \a 375   P   Z  \b 001   3
0002740   \0  \0  \0 003   "  \b   : 006 236  \0   #  \0   *  \b   :  \a
0002760  276  \0   +  \0 245  \r 001   $   " 005   i   H  \0 001  \t 022
0003000    !   S   o   c   k   e   t   /   h   e   a   d   e   r       m
0003020    i   s   m   a   t   c   h       f   o   r       s   o   c   k
0003040    e   t 342  \0   B  \n   " 004   i   3  \0 001 212  \0   "  \n
0003060    i 006  \0 002 001 003  \0   I  \0  \0 001  \v 001 037   "  \b
0003100  203  \0   B  \b   "  \b   9 244 344   J 001 315 204  \0 001 001
0003120   \f 366   Z 001  \f 370  \0  \n  \f 367   % 260   i 032  \0 001
0003140    B 005   : 005 372  \r 001 016   " 005   ) 024   i 250  \0 002
0003160    " 004   : 005   C 002   % 242   : 005   C 001   %  \f 203  \0
0003200    E  \n   " 005 001 004  \0 005  \0 020  \0 321  \f 366  \0   f
0003220   \0 227  \0 024  \0  \0  \0   ' 001 217 001 252 002 027  \0  \0
0003240   \0   e  \0  \0  \0  \0  \0  \0 001   z  \0  \0 001   y 001   e
0003260  001   ! 002 024 001 350 001 251 001 253  \0   m 201   3 002 025
0003300   \0 250  \0 252  \0 251  \0 306 002 022 200 254  \0 371 001 353
0003320  001     001   # 001   f 201 035 001 216 001 220 001 221 001 223
0003340  201   N 001 275 001 351  \0  \0                                
0003350