$ od -c -N 50000 [_CD4_]<dragon>Modula>Modula2Fig1.sil!1
0000000    9   l 377 377  \0 324 002   { 001   W 002 204  \0  \0 034   F
0000020    i   g   u   r   e       1   .           P   r   o   g   r   a
0000040    m       S   t   r   u   c   t   u   r   e  \0 377 377 001 374
0000060  002   x 001 375 002 211 016  \0 377 377  \0   @ 002 210 001 374
0000100  002 211 016  \0 377 377  \0   @ 002   x  \0   A 002 210 016  \0
0000120  377 377  \0   @  \0   4  \0   A 002   x 016  \0 377 377 001 374
0000140   \0   4 001 375 002   x 016  \0 377 377  \0   @ 002   x 001 375
0000160  002   y 016  \0 377 377  \0   @  \0   4 001 374  \0   5 016  \0
0000200  377 377  \0 370 001   e 001 033 001   m  \0  \0  \a   h   a   n
0000220    d   l   e   r 377 377  \0 177 001   f  \0 242 001   n  \0  \0
0000240   \a   h   a   n   d   l   e   r 377 377 001   > 002   R 001   e
0000260  002   Z  \0  \0  \a   S   c   a   n   n   e   r 377 377  \0 256
0000300  002   R  \0 362 002   Z  \0  \0 016   D   a   t   a   -   S   t
0000320    r   u   c   t   u   r   e  \0 377 377 001   D 002   0 001   X
0000340  002   8  \0  \0 003   M   2   S 377 377  \0 302 002   0  \0 326
0000360  002   7  \0  \0 003   M   2   D 377 377  \0 264 002   F  \0 265
0000400  002   J 016  \0 377 377  \0 264 002   J  \0 365 002   K 016  \0
0000420  377 377  \0 364 002   &  \0 365 002   J 016  \0 377 377  \0 360
0000440  002   &  \0 364 002   ' 016  \0 377 377  \0 254 002   "  \0 360
0000460  002   # 016  \0 377 377  \0 254 002   "  \0 255 002   F 016  \0
0000500  377 377  \0 360 002   "  \0 361 002   F 016  \0 377 377  \0 254
0000520  002   F  \0 361 002   G 016  \0 377 377 001   0 002   F 001   u
0000540  002   G 016  \0 377 377 001   t 002   " 001   u 002   F 016  \0
0000560  377 377 001   0 002   " 001   1 002   F 016  \0 377 377 001   0
0000600  002   " 001   t 002   # 016  \0 377 377 001   t 002   & 001   x
0000620  002   ' 016  \0 377 377 001   x 002   & 001   y 002   J 016  \0
0000640  377 377 001   8 002   J 001   y 002   K 016  \0 377 377 001   8
0000660  002   F 001   9 002   J 016  \0 377 377  \0 360 001   M  \0 361
0000700  001   Q 016  \0 377 377  \0 360 001   Q 001   1 001   R 016  \0
0000720  377 377 001   0 001   - 001   1 001   Q 016  \0 377 377 001   ,
0000740  001   - 001   0 001   . 016  \0 377 377  \0 350 001   ) 001   ,
0000760  001   * 016  \0 377 377  \0 350 001   )  \0 351 001   M 016  \0
0001000  377 377 001   , 001   ) 001   - 001   M 016  \0 377 377  \0 350
0001020  001   M 001   - 001   N 016  \0 377 377 001 216 001 325 001 235
0001040  001 334  \0  \0 003   M   2   I 377 377 001 214 001 243 001 240
0001060  001 252  \0  \0 003   M   2   H 377 377 001 214 001   m 001 241
0001100  001   u  \0  \0 003   M   2   G 377 377 001 214 001   9 001 237
0001120  001   @  \0  \0 003   M   2   F 377 377 001   x 001 353 001 275
0001140  001 354 016  \0 377 377 001 274 001 307 001 275 001 353 016  \0
0001160  377 377 001   x 001 307 001   y 001 353 016  \0 377 377 001   x
0001200  001 307 001 274 001 310 016  \0 377 377 001 274 001 313 001 300
0001220  001 314 016  \0 377 377 001 300 001 313 001 301 001 357 016  \0
0001240  377 377 001 200 001 357 001 301 001 360 016  \0 377 377 001 200
0001260  001 353 001 201 001 357 016  \0 377 377 001 200 001 267 001 201
0001300  001 273 016  \0 377 377 001 200 001 273 001 301 001 274 016  \0
0001320  377 377 001 300 001 227 001 301 001 273 016  \0 377 377 001 274
0001340  001 227 001 300 001 230 016  \0 377 377 001   x 001 223 001 274
0001360  001 224 016  \0 377 377 001   x 001 223 001   y 001 267 016  \0
0001400  377 377 001 274 001 223 001 275 001 267 016  \0 377 377 001   x
0001420  001 267 001 275 001 270 016  \0 377 377 001   x 001   O 001 275
0001440  001   P 016  \0 377 377 001 274 001   + 001 275 001   O 016  \0
0001460  377 377 001   x 001   + 001   y 001   O 016  \0 377 377 001   x
0001500  001   + 001 274 001   , 016  \0 377 377 001 274 001   / 001 300
0001520  001   0 016  \0 377 377 001 300 001   / 001 301 001   S 016  \0
0001540  377 377 001 200 001   S 001 301 001   T 016  \0 377 377 001 200
0001560  001   O 001 201 001   S 016  \0 377 377 001 200 001 203 001 201
0001600  001 207 016  \0 377 377 001 200 001 207 001 301 001 210 016  \0
0001620  377 377 001 300 001   c 001 301 001 207 016  \0 377 377 001 274
0001640  001   c 001 300 001   d 016  \0 377 377 001   x 001   _ 001 274
0001660  001   ` 016  \0 377 377 001   x 001   _ 001   y 001 203 016  \0
0001700  377 377 001 274 001   _ 001 275 001 203 016  \0 377 377 001   x
0001720  001 203 001 275 001 204 016  \0 377 377  \0   l 001   M  \0 261
0001740  001   N 016  \0 377 377  \0 260 001   )  \0 261 001   M 016  \0
0001760  377 377  \0   l 001   )  \0   m 001   M 016  \0 377 377  \0   l
0002000  001   )  \0 260 001   * 016  \0 377 377  \0 260 001   -  \0 264
0002020  001   . 016  \0 377 377  \0 264 001   -  \0 265 001   Q 016  \0
0002040  377 377  \0   t 001   Q  \0 265 001   R 016  \0 377 377  \0   t
0002060  001   M  \0   u 001   Q 016  \0 377 377 001   p 001   % 001   q
0002100  001 365 016  \0 377 377 001 310 001   % 001 311 001 365 016  \0
0002120  377 377 001   p 001 365 001 311 001 366 016  \0 377 377 001   p
0002140  001   % 001 310 001   & 016  \0 377 377  \0 202 001   7  \0 226
0002160  001   >  \0  \0 003   M   2   R 377 377  \0 374 001   7 001 020
0002200  001   >  \0  \0 003   M   2   T 377 377  \0   v 001   Y  \0 254
0002220  001   b  \0  \0  \v   S   y   m   b   o   l   -   F   i   l   e
0002240  377 377  \0 354 001   W 001   + 001   `  \0  \0  \f   S   y   m
0002260    b   o   l   -   T   a   b   l   e  \0 377 377 001   x 001 373
0002300  001 302 002 003  \0  \0 016   C   o   d   e       G   e   n   e
0002320    r   a   t   o   r  \0 377 377  \0   z 001 267 001   0 001 300
0002340   \0  \0   %   M   o   d   u   l   e   s       o   n       s   a
0002360    m   e       l   e   v   e   l       a   r   e       i   n   d
0002400    e   p   e   n   d   e   n   t 377 377  \0   | 001 251 001   )
0002420  001 262  \0  \0   "   M   o   d   u   l   e   s       a   b   o
0002440    v   e       i   m   p   o   r   t       m   o   d   u   l   e
0002460    s       b   e   l   o   w  \0 377 377  \0 370  \0   } 001 035
0002500   \0 206  \0  \0  \b   R   e   g   i   s   t   r   y  \0 377 377
0002520   \0 352  \0   y 001   /  \0   z 016  \0 377 377 001   .  \0   U
0002540  001   /  \0   y 016  \0 377 377  \0 352  \0   U  \0 353  \0   y
0002560  016  \0 377 377  \0 352  \0   U 001   .  \0   V 016  \0 377 377
0002600   \0 370  \0   c 001 030  \0   l  \0  \0 006   M   2   I   m   p
0002620    l  \0 377 377  \0 350  \0 370 001   -  \0 371 016  \0 377 377
0002640  001   ,  \0 324 001   -  \0 370 016  \0 377 377  \0 350  \0 324
0002660   \0 351  \0 370 016  \0 377 377  \0 350  \0 324 001   ,  \0 325
0002700  016  \0 377 377 001   ,  \0 330 001   0  \0 331 016  \0 377 377
0002720  001   0  \0 330 001   1  \0 374 016  \0 377 377  \0 360  \0 374
0002740  001   1  \0 375 016  \0 377 377  \0 360  \0 370  \0 361  \0 374
0002760  016  \0 377 377  \0 360  \0 304  \0 361  \0 310 016  \0 377 377
0003000   \0 360  \0 310 001   1  \0 311 016  \0 377 377 001   0  \0 244
0003020  001   1  \0 310 016  \0 377 377 001   ,  \0 244 001   0  \0 245
0003040  016  \0 377 377  \0 350  \0 240 001   ,  \0 241 016  \0 377 377
0003060   \0 350  \0 240  \0 351  \0 304 016  \0 377 377 001   ,  \0 240
0003100  001   -  \0 304 016  \0 377 377  \0 350  \0 304 001   -  \0 305
0003120  016  \0 377 377  \0 342  \0 232 001   6  \0 233 016  \0 377 377
0003140   \0 374  \0 256 001 020  \0 265  \0  \0 003   M   2   P 377 377
0003160   \0 374  \0 342 001 021  \0 352  \0  \0 003   M   2   Q 377 377
0003200   \0 342  \0 232  \0 343 001 002 016  \0 377 377 001   6  \0 232
0003220  001   7 001 002 016  \0 377 377  \0 342 001 002 001   7 001 003
0003240  016  \0 377 377  \0 374 001 006 001 032 001 016  \0  \0 006   P
0003260    a   r   s   e   r  \0                                        
0003266