$ od -c -N 50000 [Indigo]<Dragon>Modula>Modula2Fig4.sil!1
0000000    9   l 377 377 001   J 001   x 001   _ 001 200  \0  \0 003   Q
0000020    R   X 377 377 001   R 001   X 001   _ 001   _  \0  \0 002   R
0000040    X  \0 377 377 001   N 001   F 001   ] 001   N  \0  \0 003   S
0000060    R   I 377 377 001   N 001   8 001   \ 001   ?  \0  \0 003   L
0000100    R   I 377 377 001   P 001   $ 001   ` 001   +  \0  \0 002   W
0000120    B  \0 377 377 001   P 001 030 001   ] 001 037  \0  \0 002   R
0000140    B  \0 377 377  \0 330 002   X 001   : 002   a  \0  \0 025   F
0000160    i   g   u   r   e       4   .           I   t   e   m       M
0000200    o   d   e   s 377 377 001 374 001 236 002   4 001 246  \0  \0
0000220   \v   c   o   n   d       l   o   a   d   e   d 377 377 001 316
0000240  001 234 001 360 001 245  \0  \0  \b   i   n       c   -   r   e
0000260    g  \0 377 377 001 364 001 264 001 371 001 265 016  \0 377 377
0000300  001 370 001 224 001 371 001 264 016  \0 377 377 001 364 001 224
0000320  001 370 001 225 016  \0 377 377 002 002  \0 304 002   !  \0 313
0000340   \0  \0 006   l   o   a   d   e   d  \0 377 377 001 370  \0 364
0000360  001 375  \0 365 016  \0 377 377 001 374  \0 224 001 375  \0 364
0000400  016  \0 377 377 001 370  \0 224 001 374  \0 225 016  \0 377 377
0000420  001 320  \0 342 001 360  \0 353  \0  \0  \b   i   n       r   -
0000440    r   e   g  \0 377 377 001 316  \0 274 001 365  \0 303  \0  \0
0000460   \b   o   n       s   t   a   c   k  \0 377 377 001 304 001 264
0000500  001 311 001 265 016  \0 377 377 001 310 001 224 001 311 001 264
0000520  016  \0 377 377 001 304 001 224 001 310 001 225 016  \0 377 377
0000540  001 310 001   T 001 311 001 220 016  \0 377 377 001   h  \0 336
0000560  001 251  \0 347  \0  \0  \r   d   L   =   0   ,       r   e   g
0000600        v   a   r 377 377 001   h 001 036 001 201 001   &  \0  \0
0000620  006   d   L       >       1  \0 377 377 001   h 001   > 001 273
0000640  001   G  \0  \0 017   d   L   =   0   /   1   ,       m   e   m
0000660        v   a   r 377 377  \0 324 001 200 001   ' 001 213  \0  \0
0000700  020   m   [   r   [   L   +   r   e   g   ]   +   r   [   S   ]
0000720    ]  \0 377 377  \0 324 001   ` 001 027 001   k  \0  \0 016   m
0000740    [   r   [   S   -   1   ]   +   r   [   S   ]   ]  \0 377 377
0000760   \0 324 001   @ 001   " 001   K  \0  \0 017   m   [   r   [   L
0001000    +   r   e   g   ]   +   o   f   f   ] 377 377  \0 324 001    
0001020  001  \t 001   +  \0  \0  \v   m   [   r   [   S   ]   +   o   f
0001040    f   ] 377 377  \0 324  \0 300  \0 344  \0 313  \0  \0 004   r
0001060    [   S   ]  \0 377 377  \0 326 001  \0 001 003 001  \t  \0  \0
0001100   \t   O   p   e   r   a   t   i   o   n 377 377  \0 324  \0 240
0001120  001   3  \0 251  \0  \0 024   J   u   m   p       L   i   n   k
0001140    s   ,       R   e   l   a   t   i   o   n  \0 377 377 001 304
0001160   \0 264 001 310  \0 265 016  \0 377 377  \0 304  \0   t  \0 305
0001200  002   4 016  \0 377 377  \0   |  \0   t  \0   } 002   4 016  \0
0001220  377 377  \0   ,  \0   t  \0   - 002   4 016  \0 377 377  \0   ,
0001240  002   4 001 300 002   5 016  \0 377 377  \0   , 002   4 001   d
0001260  002   5 016  \0 377 377 001   d 002 024 001 300 002 025 016  \0
0001300  377 377 001   d 002   4 001 301 002   5 016  \0 377 377 001   p
0001320  002     001 205 002   '  \0  \0 004   P   r   o   c  \0 377 377
0001340  001   r 002  \0 001 203 002  \b  \0  \0 003   T   y   p 377 377
0001360  001   r 001 340 001 240 001 347  \0  \0  \b   C   o   d   e   P
0001400    r   o   c  \0 377 377 001   r 001 300 001 201 001 307  \0  \0
0001420  003   V   a   r 377 377 001   r 001 240 001 215 001 247  \0  \0
0001440  005   C   o   n   s   t 377 377  \0   B 002      \0   ^ 002   (
0001460   \0  \0 005   t   y   p   M   d 377 377  \0   B 002  \0  \0   e
0001500  002  \b  \0  \0 006   p   r   o   c   M   d  \0 377 377  \0   B
0001520  001 340  \0   a 001 347  \0  \0 005   c   o   d   M   d 377 377
0001540   \0   B 001 300  \0   ^ 001 307  \0  \0 005   v   a   r   M   d
0001560  377 377  \0   B 001 240  \0   a 001 247  \0  \0 005   c   o   n
0001600    M   d 377 377  \0   . 002 024 001   g 002 025 016  \0 377 377
0001620   \0   . 001 364 001 302 001 365 016  \0 377 377  \0   . 001 324
0001640  001 302 001 325 016  \0 377 377  \0   . 001 264 001 302 001 265
0001660  016  \0 377 377  \0   . 001 224 001 302 001 225 016  \0 377 377
0001700   \0   B  \0 376  \0   a 001  \a  \0  \0 005   o   p   n   M   d
0001720  377 377 001 304  \0 364 001 311  \0 365 016  \0 377 377  \0   ,
0001740   \0 362 001 300  \0 363 016  \0 377 377  \0 200  \0 250  \0 263
0001760   \0 260  \0  \0  \n   F   j   m   p   ,       T   j   m   p  \0
0002000  377 377  \0 210  \0 236  \0 252  \0 247  \0  \0  \b   o   p   t
0002020    ,       r   e   g  \0 377 377  \0 222  \0 226  \0 234  \0 236
0002040   \0  \0 003   r   e   l 377 377  \0 212 001 006  \0 270 001 016
0002060   \0  \0  \n   o   p   t   2   ,       r   e   g   2  \0 377 377
0002100   \0 216  \0 374  \0 261 001 003  \0  \0  \b   o   p   t   ,    
0002120    r   e   g  \0 377 377  \0 230  \0 364  \0 247  \0 372  \0  \0
0002140  003   o   p   r 377 377  \0 214  \0 340  \0 257  \0 347  \0  \0
0002160   \b   o   p   t   ,       r   e   g  \0 377 377  \0   @  \0 340
0002200   \0   ]  \0 350  \0  \0 005   r   e   g   M   d 377 377  \0   @
0002220   \0 240  \0   _  \0 250  \0  \0 005   j   m   p   M   d 377 377
0002240  001 320 001   l 002 033 001   s  \0  \0 017   b   a   s   e   /
0002260    i   n   x       l   o   a   d   e   d 377 377 001 320 001   0
0002300  002 001 001   7  \0  \0  \n   a   d   r       l   o   a   d   e
0002320    d  \0 377 377 001   d  \0   t 001   e 002   4 016  \0 377 377
0002340  001 300  \0   t 001 301 002   4 016  \0 377 377  \0   , 001   T
0002360  001 300 001   U 016  \0 377 377 001 300 002   4 001 301 002   5
0002400  016  \0 377 377  \0   , 001 224 001 300 001 225 016  \0 377 377
0002420   \0   , 001   t 001 300 001   u 016  \0 377 377  \0   , 001   4
0002440  001 300 001   5 016  \0 377 377  \0   <  \0 200  \0   U  \0 207
0002460   \0  \0 004   M   o   d   e  \0 377 377  \0 210  \0 200  \0 264
0002500   \0 207  \0  \0  \n   A   t   t   r   i   b   u   t   e   s  \0
0002520  377 377  \0 320  \0 200  \0 345  \0 207  \0  \0 004   D   a   t
0002540    a  \0 377 377  \0   ,  \0 264 001 300  \0 265 016  \0 377 377
0002560   \0   ,  \0 324 001 300  \0 325 016  \0 377 377  \0   ,  \0 224
0002600  001 300  \0 226 016  \0 377 377  \0   ,  \0   t 001   d  \0   u
0002620  016  \0 377 377 001   d  \0   t 001 300  \0   u 016  \0 377 377
0002640   \0   ,  \0 364 001 300  \0 365 016  \0 377 377  \0   , 001 024
0002660  001 300 001 025 016  \0 377 377  \0   @ 001 200  \0   ^ 001 207
0002700   \0  \0 006   l   i   n   x   M   d  \0 377 377  \0 230 001 200
0002720   \0 247 001 206  \0  \0 003   r   e   g 377 377  \0   @ 001   `
0002740   \0   a 001   g  \0  \0 006   s   i   n   x   M   d  \0 377 377
0002760   \0   @ 001   @  \0   ` 001   G  \0  \0 006   l   a   d   r   M
0003000    d  \0 377 377  \0 220 001   @  \0 260 001   H  \0  \0  \b   r
0003020    e   g   ,       o   f   f  \0 377 377  \0 224 001      \0 240
0003040  001   '  \0  \0 003   o   f   f 377 377  \0   @ 001      \0   b
0003060  001   '  \0  \0 006   s   a   d   r   M   d  \0 377 377  \0   @
0003100   \0 300  \0   [  \0 307  \0  \0 005   s   t   k   M   d 377 377
0003120   \0   , 001 222 001 300 001 223 016  \0 377 377  \0   , 001   R
0003140  001 300 001   S 016  \0 377 377  \0   ,  \0 322 001 300  \0 323
0003160  016  \0 377 377 001 304 001   T 001 310 001   U 016  \0 377 377
0003200  001 304 001 220 001 311 001 221 016  \0 377 377 001 304 001 024
0003220  001 310 001 025 016  \0 377 377 001 310 001 024 001 311 001   P
0003240  016  \0 377 377 001 304 001   P 001 311 001   Q 016  \0 377 377
0003260  001 304  \0 324 001 304  \0 325 016  \0 377 377 001 304  \0 324
0003300  001 310  \0 325 016  \0 377 377 001 310  \0 324 001 311  \0 364
0003320  016  \0 377 377 001 310  \0 264 001 311  \0 320 016  \0 377 377
0003340  001 304  \0 320 001 311  \0 321 016  \0 377 377 001   p  \0 200
0003360  001 260  \0 207  \0  \0 021   i   n   i   t   i   a   l       s
0003400    t   a   t   e       f   o   r 377 377  \0 324 001 240 001 016
0003420  001 251  \0  \0  \f   s   y   m   b   o   l       t   a   b   l
0003440    e  \0 377 377  \0 324 001 300 001 016 001 311  \0  \0  \f   s
0003460    y   m   b   o   l       t   a   b   l   e  \0 377 377  \0 324
0003500  001 340 001 016 001 351  \0  \0  \f   s   y   m   b   o   l    
0003520    t   a   b   l   e  \0 377 377  \0 324 002  \0 001 016 002  \t
0003540   \0  \0  \f   s   y   m   b   o   l       t   a   b   l   e  \0
0003560  377 377  \0 324 002     001 016 002   )  \0  \0  \f   s   y   m
0003600    b   o   l       t   a   b   l   e  \0 377 377  \0 324  \0 340
0003620   \0 374  \0 353  \0  \0  \b   r   [   L   +   r   e   g   ]  \0
0003640  377 377  \0   , 001 224  \0   | 001 364 037  \0 377 377  \0   ,
0003660  001 324  \0   | 002   4 037  \0 377 377  \0   ,  \0 224  \0   |
0003700  001 224 037  \0                                                
0003704