00000000
00000018
00000030
00000048
00000060
00000078
00000090
000000A8
000000C0
000000D8
000000F0
00000108
00000120
00000138
00000150
00000168
00000180
00000198
000001B0
000001C8
000001E0
000001F8
00000210
00000228
00000240
00000258
00000270
00000288
000002A0
000002B8
000002D0
000002E8
00000300
00000318
00000330
00000348
00000360
00000378
00000390
000003A8
000003C0
000003D8
000003F0
00000408
00000420
00000438
00000450
00000468
00000480
00000498
000004B0
000004C8
000004E0
000004F8
00000510
00000528
00000540
00000558
00000570
00000588
000005A0
000005B8
000005D0
000005E8
00000600
00000618
00000630
00000648
00000660
00000678
00000690
000006A8
000006C0
000006D8
000006F0
00000708
00000720
00000738
00000750
00000768
00000780
00000798
000007B0
000007C8
000007E0
000007F8
00000810
00000828
00000840
00000858
00000870
00000888
000008A0
000008B8
000008D0
000008E8
00000900
00000918
00000930
00000948
00000960
00000978
00000990
000009A8
000009C0
000009D8
000009F0
00000A08
00000A20
00000A38
00000A50
00000A68
00000A80
00000A98
00000AB0
00000AC8
00000AE0
00000AF8
00000B10
00000B28
00000B40
00000B58
00000B70
00000B88
00000BA0
00000BB8
00000BD0
00000BE8
00000C00
00000C18
00000C30
00000C48
00000C60
00000C78
00000C90
00000CA8
00000CC0
00000CD8
00000CF0
00000D08
00000D20
00000D38
00000D50
00000D68
00000D80
00000D98
00000DB0
00000DC8
00000DE0
00000DF8
00000E10
00000E28
00000E40
00000E58
00000E70
00000E88
00000EA0
00000EB8
00000ED0
00000EE8
00000F00
00000F18
00000F30
00000F48
00000F60
00000F78
00000F90
00000FA8
00000FC0
00000FD8
00000FF0
00001008
00001020
00001038
00001050
00001068
00001080
00001098
000010B0
000010C8
000010E0
000010F8
00001110
00001128
00001140
00001158
00001170
00001188
000011A0
000011B8
000011D0
000011E8
00001200
00001218
00001230
00001248
00001260
00001278
00001290
000012A8
000012C0
000012D8
000012F0
00001308
00001320
00001338
00001350
00001368
00001380
00001398
000013B0
000013C8
000013E0
000013F8
00001410
00001428
00001440
00001458
00001470
00001488
000014A0
000014B8
000014D0
000014E8
00001500
00001518
00001530
00001548
00001560
00001578
00001590
000015A8
000015C0
000015D8
000015F0
00001608
00001620
00001638
00001650
00001668
00001680
00001698
000016B0
000016C8
000016E0
000016F8
00001710
00001728
00001740
00001758
00001770
00001788
000017A0
000017B8
000017D0
000017E8
00001800
00001818
00001830
00001848
00001860
00001878
00001890
000018A8
000018C0
000018D8
000018F0
00001908
00001920
00001938
00001950
00001968
00001980
00001998
000019B0
000019C8
000019E0
000019F8
00001A10
00001A28
00001A40
00001A58
00001A70
00001A88
00001AA0
00001AB8
00001AD0
00001AE8
00001B00
00001B18
00001B30
00001B48
00001B60
00001B78
00001B90
00001BA8
00001BC0
00001BD8
00001BF0
00001C08
00001C20
00001C38
00001C50
00001C68
00001C80
00001C98
00001CB0
00001CC8
00001CE0
00001CF8
00001D10
00001D28
00001D40
00001D58
00001D70
00001D88
00001DA0
00001DB8
00001DD0
00001DE8
00001E00
00001E18
00001E30
00001E48
00001E60
00001E78
00001E90
00001EA8
00001EC0
00001ED8
00001EF0
00001F08
00001F20
00001F38
00001F50
00001F68
00001F80
00001F98
00001FB0
00001FC8
00001FE0
00001FF8
00002010
00002028
00002040
00002058
00002070
00002088
000020A0
000020B8
000020D0
000020E8
00002100
00002118
00002130
00002148
00002160
00002178
00002190
000021A8
000021C0
000021D8
000021F0
00002208
00002220
00002238
00002250
00002268
00002280
00002298
000022B0
000022C8
000022E0
000022F8
00002310
00002328
00002340
00002358
00002370
00002388
000023A0
000023B8
000023D0
000023E8
00002400
00002418
00002430
00002448
00002460
00002478
00002490
000024A8
000024C0
000024D8
000024F0
00002508
00002520
00002538
00002550
00002568
00002580
00002598
000025B0
000025C8
000025E0
000025F8
00002610
00002628
00002640
00002658
00002670
00002688
000026A0
000026B8
000026D0
000026E8
00002700
00002718
00002730
00002748
00002760
00002778
00002790
000027A8
000027C0
000027D8
000027F0
00002808
00002820
00002838
00002850
00002868
00002880
00002898
000028B0
000028C8
000028E0
000028F8
00002910
00002928
00002940
00002958
00002970
00002988
000029A0
000029B8
000029D0
000029E8
00002A00
00002A18
00002A30
00002A48
00002A60
00002A78
00002A90
00002AA8
00002AC0
00002AD8
00002AF0
00002B08
00002B20
00002B38
00002B50
00002B68
00002B80
00002B98
00002BB0
00002BC8
00002BE0
00002BF8
00002C10
00002C28
00002C40
00002C58
00002C70
00002C88
00002CA0
00002CB8
00002CD0
00002CE8
00002D00
00002D18
00002D30
00002D48
00002D60
00002D78
00002D90
00002DA8
00002DC0
00002DD8
00002DF0
00002E08
00002E20
00002E38
00002E50
00002E68
00002E80
00002E98
00002EB0
00002EC8
00002EE0
00002EF8
00002F10
00002F28
00002F40
00002F58
00002F70
00002F88
00002FA0
00002FB8
00002FD0
00002FE8
00003000
00003018
00003030
00003048
00003060
00003078
00003090
000030A8
000030C0
000030D8
000030F0
00003108
00003120
00003138
00003150
00003168
00003180
00003198
000031B0
000031C8
000031E0
000031F8
00003210
00003228
00003240
00003258
00003270
00003288
000032A0
000032B8
000032D0
000032E8
00003300
00003318
00003330
00003348
00003360
00003378
00003390
000033A8
000033C0
000033D8
000033F0
00003408
00003420
00003438
00003450
00003468
00003480
00003498
000034B0
000034C8
000034E0
000034F8
00003510
00003528
00003540
00003558
00003570
00003588
000035A0
000035B8
000035D0
000035E8
00003600
00003618
00003630
00003648
00003660
00003678
00003690
000036A8
000036C0
000036D8
000036F0
00003708
00003720
00003738
00003750
00003768
00003780
00003798
000037B0
000037C8
000037E0
000037F8
00003810
00003828
00003840
00003858
00003870
00003888
000038A0
000038B8
000038D0
000038E8
00003900
00003918
00003930
00003948
00003960
00003978
00003990
000039A8
000039C0
000039D8
000039F0
00003A08
00003A20
00003A38
00003A50
00003A68
00003A80
00003A98
00003AB0
00003AC8
00003AE0
00003AF8
00003B10
00003B28
00003B40
00003B58
00003B70
00003B88
00003BA0
00003BB8
00003BD0
00003BE8
00003C00
00003C18
00003C30
00003C48
00003C60
00003C78
00003C90
00003CA8
00003CC0
00003CD8
00003CF0
00003D08
00003D20
00003D38
00003D50
00003D68
00003D80
00003D98
00003DB0
00003DC8
00003DE0
00003DF8
00003E10
00003E28
00003E40
00003E58
00003E70
00003E88
00003EA0
00003EB8
00003ED0
00003EE8
00003F00
00003F18
00003F30
00003F48
00003F60
00003F78
00003F90
00003FA8
00003FC0
00003FD8
00003FF0
00004008
00004020
00004038
00004050
00004068
00004080
00004098
000040B0
000040C8
000040E0
000040F8
00004110
00004128
00004140
00004158
00004170
00004188
000041A0
000041B8
000041D0
000041E8
00004200
00004218
00004230
00004248
00004260
00004278
00004290
000042A8
000042C0
000042D8
000042F0
00004308
00004320
00004338
00004350
00004368
00004380
00004398
000043B0
000043C8
| 23 21 2F 75 73 72 2F 62 69 6E 2F 70 65 72 6C 0A 20 20 20 20 65 76 61 6C
20 27 65 78 65 63 20 2F 75 73 72 2F 62 69 6E 2F 70 65 72 6C 20 2D 53 20
24 30 20 24 7B 31 2B 22 24 40 22 7D 27 0A 09 69 66 20 24 72 75 6E 6E 69
6E 67 5F 75 6E 64 65 72 5F 73 6F 6D 65 5F 73 68 65 6C 6C 3B 0A 0A 3D 68
65 61 64 31 20 4E 41 4D 45 0A 0A 64 69 61 67 6E 6F 73 74 69 63 73 2C 20
73 70 6C 61 69 6E 20 2D 20 70 72 6F 64 75 63 65 20 76 65 72 62 6F 73 65
20 77 61 72 6E 69 6E 67 20 64 69 61 67 6E 6F 73 74 69 63 73 0A 0A 3D 68
65 61 64 31 20 53 59 4E 4F 50 53 49 53 0A 0A 55 73 69 6E 67 20 74 68 65
20 43 3C 64 69 61 67 6E 6F 73 74 69 63 73 3E 20 70 72 61 67 6D 61 3A 0A
0A 20 20 20 20 75 73 65 20 64 69 61 67 6E 6F 73 74 69 63 73 3B 0A 20 20
20 20 75 73 65 20 64 69 61 67 6E 6F 73 74 69 63 73 20 2D 76 65 72 62 6F
73 65 3B 0A 0A 20 20 20 20 65 6E 61 62 6C 65 20 20 64 69 61 67 6E 6F 73
74 69 63 73 3B 0A 20 20 20 20 64 69 73 61 62 6C 65 20 64 69 61 67 6E 6F
73 74 69 63 73 3B 0A 0A 55 73 69 6E 67 20 74 68 65 20 43 3C 73 70 6C 61
69 6E 3E 20 73 74 61 6E 64 61 6C 6F 6E 65 20 66 69 6C 74 65 72 20 70 72
6F 67 72 61 6D 3A 0A 0A 20 20 20 20 70 65 72 6C 20 70 72 6F 67 72 61 6D
20 32 3E 64 69 61 67 2E 6F 75 74 0A 20 20 20 20 73 70 6C 61 69 6E 20 5B
2D 76 5D 20 5B 2D 70 5D 20 64 69 61 67 2E 6F 75 74 0A 0A 55 73 69 6E 67
20 64 69 61 67 6E 6F 73 74 69 63 73 20 74 6F 20 67 65 74 20 73 74 61 63
6B 20 74 72 61 63 65 73 20 66 72 6F 6D 20 61 20 6D 69 73 62 65 68 61 76
69 6E 67 20 73 63 72 69 70 74 3A 0A 0A 20 20 20 20 70 65 72 6C 20 2D 4D
64 69 61 67 6E 6F 73 74 69 63 73 3D 2D 74 72 61 63 65 6F 6E 6C 79 20 6D
79 5F 73 63 72 69 70 74 2E 70 6C 0A 0A 3D 68 65 61 64 31 20 44 45 53 43
52 49 50 54 49 4F 4E 0A 0A 3D 68 65 61 64 32 20 54 68 65 20 43 3C 64 69
61 67 6E 6F 73 74 69 63 73 3E 20 50 72 61 67 6D 61 0A 0A 54 68 69 73 20
6D 6F 64 75 6C 65 20 65 78 74 65 6E 64 73 20 74 68 65 20 74 65 72 73 65
20 64 69 61 67 6E 6F 73 74 69 63 73 20 6E 6F 72 6D 61 6C 6C 79 20 65 6D
69 74 74 65 64 20 62 79 20 62 6F 74 68 20 74 68 65 0A 70 65 72 6C 20 63
6F 6D 70 69 6C 65 72 20 61 6E 64 20 74 68 65 20 70 65 72 6C 20 69 6E 74
65 72 70 72 65 74 65 72 20 28 66 72 6F 6D 20 72 75 6E 6E 69 6E 67 20 70
65 72 6C 20 77 69 74 68 20 61 20 2D 77 20 0A 73 77 69 74 63 68 20 6F 72
20 43 3C 75 73 65 20 77 61 72 6E 69 6E 67 73 3E 29 2C 20 61 75 67 6D 65
6E 74 69 6E 67 20 74 68 65 6D 20 77 69 74 68 20 74 68 65 20 6D 6F 72 65
0A 65 78 70 6C 69 63 61 74 69 76 65 20 61 6E 64 20 65 6E 64 65 61 72 69
6E 67 20 64 65 73 63 72 69 70 74 69 6F 6E 73 20 66 6F 75 6E 64 20 69 6E
20 4C 3C 70 65 72 6C 64 69 61 67 3E 2E 20 20 4C 69 6B 65 20 74 68 65 0A
6F 74 68 65 72 20 70 72 61 67 6D 61 74 61 2C 20 69 74 20 61 66 66 65 63
74 73 20 74 68 65 20 63 6F 6D 70 69 6C 61 74 69 6F 6E 20 70 68 61 73 65
20 6F 66 20 79 6F 75 72 20 70 72 6F 67 72 61 6D 20 72 61 74 68 65 72 0A
74 68 61 6E 20 6D 65 72 65 6C 79 20 74 68 65 20 65 78 65 63 75 74 69 6F
6E 20 70 68 61 73 65 2E 0A 0A 54 6F 20 75 73 65 20 69 6E 20 79 6F 75 72
20 70 72 6F 67 72 61 6D 20 61 73 20 61 20 70 72 61 67 6D 61 2C 20 6D 65
72 65 6C 79 20 69 6E 76 6F 6B 65 0A 0A 20 20 20 20 75 73 65 20 64 69 61
67 6E 6F 73 74 69 63 73 3B 0A 0A 61 74 20 74 68 65 20 73 74 61 72 74 20
28 6F 72 20 6E 65 61 72 20 74 68 65 20 73 74 61 72 74 29 20 6F 66 20 79
6F 75 72 20 70 72 6F 67 72 61 6D 2E 20 20 28 4E 6F 74 65 20 0A 74 68 61
74 20 74 68 69 73 20 49 3C 64 6F 65 73 3E 20 65 6E 61 62 6C 65 20 70 65
72 6C 27 73 20 42 3C 2D 77 3E 20 66 6C 61 67 2E 29 20 20 59 6F 75 72 20
77 68 6F 6C 65 0A 63 6F 6D 70 69 6C 61 74 69 6F 6E 20 77 69 6C 6C 20 74
68 65 6E 20 62 65 20 73 75 62 6A 65 63 74 28 65 64 20 3A 2D 29 20 74 6F
20 74 68 65 20 65 6E 68 61 6E 63 65 64 20 64 69 61 67 6E 6F 73 74 69 63
73 2E 0A 54 68 65 73 65 20 73 74 69 6C 6C 20 67 6F 20 6F 75 74 20 42 3C
53 54 44 45 52 52 3E 2E 0A 0A 44 75 65 20 74 6F 20 74 68 65 20 69 6E 74
65 72 61 63 74 69 6F 6E 20 62 65 74 77 65 65 6E 20 72 75 6E 74 69 6D 65
20 61 6E 64 20 63 6F 6D 70 69 6C 65 74 69 6D 65 20 69 73 73 75 65 73 2C
0A 61 6E 64 20 62 65 63 61 75 73 65 20 69 74 27 73 20 70 72 6F 62 61 62
6C 79 20 6E 6F 74 20 61 20 76 65 72 79 20 67 6F 6F 64 20 69 64 65 61 20
61 6E 79 77 61 79 2C 0A 79 6F 75 20 6D 61 79 20 6E 6F 74 20 75 73 65 20
43 3C 6E 6F 20 64 69 61 67 6E 6F 73 74 69 63 73 3E 20 74 6F 20 74 75 72
6E 20 74 68 65 6D 20 6F 66 66 20 61 74 20 63 6F 6D 70 69 6C 65 74 69 6D
65 2E 0A 48 6F 77 65 76 65 72 2C 20 79 6F 75 20 6D 61 79 20 63 6F 6E 74
72 6F 6C 20 74 68 65 69 72 20 62 65 68 61 76 69 6F 75 72 20 61 74 20 72
75 6E 74 69 6D 65 20 75 73 69 6E 67 20 74 68 65 20 0A 64 69 73 61 62 6C
65 28 29 20 61 6E 64 20 65 6E 61 62 6C 65 28 29 20 6D 65 74 68 6F 64 73
20 74 6F 20 74 75 72 6E 20 74 68 65 6D 20 6F 66 66 20 61 6E 64 20 6F 6E
20 72 65 73 70 65 63 74 69 76 65 6C 79 2E 0A 0A 54 68 65 20 42 3C 2D 76
65 72 62 6F 73 65 3E 20 66 6C 61 67 20 66 69 72 73 74 20 70 72 69 6E 74
73 20 6F 75 74 20 74 68 65 20 4C 3C 70 65 72 6C 64 69 61 67 3E 20 69 6E
74 72 6F 64 75 63 74 69 6F 6E 20 62 65 66 6F 72 65 0A 61 6E 79 20 6F 74
68 65 72 20 64 69 61 67 6E 6F 73 74 69 63 73 2E 20 20 54 68 65 20 24 64
69 61 67 6E 6F 73 74 69 63 73 3A 3A 50 52 45 54 54 59 20 76 61 72 69 61
62 6C 65 20 63 61 6E 20 67 65 6E 65 72 61 74 65 20 6E 69 63 65 72 0A 65
73 63 61 70 65 20 73 65 71 75 65 6E 63 65 73 20 66 6F 72 20 70 61 67 65
72 73 2E 0A 0A 57 61 72 6E 69 6E 67 73 20 64 69 73 70 61 74 63 68 65 64
20 66 72 6F 6D 20 70 65 72 6C 20 69 74 73 65 6C 66 20 28 6F 72 20 6D 6F
72 65 20 61 63 63 75 72 61 74 65 6C 79 2C 20 74 68 6F 73 65 20 74 68 61
74 20 6D 61 74 63 68 0A 64 65 73 63 72 69 70 74 69 6F 6E 73 20 66 6F 75
6E 64 20 69 6E 20 4C 3C 70 65 72 6C 64 69 61 67 3E 29 20 61 72 65 20 6F
6E 6C 79 20 64 69 73 70 6C 61 79 65 64 20 6F 6E 63 65 20 28 6E 6F 20 64
75 70 6C 69 63 61 74 65 0A 64 65 73 63 72 69 70 74 69 6F 6E 73 29 2E 20
20 55 73 65 72 20 63 6F 64 65 20 67 65 6E 65 72 61 74 65 64 20 77 61 72
6E 69 6E 67 73 20 61 20 6C 61 20 77 61 72 6E 28 29 20 61 72 65 20 75 6E
61 66 66 65 63 74 65 64 2C 0A 61 6C 6C 6F 77 69 6E 67 20 64 75 70 6C 69
63 61 74 65 20 75 73 65 72 20 6D 65 73 73 61 67 65 73 20 74 6F 20 62 65
20 64 69 73 70 6C 61 79 65 64 2E 0A 0A 54 68 69 73 20 6D 6F 64 75 6C 65
20 61 6C 73 6F 20 61 64 64 73 20 61 20 73 74 61 63 6B 20 74 72 61 63 65
20 74 6F 20 74 68 65 20 65 72 72 6F 72 20 6D 65 73 73 61 67 65 20 77 68
65 6E 20 70 65 72 6C 20 64 69 65 73 2E 0A 54 68 69 73 20 69 73 20 75 73
65 66 75 6C 20 66 6F 72 20 70 69 6E 70 6F 69 6E 74 69 6E 67 20 77 68 61
74 20 63 61 75 73 65 64 20 74 68 65 20 64 65 61 74 68 2E 20 54 68 65 20
42 3C 2D 74 72 61 63 65 6F 6E 6C 79 3E 20 28 6F 72 0A 6A 75 73 74 20 42
3C 2D 74 3E 29 20 66 6C 61 67 20 74 75 72 6E 73 20 6F 66 66 20 74 68 65
20 65 78 70 6C 61 6E 61 74 69 6F 6E 73 20 6F 66 20 77 61 72 6E 69 6E 67
20 6D 65 73 73 61 67 65 73 20 6C 65 61 76 69 6E 67 20 6A 75 73 74 0A 74
68 65 20 73 74 61 63 6B 20 74 72 61 63 65 73 2E 20 53 6F 20 69 66 20 79
6F 75 72 20 73 63 72 69 70 74 20 69 73 20 64 69 65 69 6E 67 2C 20 72 75
6E 20 69 74 20 61 67 61 69 6E 20 77 69 74 68 0A 0A 20 20 70 65 72 6C 20
2D 4D 64 69 61 67 6E 6F 73 74 69 63 73 3D 2D 74 72 61 63 65 6F 6E 6C 79
20 6D 79 5F 62 61 64 5F 73 63 72 69 70 74 0A 0A 74 6F 20 73 65 65 20 74
68 65 20 63 61 6C 6C 20 73 74 61 63 6B 20 61 74 20 74 68 65 20 74 69 6D
65 20 6F 66 20 64 65 61 74 68 2E 20 42 79 20 73 75 70 70 6C 79 69 6E 67
20 74 68 65 20 42 3C 2D 77 61 72 6E 74 72 61 63 65 3E 0A 28 6F 72 20 6A
75 73 74 20 42 3C 2D 77 3E 29 20 66 6C 61 67 2C 20 61 6E 79 20 77 61 72
6E 69 6E 67 73 20 65 6D 69 74 74 65 64 20 77 69 6C 6C 20 61 6C 73 6F 20
63 6F 6D 65 20 77 69 74 68 20 61 20 73 74 61 63 6B 0A 74 72 61 63 65 2E
0A 0A 3D 68 65 61 64 32 20 54 68 65 20 49 3C 73 70 6C 61 69 6E 3E 20 50
72 6F 67 72 61 6D 0A 0A 57 68 69 6C 65 20 61 70 70 61 72 65 6E 74 6C 79
20 61 20 77 68 6F 6C 65 20 6E 75 74 68 65 72 20 70 72 6F 67 72 61 6D 2C
20 49 3C 73 70 6C 61 69 6E 3E 20 69 73 20 61 63 74 75 61 6C 6C 79 20 6E
6F 74 68 69 6E 67 0A 6D 6F 72 65 20 74 68 61 6E 20 61 20 6C 69 6E 6B 20
74 6F 20 74 68 65 20 28 65 78 65 63 75 74 61 62 6C 65 29 20 46 3C 64 69
61 67 6E 6F 73 74 69 63 73 2E 70 6D 3E 20 6D 6F 64 75 6C 65 2C 20 61 73
20 77 65 6C 6C 20 61 73 0A 61 20 6C 69 6E 6B 20 74 6F 20 74 68 65 20 46
3C 64 69 61 67 6E 6F 73 74 69 63 73 2E 70 6F 64 3E 20 64 6F 63 75 6D 65
6E 74 61 74 69 6F 6E 2E 20 20 54 68 65 20 42 3C 2D 76 3E 20 66 6C 61 67
20 69 73 20 6C 69 6B 65 0A 74 68 65 20 43 3C 75 73 65 20 64 69 61 67 6E
6F 73 74 69 63 73 20 2D 76 65 72 62 6F 73 65 3E 20 64 69 72 65 63 74 69
76 65 2E 0A 54 68 65 20 42 3C 2D 70 3E 20 66 6C 61 67 20 69 73 20 6C 69
6B 65 20 74 68 65 0A 24 64 69 61 67 6E 6F 73 74 69 63 73 3A 3A 50 52 45
54 54 59 20 76 61 72 69 61 62 6C 65 2E 20 20 53 69 6E 63 65 20 79 6F 75
27 72 65 20 70 6F 73 74 2D 70 72 6F 63 65 73 73 69 6E 67 20 77 69 74 68
20 0A 49 3C 73 70 6C 61 69 6E 3E 2C 20 74 68 65 72 65 27 73 20 6E 6F 20
73 65 6E 73 65 20 69 6E 20 62 65 69 6E 67 20 61 62 6C 65 20 74 6F 20 65
6E 61 62 6C 65 28 29 20 6F 72 20 64 69 73 61 62 6C 65 28 29 20 70 72 6F
63 65 73 73 69 6E 67 2E 0A 0A 4F 75 74 70 75 74 20 66 72 6F 6D 20 49 3C
73 70 6C 61 69 6E 3E 20 69 73 20 64 69 72 65 63 74 65 64 20 74 6F 20 42
3C 53 54 44 4F 55 54 3E 2C 20 75 6E 6C 69 6B 65 20 74 68 65 20 70 72 61
67 6D 61 2E 0A 0A 3D 68 65 61 64 31 20 45 58 41 4D 50 4C 45 53 0A 0A 54
68 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 66 69 6C 65 20 69 73 20 63 65 72
74 61 69 6E 20 74 6F 20 74 72 69 67 67 65 72 20 61 20 66 65 77 20 65 72
72 6F 72 73 20 61 74 20 62 6F 74 68 0A 72 75 6E 74 69 6D 65 20 61 6E 64
20 63 6F 6D 70 69 6C 65 74 69 6D 65 3A 0A 0A 20 20 20 20 75 73 65 20 64
69 61 67 6E 6F 73 74 69 63 73 3B 0A 20 20 20 20 70 72 69 6E 74 20 4E 4F
57 48 45 52 45 20 22 6E 6F 74 68 69 6E 67 5C 6E 22 3B 0A 20 20 20 20 70
72 69 6E 74 20 53 54 44 45 52 52 20 22 5C 6E 5C 74 54 68 69 73 20 6D 65
73 73 61 67 65 20 73 68 6F 75 6C 64 20 62 65 20 75 6E 61 64 6F 72 6E 65
64 2E 5C 6E 22 3B 0A 20 20 20 20 77 61 72 6E 20 22 5C 74 54 68 69 73 20
69 73 20 61 20 75 73 65 72 20 77 61 72 6E 69 6E 67 22 3B 0A 20 20 20 20
70 72 69 6E 74 20 22 5C 6E 44 49 41 47 4E 4F 53 54 49 43 20 54 45 53 54
45 52 3A 20 50 6C 65 61 73 65 20 65 6E 74 65 72 20 61 20 3C 43 52 3E 20
68 65 72 65 3A 20 22 3B 0A 20 20 20 20 6D 79 20 24 61 2C 20 24 62 20 3D
20 73 63 61 6C 61 72 20 3C 53 54 44 49 4E 3E 3B 0A 20 20 20 20 70 72 69
6E 74 20 22 5C 6E 22 3B 0A 20 20 20 20 70 72 69 6E 74 20 24 78 2F 24 79
3B 0A 0A 49 66 20 79 6F 75 20 70 72 65 66 65 72 20 74 6F 20 72 75 6E 20
79 6F 75 72 20 70 72 6F 67 72 61 6D 20 66 69 72 73 74 20 61 6E 64 20 6C
6F 6F 6B 20 61 74 20 69 74 73 20 70 72 6F 62 6C 65 6D 0A 61 66 74 65 72
77 61 72 64 73 2C 20 64 6F 20 74 68 69 73 3A 0A 0A 20 20 20 20 70 65 72
6C 20 2D 77 20 74 65 73 74 2E 70 6C 20 32 3E 74 65 73 74 2E 6F 75 74 0A
20 20 20 20 2E 2F 73 70 6C 61 69 6E 20 3C 20 74 65 73 74 2E 6F 75 74 0A
0A 4E 6F 74 65 20 74 68 61 74 20 74 68 69 73 20 69 73 20 6E 6F 74 20 69
6E 20 67 65 6E 65 72 61 6C 20 70 6F 73 73 69 62 6C 65 20 69 6E 20 73 68
65 6C 6C 73 20 6F 66 20 6D 6F 72 65 20 64 75 62 69 6F 75 73 20 68 65 72
69 74 61 67 65 2C 20 0A 61 73 20 74 68 65 20 74 68 65 6F 72 65 74 69 63
61 6C 20 0A 0A 20 20 20 20 28 70 65 72 6C 20 2D 77 20 74 65 73 74 2E 70
6C 20 3E 2F 64 65 76 2F 74 74 79 29 20 3E 26 20 74 65 73 74 2E 6F 75 74
0A 20 20 20 20 2E 2F 73 70 6C 61 69 6E 20 3C 20 74 65 73 74 2E 6F 75 74
0A 0A 42 65 63 61 75 73 65 20 79 6F 75 20 6A 75 73 74 20 6D 6F 76 65 64
20 74 68 65 20 65 78 69 73 74 69 6E 67 20 42 3C 73 74 64 6F 75 74 3E 20
74 6F 20 73 6F 6D 65 77 68 65 72 65 20 65 6C 73 65 2E 0A 0A 49 66 20 79
6F 75 20 64 6F 6E 27 74 20 77 61 6E 74 20 74 6F 20 6D 6F 64 69 66 79 20
79 6F 75 72 20 73 6F 75 72 63 65 20 63 6F 64 65 2C 20 62 75 74 20 73 74
69 6C 6C 20 68 61 76 65 20 6F 6E 2D 74 68 65 2D 66 6C 79 0A 77 61 72 6E
69 6E 67 73 2C 20 64 6F 20 74 68 69 73 3A 0A 0A 20 20 20 20 65 78 65 63
20 33 3E 26 31 3B 20 70 65 72 6C 20 2D 77 20 74 65 73 74 2E 70 6C 20 32
3E 26 31 20 31 3E 26 33 20 33 3E 26 2D 20 7C 20 73 70 6C 61 69 6E 20 31
3E 26 32 20 33 3E 26 2D 20 0A 0A 4E 69 66 74 79 2C 20 65 68 3F 0A 0A 49
66 20 79 6F 75 20 77 61 6E 74 20 74 6F 20 63 6F 6E 74 72 6F 6C 20 77 61
72 6E 69 6E 67 73 20 6F 6E 20 74 68 65 20 66 6C 79 2C 20 64 6F 20 73 6F
6D 65 74 68 69 6E 67 20 6C 69 6B 65 20 74 68 69 73 2E 0A 4D 61 6B 65 20
73 75 72 65 20 79 6F 75 20 64 6F 20 74 68 65 20 43 3C 75 73 65 3E 20 66
69 72 73 74 2C 20 6F 72 20 79 6F 75 20 77 6F 6E 27 74 20 62 65 20 61 62
6C 65 20 74 6F 20 67 65 74 0A 61 74 20 74 68 65 20 65 6E 61 62 6C 65 28
29 20 6F 72 20 64 69 73 61 62 6C 65 28 29 20 6D 65 74 68 6F 64 73 2E 0A
0A 20 20 20 20 75 73 65 20 64 69 61 67 6E 6F 73 74 69 63 73 3B 20 23 20
63 68 65 63 6B 73 20 65 6E 74 69 72 65 20 63 6F 6D 70 69 6C 61 74 69 6F
6E 20 70 68 61 73 65 20 0A 09 70 72 69 6E 74 20 22 5C 6E 74 69 6D 65 20
66 6F 72 20 31 73 74 20 62 6F 67 75 73 20 64 69 61 67 73 3A 20 53 51 55
41 57 4B 49 4E 47 53 5C 6E 22 3B 0A 09 70 72 69 6E 74 20 42 4F 47 55 53
31 20 27 6E 61 64 61 27 3B 0A 09 70 72 69 6E 74 20 22 64 6F 6E 65 20 77
69 74 68 20 31 73 74 20 62 6F 67 75 73 5C 6E 22 3B 0A 0A 20 20 20 20 64
69 73 61 62 6C 65 20 64 69 61 67 6E 6F 73 74 69 63 73 3B 20 23 20 6F 6E
6C 79 20 74 75 72 6E 73 20 6F 66 66 20 72 75 6E 74 69 6D 65 20 77 61 72
6E 69 6E 67 73 0A 09 70 72 69 6E 74 20 22 5C 6E 74 69 6D 65 20 66 6F 72
20 32 6E 64 20 62 6F 67 75 73 3A 20 28 73 71 75 65 6C 63 68 65 64 29 5C
6E 22 3B 0A 09 70 72 69 6E 74 20 42 4F 47 55 53 32 20 27 6E 61 64 61 27
3B 0A 09 70 72 69 6E 74 20 22 64 6F 6E 65 20 77 69 74 68 20 32 6E 64 20
62 6F 67 75 73 5C 6E 22 3B 0A 0A 20 20 20 20 65 6E 61 62 6C 65 20 64 69
61 67 6E 6F 73 74 69 63 73 3B 20 23 20 74 75 72 6E 73 20 62 61 63 6B 20
6F 6E 20 72 75 6E 74 69 6D 65 20 77 61 72 6E 69 6E 67 73 0A 09 70 72 69
6E 74 20 22 5C 6E 74 69 6D 65 20 66 6F 72 20 33 72 64 20 62 6F 67 75 73
3A 20 53 51 55 41 57 4B 49 4E 47 53 5C 6E 22 3B 0A 09 70 72 69 6E 74 20
42 4F 47 55 53 33 20 27 6E 61 64 61 27 3B 0A 09 70 72 69 6E 74 20 22 64
6F 6E 65 20 77 69 74 68 20 33 72 64 20 62 6F 67 75 73 5C 6E 22 3B 0A 0A
20 20 20 20 64 69 73 61 62 6C 65 20 64 69 61 67 6E 6F 73 74 69 63 73 3B
0A 09 70 72 69 6E 74 20 22 5C 6E 74 69 6D 65 20 66 6F 72 20 34 74 68 20
62 6F 67 75 73 3A 20 28 73 71 75 65 6C 63 68 65 64 29 5C 6E 22 3B 0A 09
70 72 69 6E 74 20 42 4F 47 55 53 34 20 27 6E 61 64 61 27 3B 0A 09 70 72
69 6E 74 20 22 64 6F 6E 65 20 77 69 74 68 20 34 74 68 20 62 6F 67 75 73
5C 6E 22 3B 0A 0A 3D 68 65 61 64 31 20 49 4E 54 45 52 4E 41 4C 53 0A 0A
44 69 61 67 6E 6F 73 74 69 63 20 6D 65 73 73 61 67 65 73 20 64 65 72 69
76 65 20 66 72 6F 6D 20 74 68 65 20 46 3C 70 65 72 6C 64 69 61 67 2E 70
6F 64 3E 20 66 69 6C 65 20 77 68 65 6E 20 61 76 61 69 6C 61 62 6C 65 20
61 74 0A 72 75 6E 74 69 6D 65 2E 20 20 4F 74 68 65 72 77 69 73 65 2C 20
74 68 65 79 20 6D 61 79 20 62 65 20 65 6D 62 65 64 64 65 64 20 69 6E 20
74 68 65 20 66 69 6C 65 20 69 74 73 65 6C 66 20 77 68 65 6E 20 74 68 65
0A 73 70 6C 61 69 6E 20 70 61 63 6B 61 67 65 20 69 73 20 62 75 69 6C 74
2E 20 20 20 53 65 65 20 74 68 65 20 46 3C 4D 61 6B 65 66 69 6C 65 3E 20
66 6F 72 20 64 65 74 61 69 6C 73 2E 0A 0A 49 66 20 61 6E 20 65 78 74 61
6E 74 20 24 53 49 47 7B 5F 5F 57 41 52 4E 5F 5F 7D 20 68 61 6E 64 6C 65
72 20 69 73 20 64 69 73 63 6F 76 65 72 65 64 2C 20 69 74 20 77 69 6C 6C
20 63 6F 6E 74 69 6E 75 65 0A 74 6F 20 62 65 20 68 6F 6E 6F 72 65 64 2C
20 62 75 74 20 6F 6E 6C 79 20 61 66 74 65 72 20 74 68 65 20 64 69 61 67
6E 6F 73 74 69 63 73 3A 3A 73 70 6C 61 69 6E 74 68 69 73 28 29 20 66 75
6E 63 74 69 6F 6E 20 0A 28 74 68 65 20 6D 6F 64 75 6C 65 27 73 20 24 53
49 47 7B 5F 5F 57 41 52 4E 5F 5F 7D 20 69 6E 74 65 72 63 65 70 74 6F 72
29 20 68 61 73 20 68 61 64 20 69 74 73 20 77 61 79 20 77 69 74 68 20 79
6F 75 72 0A 77 61 72 6E 69 6E 67 73 2E 0A 0A 54 68 65 72 65 20 69 73 20
61 20 24 64 69 61 67 6E 6F 73 74 69 63 73 3A 3A 44 45 42 55 47 20 76 61
72 69 61 62 6C 65 20 79 6F 75 20 6D 61 79 20 73 65 74 20 69 66 20 79 6F
75 27 72 65 20 64 65 73 70 65 72 61 74 65 6C 79 0A 63 75 72 69 6F 75 73
20 77 68 61 74 20 73 6F 72 74 73 20 6F 66 20 74 68 69 6E 67 73 20 61 72
65 20 62 65 69 6E 67 20 69 6E 74 65 72 63 65 70 74 65 64 2E 0A 0A 20 20
20 20 42 45 47 49 4E 20 7B 20 24 64 69 61 67 6E 6F 73 74 69 63 73 3A 3A
44 45 42 55 47 20 3D 20 31 20 7D 20 0A 0A 0A 3D 68 65 61 64 31 20 42 55
47 53 0A 0A 4E 6F 74 20 62 65 69 6E 67 20 61 62 6C 65 20 74 6F 20 73 61
79 20 22 6E 6F 20 64 69 61 67 6E 6F 73 74 69 63 73 22 20 69 73 20 61 6E
6E 6F 79 69 6E 67 2C 20 62 75 74 20 6D 61 79 20 6E 6F 74 20 62 65 0A 69
6E 73 75 72 6D 6F 75 6E 74 61 62 6C 65 2E 0A 0A 54 68 65 20 43 3C 2D 70
72 65 74 74 79 3E 20 64 69 72 65 63 74 69 76 65 20 69 73 20 63 61 6C 6C
65 64 20 74 6F 6F 20 6C 61 74 65 20 74 6F 20 61 66 66 65 63 74 20 6D 61
74 74 65 72 73 2E 0A 59 6F 75 20 68 61 76 65 20 74 6F 20 64 6F 20 74 68
69 73 20 69 6E 73 74 65 61 64 2C 20 61 6E 64 20 49 3C 62 65 66 6F 72 65
3E 20 79 6F 75 20 6C 6F 61 64 20 74 68 65 20 6D 6F 64 75 6C 65 2E 0A 0A
20 20 20 20 42 45 47 49 4E 20 7B 20 24 64 69 61 67 6E 6F 73 74 69 63 73
3A 3A 50 52 45 54 54 59 20 3D 20 31 20 7D 20 0A 0A 49 20 63 6F 75 6C 64
20 73 74 61 72 74 20 75 70 20 66 61 73 74 65 72 20 62 79 20 64 65 6C 61
79 69 6E 67 20 63 6F 6D 70 69 6C 61 74 69 6F 6E 20 75 6E 74 69 6C 20 69
74 20 73 68 6F 75 6C 64 20 62 65 0A 6E 65 65 64 65 64 2C 20 62 75 74 20
74 68 69 73 20 67 65 74 73 20 61 20 22 70 61 6E 69 63 3A 20 74 6F 70 5F
6C 65 76 65 6C 22 20 77 68 65 6E 20 75 73 69 6E 67 20 74 68 65 20 70 72
61 67 6D 61 20 66 6F 72 6D 0A 69 6E 20 50 65 72 6C 20 35 2E 30 30 31 65
2E 0A 0A 57 68 69 6C 65 20 69 74 27 73 20 74 72 75 65 20 74 68 61 74 20
74 68 69 73 20 64 6F 63 75 6D 65 6E 74 61 74 69 6F 6E 20 69 73 20 73 6F
6D 65 77 68 61 74 20 73 75 62 73 65 72 69 6F 75 73 2C 20 69 66 20 79 6F
75 20 75 73 65 0A 61 20 70 72 6F 67 72 61 6D 20 6E 61 6D 65 64 20 49 3C
73 70 6C 61 69 6E 3E 2C 20 79 6F 75 20 73 68 6F 75 6C 64 20 65 78 70 65
63 74 20 61 20 62 69 74 20 6F 66 20 77 68 69 6D 73 79 2E 0A 0A 3D 68 65
61 64 31 20 41 55 54 48 4F 52 0A 0A 54 6F 6D 20 43 68 72 69 73 74 69 61
6E 73 65 6E 20 3C 46 3C 74 63 68 72 69 73 74 40 6D 6F 78 2E 70 65 72 6C
2E 63 6F 6D 3E 3E 2C 20 32 35 20 4A 75 6E 65 20 31 39 39 35 2E 0A 0A 3D
63 75 74 0A 0A 75 73 65 20 73 74 72 69 63 74 3B 0A 75 73 65 20 35 2E 30
30 36 3B 0A 75 73 65 20 43 61 72 70 3B 0A 24 43 61 72 70 3A 3A 49 6E 74
65 72 6E 61 6C 7B 5F 5F 50 41 43 4B 41 47 45 5F 5F 2E 22 22 7D 2B 2B 3B
0A 0A 6F 75 72 20 24 56 45 52 53 49 4F 4E 20 3D 20 31 2E 31 35 3B 0A 6F
75 72 20 24 44 45 42 55 47 3B 0A 6F 75 72 20 24 56 45 52 42 4F 53 45 3B
0A 6F 75 72 20 24 50 52 45 54 54 59 3B 0A 6F 75 72 20 24 54 52 41 43 45
4F 4E 4C 59 20 3D 20 30 3B 0A 6F 75 72 20 24 57 41 52 4E 54 52 41 43 45
20 3D 20 30 3B 0A 0A 75 73 65 20 43 6F 6E 66 69 67 3B 0A 6D 79 28 24 70
72 69 76 6C 69 62 2C 20 24 61 72 63 68 6C 69 62 29 20 3D 20 40 43 6F 6E
66 69 67 7B 71 77 28 70 72 69 76 6C 69 62 65 78 70 20 61 72 63 68 6C 69
62 65 78 70 29 7D 3B 0A 69 66 20 28 24 5E 4F 20 65 71 20 27 56 4D 53 27
29 20 7B 0A 20 20 20 20 72 65 71 75 69 72 65 20 56 4D 53 3A 3A 46 69 6C
65 73 70 65 63 3B 0A 20 20 20 20 24 70 72 69 76 6C 69 62 20 3D 20 56 4D
53 3A 3A 46 69 6C 65 73 70 65 63 3A 3A 75 6E 69 78 69 66 79 28 24 70 72
69 76 6C 69 62 29 3B 0A 20 20 20 20 24 61 72 63 68 6C 69 62 20 3D 20 56
4D 53 3A 3A 46 69 6C 65 73 70 65 63 3A 3A 75 6E 69 78 69 66 79 28 24 61
72 63 68 6C 69 62 29 3B 0A 7D 0A 6D 79 20 40 74 72 79 70 6F 64 20 3D 20
28 0A 09 20 20 20 22 24 61 72 63 68 6C 69 62 2F 70 6F 64 2F 70 65 72 6C
64 69 61 67 2E 70 6F 64 22 2C 0A 09 20 20 20 22 24 70 72 69 76 6C 69 62
2F 70 6F 64 2F 70 65 72 6C 64 69 61 67 2D 24 43 6F 6E 66 69 67 7B 76 65
72 73 69 6F 6E 7D 2E 70 6F 64 22 2C 0A 09 20 20 20 22 24 70 72 69 76 6C
69 62 2F 70 6F 64 2F 70 65 72 6C 64 69 61 67 2E 70 6F 64 22 2C 0A 09 20
20 20 22 24 61 72 63 68 6C 69 62 2F 70 6F 64 73 2F 70 65 72 6C 64 69 61
67 2E 70 6F 64 22 2C 0A 09 20 20 20 22 24 70 72 69 76 6C 69 62 2F 70 6F
64 73 2F 70 65 72 6C 64 69 61 67 2D 24 43 6F 6E 66 69 67 7B 76 65 72 73
69 6F 6E 7D 2E 70 6F 64 22 2C 0A 09 20 20 20 22 24 70 72 69 76 6C 69 62
2F 70 6F 64 73 2F 70 65 72 6C 64 69 61 67 2E 70 6F 64 22 2C 0A 09 20 20
29 3B 0A 23 20 68 61 6E 64 79 20 66 6F 72 20 64 65 76 65 6C 6F 70 6D 65
6E 74 20 74 65 73 74 69 6E 67 20 6F 66 20 6E 65 77 20 77 61 72 6E 69 6E
67 73 20 65 74 63 0A 75 6E 73 68 69 66 74 20 40 74 72 79 70 6F 64 2C 20
22 2E 2F 70 6F 64 2F 70 65 72 6C 64 69 61 67 2E 70 6F 64 22 20 69 66 20
2D 65 20 22 70 6F 64 2F 70 65 72 6C 64 69 61 67 2E 70 6F 64 22 3B 0A 28
6D 79 20 24 50 4F 44 46 49 4C 45 29 20 3D 20 28 28 67 72 65 70 20 7B 20
2D 65 20 7D 20 40 74 72 79 70 6F 64 29 2C 20 24 74 72 79 70 6F 64 5B 24
23 74 72 79 70 6F 64 5D 29 5B 30 5D 3B 0A 0A 69 66 20 28 24 5E 4F 20 65
71 20 27 4D 61 63 4F 53 27 29 20 7B 0A 20 20 20 20 23 20 6A 75 73 74 20
75 70 64 69 72 20 6F 6E 65 20 66 72 6F 6D 20 65 61 63 68 20 6C 69 62 20
64 69 72 2C 20 77 65 27 6C 6C 20 66 69 6E 64 20 69 74 20 2E 2E 2E 0A 20
20 20 20 28 24 50 4F 44 46 49 4C 45 29 20 3D 20 67 72 65 70 20 7B 20 2D
65 20 7D 20 6D 61 70 20 7B 20 22 24 5F 3A 70 6F 64 3A 70 65 72 6C 64 69
61 67 2E 70 6F 64 22 20 7D 20 40 49 4E 43 3B 0A 7D 0A 0A 0A 24 44 45 42
55 47 20 7C 7C 3D 20 30 3B 0A 6D 79 20 24 57 48 4F 41 4D 49 20 3D 20 72
65 66 20 62 6C 65 73 73 20 5B 5D 3B 20 20 23 20 6E 6F 62 6F 64 79 27 73
20 62 75 73 69 6E 65 73 73 2C 20 70 72 6F 6C 6C 79 20 6E 6F 74 20 65 76
65 6E 20 6D 69 6E 65 0A 0A 6C 6F 63 61 6C 20 24 7C 20 3D 20 31 3B 0A 6C
6F 63 61 6C 20 24 5F 3B 0A 0A 6D 79 20 24 73 74 61 6E 64 61 6C 6F 6E 65
3B 0A 6D 79 28 25 48 54 4D 4C 5F 32 5F 54 72 6F 66 66 2C 20 25 48 54 4D
4C 5F 32 5F 4C 61 74 69 6E 5F 31 2C 20 25 48 54 4D 4C 5F 32 5F 41 53 43
49 49 5F 37 29 3B 0A 0A 43 4F 4E 46 49 47 3A 20 7B 0A 20 20 20 20 6F 75
72 20 24 6F 70 74 5F 70 20 3D 20 6F 75 72 20 24 6F 70 74 5F 64 20 3D 20
6F 75 72 20 24 6F 70 74 5F 76 20 3D 20 6F 75 72 20 24 6F 70 74 5F 66 20
3D 20 27 27 3B 0A 0A 20 20 20 20 75 6E 6C 65 73 73 20 28 63 61 6C 6C 65
72 29 20 7B 0A 09 24 73 74 61 6E 64 61 6C 6F 6E 65 2B 2B 3B 0A 09 72 65
71 75 69 72 65 20 47 65 74 6F 70 74 3A 3A 53 74 64 3B 0A 09 47 65 74 6F
70 74 3A 3A 53 74 64 3A 3A 67 65 74 6F 70 74 73 28 27 70 64 76 66 3A 27
29 0A 09 20 20 20 20 6F 72 20 64 69 65 20 22 55 73 61 67 65 3A 20 24 30
20 5B 2D 76 5D 20 5B 2D 70 5D 20 5B 2D 66 20 73 70 6C 61 69 6E 70 6F 64
5D 22 3B 0A 09 24 50 4F 44 46 49 4C 45 20 3D 20 24 6F 70 74 5F 66 20 69
66 20 24 6F 70 74 5F 66 3B 0A 09 24 44 45 42 55 47 20 3D 20 32 20 69 66
20 24 6F 70 74 5F 64 3B 0A 09 24 56 45 52 42 4F 53 45 20 3D 20 24 6F 70
74 5F 76 3B 0A 09 24 50 52 45 54 54 59 20 3D 20 24 6F 70 74 5F 70 3B 0A
20 20 20 20 7D 0A 0A 20 20 20 20 69 66 20 28 6F 70 65 6E 28 50 4F 44 5F
44 49 41 47 2C 20 24 50 4F 44 46 49 4C 45 29 29 20 7B 0A 09 77 61 72 6E
20 22 48 61 70 70 79 20 68 61 70 70 79 20 70 6F 64 66 69 6C 65 20 66 72
6F 6D 20 72 65 61 6C 20 24 50 4F 44 46 49 4C 45 5C 6E 22 20 69 66 20 24
44 45 42 55 47 3B 0A 09 6C 61 73 74 20 43 4F 4E 46 49 47 3B 0A 20 20 20
20 7D 20 0A 0A 20 20 20 20 69 66 20 28 63 61 6C 6C 65 72 29 20 7B 0A 09
49 4E 43 50 41 54 48 3A 20 7B 0A 09 20 20 20 20 66 6F 72 20 6D 79 20 24
66 69 6C 65 20 28 20 28 6D 61 70 20 7B 20 22 24 5F 2F 24 57 48 4F 41 4D
49 2E 70 6D 22 20 7D 20 40 49 4E 43 29 2C 20 24 30 29 20 7B 0A 09 09 77
61 72 6E 20 22 43 68 65 63 6B 69 6E 67 20 24 66 69 6C 65 5C 6E 22 20 69
66 20 24 44 45 42 55 47 3B 0A 09 09 69 66 20 28 6F 70 65 6E 28 50 4F 44
5F 44 49 41 47 2C 20 24 66 69 6C 65 29 29 20 7B 0A 09 09 20 20 20 20 77
68 69 6C 65 20 28 3C 50 4F 44 5F 44 49 41 47 3E 29 20 7B 0A 09 09 09 6E
65 78 74 20 75 6E 6C 65 73 73 0A 09 09 09 20 20 20 20 2F 5E 5F 5F 45 4E
44 5F 5F 5C 73 2A 23 20 77 69 73 68 20 64 69 61 67 20 64 62 61 73 65 20
77 65 72 65 20 6D 6F 72 65 20 61 63 63 65 73 73 69 62 6C 65 2F 3B 0A 09
09 09 70 72 69 6E 74 20 53 54 44 45 52 52 20 22 70 6F 64 66 69 6C 65 20
69 73 20 24 66 69 6C 65 5C 6E 22 20 69 66 20 24 44 45 42 55 47 3B 0A 09
09 09 6C 61 73 74 20 49 4E 43 50 41 54 48 3B 0A 09 09 20 20 20 20 7D 0A
09 09 7D 0A 09 20 20 20 20 7D 20 0A 09 7D 0A 20 20 20 20 7D 20 65 6C 73
65 20 7B 20 0A 09 70 72 69 6E 74 20 53 54 44 45 52 52 20 22 70 6F 64 66
69 6C 65 20 69 73 20 3C 44 41 54 41 3E 5C 6E 22 20 69 66 20 24 44 45 42
55 47 3B 0A 09 2A 50 4F 44 5F 44 49 41 47 20 3D 20 2A 6D 61 69 6E 3A 3A
44 41 54 41 3B 0A 20 20 20 20 7D 0A 7D 0A 69 66 20 28 65 6F 66 28 50 4F
44 5F 44 49 41 47 29 29 20 7B 20 0A 20 20 20 20 64 69 65 20 22 63 6F 75
6C 64 6E 27 74 20 66 69 6E 64 20 64 69 61 67 6E 6F 73 74 69 63 20 64 61
74 61 20 69 6E 20 24 50 4F 44 46 49 4C 45 20 40 49 4E 43 20 24 30 22 3B
0A 7D 0A 0A 0A 25 48 54 4D 4C 5F 32 5F 54 72 6F 66 66 20 3D 20 28 0A 20
20 20 20 27 61 6D 70 27 09 3D 3E 09 27 26 27 2C 09 23 20 20 20 61 6D 70
65 72 73 61 6E 64 0A 20 20 20 20 27 6C 74 27 09 3D 3E 09 27 3C 27 2C 09
23 20 20 20 6C 65 66 74 20 63 68 65 76 72 6F 6E 2C 20 6C 65 73 73 2D 74
68 61 6E 0A 20 20 20 20 27 67 74 27 09 3D 3E 09 27 3E 27 2C 09 23 20 20
20 72 69 67 68 74 20 63 68 65 76 72 6F 6E 2C 20 67 72 65 61 74 65 72 2D
74 68 61 6E 0A 20 20 20 20 27 71 75 6F 74 27 09 3D 3E 09 27 22 27 2C 09
23 20 20 20 64 6F 75 62 6C 65 20 71 75 6F 74 65 0A 0A 20 20 20 20 22 41
61 63 75 74 65 22 09 3D 3E 09 22 41 5C 5C 2A 27 22 2C 09 23 20 20 20 63
61 70 69 74 61 6C 20 41 2C 20 61 63 75 74 65 20 61 63 63 65 6E 74 0A 20
20 20 20 23 20 65 74 63 0A 0A 29 3B 0A 0A 25 48 54 4D 4C 5F 32 5F 4C 61
74 69 6E 5F 31 20 3D 20 28 0A 20 20 20 20 27 61 6D 70 27 09 3D 3E 09 27
26 27 2C 09 23 20 20 20 61 6D 70 65 72 73 61 6E 64 0A 20 20 20 20 27 6C
74 27 09 3D 3E 09 27 3C 27 2C 09 23 20 20 20 6C 65 66 74 20 63 68 65 76
72 6F 6E 2C 20 6C 65 73 73 2D 74 68 61 6E 0A 20 20 20 20 27 67 74 27 09
3D 3E 09 27 3E 27 2C 09 23 20 20 20 72 69 67 68 74 20 63 68 65 76 72 6F
6E 2C 20 67 72 65 61 74 65 72 2D 74 68 61 6E 0A 20 20 20 20 27 71 75 6F
74 27 09 3D 3E 09 27 22 27 2C 09 23 20 20 20 64 6F 75 62 6C 65 20 71 75
6F 74 65 0A 0A 20 20 20 20 22 41 61 63 75 74 65 22 09 3D 3E 09 22 5C 78
43 31 22 09 23 20 20 20 63 61 70 69 74 61 6C 20 41 2C 20 61 63 75 74 65
20 61 63 63 65 6E 74 0A 0A 20 20 20 20 23 20 65 74 63 0A 29 3B 0A 0A 25
48 54 4D 4C 5F 32 5F 41 53 43 49 49 5F 37 20 3D 20 28 0A 20 20 20 20 27
61 6D 70 27 09 3D 3E 09 27 26 27 2C 09 23 20 20 20 61 6D 70 65 72 73 61
6E 64 0A 20 20 20 20 27 6C 74 27 09 3D 3E 09 27 3C 27 2C 09 23 20 20 20
6C 65 66 74 20 63 68 65 76 72 6F 6E 2C 20 6C 65 73 73 2D 74 68 61 6E 0A
20 20 20 20 27 67 74 27 09 3D 3E 09 27 3E 27 2C 09 23 20 20 20 72 69 67
68 74 20 63 68 65 76 72 6F 6E 2C 20 67 72 65 61 74 65 72 2D 74 68 61 6E
0A 20 20 20 20 27 71 75 6F 74 27 09 3D 3E 09 27 22 27 2C 09 23 20 20 20
64 6F 75 62 6C 65 20 71 75 6F 74 65 0A 0A 20 20 20 20 22 41 61 63 75 74
65 22 09 3D 3E 09 22 41 22 09 23 20 20 20 63 61 70 69 74 61 6C 20 41 2C
20 61 63 75 74 65 20 61 63 63 65 6E 74 0A 20 20 20 20 23 20 65 74 63 0A
29 3B 0A 0A 6F 75 72 20 25 48 54 4D 4C 5F 45 73 63 61 70 65 73 3B 0A 2A
48 54 4D 4C 5F 45 73 63 61 70 65 73 20 3D 20 64 6F 20 7B 0A 20 20 20 20
69 66 20 28 24 73 74 61 6E 64 61 6C 6F 6E 65 29 20 7B 0A 09 24 50 52 45
54 54 59 20 3F 20 5C 25 48 54 4D 4C 5F 32 5F 4C 61 74 69 6E 5F 31 20 3A
20 5C 25 48 54 4D 4C 5F 32 5F 41 53 43 49 49 5F 37 3B 20 0A 20 20 20 20
7D 20 65 6C 73 65 20 7B 0A 09 5C 25 48 54 4D 4C 5F 32 5F 4C 61 74 69 6E
5F 31 3B 20 0A 20 20 20 20 7D 0A 7D 3B 20 0A 0A 2A 54 48 49 54 48 45 52
20 3D 20 24 73 74 61 6E 64 61 6C 6F 6E 65 20 3F 20 2A 53 54 44 4F 55 54
20 3A 20 2A 53 54 44 45 52 52 3B 0A 0A 6D 79 20 25 74 72 61 6E 73 66 6D
74 20 3D 20 28 29 3B 20 0A 6D 79 20 24 74 72 61 6E 73 6D 6F 20 3D 20 3C
3C 45 4F 46 55 4E 43 3B 0A 73 75 62 20 74 72 61 6E 73 6D 6F 20 7B 0A 20
20 20 20 23 6C 6F 63 61 6C 20 5C 24 5E 57 20 3D 20 30 3B 20 20 23 20 72
65 63 75 72 73 69 76 65 20 77 61 72 6E 69 6E 67 73 20 77 65 20 64 6F 20
4E 4F 54 20 6E 65 65 64 21 0A 20 20 20 20 73 74 75 64 79 3B 0A 45 4F 46
55 4E 43 0A 0A 6D 79 20 25 6D 73 67 3B 0A 7B 0A 20 20 20 20 70 72 69 6E
74 20 53 54 44 45 52 52 20 22 46 49 4E 49 53 48 49 4E 47 20 43 4F 4D 50
49 4C 41 54 49 4F 4E 20 66 6F 72 20 24 5F 5C 6E 22 20 69 66 20 24 44 45
42 55 47 3B 0A 20 20 20 20 6C 6F 63 61 6C 20 24 2F 20 3D 20 27 27 3B 0A
20 20 20 20 6C 6F 63 61 6C 20 24 5F 3B 0A 20 20 20 20 6D 79 20 24 68 65
61 64 65 72 3B 0A 20 20 20 20 6D 79 20 24 66 6F 72 5F 69 74 65 6D 3B 0A
20 20 20 20 77 68 69 6C 65 20 28 3C 50 4F 44 5F 44 49 41 47 3E 29 20 7B
0A 0A 09 75 6E 65 73 63 61 70 65 28 29 3B 0A 09 69 66 20 28 24 50 52 45
54 54 59 29 20 7B 0A 09 20 20 20 20 73 75 62 20 6E 6F 6F 70 20 20 20 7B
20 72 65 74 75 72 6E 20 24 5F 5B 30 5D 20 7D 20 20 23 20 73 70 65 6E 73
69 76 65 20 66 6F 72 20 61 20 6E 6F 6F 70 0A 09 20 20 20 20 73 75 62 20
62 6F 6C 64 20 20 20 7B 20 6D 79 20 24 73 74 72 20 3D 24 5F 5B 30 5D 3B
20 20 24 73 74 72 20 3D 7E 20 73 2F 28 2E 29 2F 24 31 5C 62 24 31 2F 67
3B 20 72 65 74 75 72 6E 20 24 73 74 72 3B 20 7D 20 0A 09 20 20 20 20 73
75 62 20 69 74 61 6C 69 63 20 7B 20 6D 79 20 24 73 74 72 20 3D 20 24 5F
5B 30 5D 3B 20 24 73 74 72 20 3D 7E 20 73 2F 28 2E 29 2F 5F 5C 62 24 31
2F 67 3B 20 20 72 65 74 75 72 6E 20 24 73 74 72 3B 20 7D 20 0A 09 20 20
20 20 73 2F 43 3C 3C 3C 20 28 2E 2A 3F 29 20 3E 3E 3E 7C 43 3C 3C 20 28
2E 2A 3F 29 20 3E 3E 7C 5B 42 43 5D 3C 28 2E 2A 3F 29 3E 2F 62 6F 6C 64
28 24 2B 29 2F 67 65 73 3B 0A 09 20 20 20 20 73 2F 5B 4C 49 46 5D 3C 28
2E 2A 3F 29 3E 2F 69 74 61 6C 69 63 28 24 31 29 2F 67 65 73 3B 0A 09 7D
20 65 6C 73 65 20 7B 0A 09 20 20 20 20 73 2F 43 3C 3C 3C 20 28 2E 2A 3F
29 20 3E 3E 3E 7C 43 3C 3C 20 28 2E 2A 3F 29 20 3E 3E 7C 5B 42 43 5D 3C
28 2E 2A 3F 29 3E 2F 24 2B 2F 67 73 3B 0A 09 20 20 20 20 73 2F 5B 4C 49
46 5D 3C 28 2E 2A 3F 29 3E 2F 24 31 2F 67 73 3B 0A 09 7D 20 0A 09 75 6E
6C 65 73 73 20 28 2F 5E 3D 2F 29 20 7B 0A 09 20 20 20 20 69 66 20 28 64
65 66 69 6E 65 64 20 24 68 65 61 64 65 72 29 20 7B 20 0A 09 09 69 66 20
28 20 24 68 65 61 64 65 72 20 65 71 20 27 44 45 53 43 52 49 50 54 49 4F
4E 27 20 26 26 20 0A 09 09 20 20 20 20 28 20 20 20 2F 4F 70 74 69 6F 6E
61 6C 20 77 61 72 6E 69 6E 67 73 20 61 72 65 20 65 6E 61 62 6C 65 64 2F
20 0A 09 09 20 20 20 20 20 7C 7C 20 2F 53 6F 6D 65 20 6F 66 20 74 68 65
73 65 20 6D 65 73 73 61 67 65 73 20 61 72 65 20 67 65 6E 65 72 69 63 2E
2F 0A 09 09 20 20 20 20 29 20 29 0A 09 09 7B 0A 09 09 20 20 20 20 6E 65
78 74 3B 0A 09 09 7D 0A 09 09 73 2F 5E 2F 20 20 20 20 2F 67 6D 3B 0A 09
09 24 6D 73 67 7B 24 68 65 61 64 65 72 7D 20 2E 3D 20 24 5F 3B 0A 09 20
09 75 6E 64 65 66 20 24 66 6F 72 5F 69 74 65 6D 3B 09 0A 09 20 20 20 20
7D 0A 09 20 20 20 20 6E 65 78 74 3B 0A 09 7D 20 0A 09 75 6E 6C 65 73 73
20 28 20 73 2F 3D 69 74 65 6D 20 28 2E 2A 3F 29 5C 73 2A 5C 7A 2F 2F 29
20 7B 0A 0A 09 20 20 20 20 69 66 20 28 20 73 2F 3D 68 65 61 64 31 5C 73
44 45 53 43 52 49 50 54 49 4F 4E 2F 2F 29 20 7B 0A 09 09 24 6D 73 67 7B
24 68 65 61 64 65 72 20 3D 20 27 44 45 53 43 52 49 50 54 49 4F 4E 27 7D
20 3D 20 27 27 3B 0A 09 09 75 6E 64 65 66 20 24 66 6F 72 5F 69 74 65 6D
3B 0A 09 20 20 20 20 7D 0A 09 20 20 20 20 65 6C 73 69 66 28 20 73 2F 5E
3D 66 6F 72 5C 73 2B 64 69 61 67 6E 6F 73 74 69 63 73 5C 73 2A 5C 6E 28
2E 2A 3F 29 5C 73 2A 5C 7A 2F 2F 20 29 20 7B 0A 09 09 24 66 6F 72 5F 69
74 65 6D 20 3D 20 24 31 3B 0A 09 20 20 20 20 7D 20 0A 09 20 20 20 20 6E
65 78 74 3B 0A 09 7D 0A 0A 09 69 66 28 20 24 66 6F 72 5F 69 74 65 6D 20
29 20 7B 20 24 68 65 61 64 65 72 20 3D 20 24 66 6F 72 5F 69 74 65 6D 3B
20 75 6E 64 65 66 20 24 66 6F 72 5F 69 74 65 6D 20 7D 20 0A 09 65 6C 73
65 20 7B 0A 09 20 20 20 20 24 68 65 61 64 65 72 20 3D 20 24 31 3B 0A 09
20 20 20 20 77 68 69 6C 65 28 20 24 68 65 61 64 65 72 20 3D 7E 20 2F 5B
3B 2C 5D 5C 7A 2F 20 29 20 7B 0A 09 09 3C 50 4F 44 5F 44 49 41 47 3E 20
3D 7E 20 2F 5E 5C 73 2A 28 2E 2A 3F 29 5C 73 2A 5C 7A 2F 3B 0A 09 09 24
68 65 61 64 65 72 20 2E 3D 20 27 20 27 2E 24 31 3B 0A 09 20 20 20 20 7D
0A 09 7D 0A 0A 09 23 20 73 74 72 69 70 20 66 6F 72 6D 61 74 74 69 6E 67
20 64 69 72 65 63 74 69 76 65 73 20 66 72 6F 6D 20 3D 69 74 65 6D 20 6C
69 6E 65 0A 09 24 68 65 61 64 65 72 20 3D 7E 20 73 2F 5B 41 2D 5A 5D 3C
28 2E 2A 3F 29 3E 2F 24 31 2F 67 3B 0A 0A 20 20 20 20 20 20 20 20 6D 79
20 40 74 6F 6B 73 20 3D 20 73 70 6C 69 74 28 20 2F 28 25 6C 3F 5B 64 78
5D 7C 25 63 7C 25 28 3F 3A 5C 2E 5C 64 2B 29 3F 73 29 2F 2C 20 24 68 65
61 64 65 72 20 29 3B 0A 09 69 66 20 28 40 74 6F 6B 73 20 3E 20 31 29 20
7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 6D 79 20 24 63 6F 6E 6C 65 6E
20 3D 20 30 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 72 20 6D 79
20 24 69 20 28 30 2E 2E 24 23 74 6F 6B 73 29 7B 0A 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 69 66 28 20 24 69 20 25 20 32 20 29 7B 0A 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 28 20 20
20 20 20 20 24 74 6F 6B 73 5B 24 69 5D 20 65 71 20 27 25 63 27 20 29 7B
0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 24 74 6F 6B 73 5B 24 69 5D 20 3D 20 27 2E 27 3B 0A 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 7D 20 65 6C 73 69 66 28 20 24
74 6F 6B 73 5B 24 69 5D 20 65 71 20 27 25 64 27 20 29 7B 0A 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 74 6F 6B
73 5B 24 69 5D 20 3D 20 27 5C 64 2B 27 3B 0A 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 7D 20 65 6C 73 69 66 28 20 24 74 6F 6B
73 5B 24 69 5D 20 65 71 20 27 25 73 27 20 29 7B 0A 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 74 6F 6B 73 5B 24
69 5D 20 3D 20 24 69 20 3D 3D 20 24 23 74 6F 6B 73 20 3F 20 27 2E 2A 27
20 3A 20 27 2E 2A 3F 27 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 7D 20 65 6C 73 69 66 28 20 24 74 6F 6B 73 5B 24 69 5D
20 3D 7E 20 27 25 2E 28 5C 64 2B 29 73 27 20 29 7B 0A 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 74 6F 6B 73 5B
24 69 5D 20 3D 20 22 2E 7B 24 31 7D 22 3B 0A 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 7D 20 65 6C 73 69 66 28 20 24 74 6F
6B 73 5B 24 69 5D 20 3D 7E 20 27 5E 25 6C 2A 78 24 27 20 29 7B 0A 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 74
6F 6B 73 5B 24 69 5D 20 3D 20 27 5B 5C 64 61 2D 66 5D 2B 27 3B 0A 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7D 0A 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 7D 20 65 6C 73 69 66 28 20 6C 65 6E 67
74 68 28 20 24 74 6F 6B 73 5B 24 69 5D 20 29 20 29 7B 0A 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 74 6F 6B 73 5B 24 69 5D
20 3D 7E 20 73 2F 5E 2E 2A 24 2F 5C 51 24 26 5C 45 2F 3B 0A 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 63 6F 6E 6C 65 6E 20
2B 3D 20 6C 65 6E 67 74 68 28 20 24 74 6F 6B 73 5B 24 69 5D 20 29 3B 0A
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7D 0A 20 20 20 20 20 20
20 20 20 20 20 20 7D 20 20 0A 20 20 20 20 20 20 20 20 20 20 20 20 6D 79
20 24 6C 68 73 20 3D 20 6A 6F 69 6E 28 20 27 27 2C 20 40 74 6F 6B 73 20
29 3B 0A 09 20 20 20 20 24 74 72 61 6E 73 66 6D 74 7B 24 68 65 61 64 65
72 7D 7B 70 61 74 7D 20 3D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20
22 20 20 20 20 73 7B 5E 24 6C 68 73 7D 5C 6E 20 20 20 20 20 7B 5C 51 24
68 65 61 64 65 72 5C 45 7D 73 5C 6E 5C 74 26 26 20 72 65 74 75 72 6E 20
31 3B 5C 6E 22 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 24 74 72 61 6E
73 66 6D 74 7B 24 68 65 61 64 65 72 7D 7B 6C 65 6E 7D 20 3D 20 24 63 6F
6E 6C 65 6E 3B 0A 09 7D 20 65 6C 73 65 20 7B 0A 20 20 20 20 20 20 20 20
20 20 20 20 24 74 72 61 6E 73 66 6D 74 7B 24 68 65 61 64 65 72 7D 7B 70
61 74 7D 20 3D 0A 09 20 20 20 20 20 20 22 20 20 20 20 6D 7B 5E 5C 51 24
68 65 61 64 65 72 5C 45 7D 20 26 26 20 72 65 74 75 72 6E 20 31 3B 5C 6E
22 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 24 74 72 61 6E 73 66 6D 74
7B 24 68 65 61 64 65 72 7D 7B 6C 65 6E 7D 20 3D 20 6C 65 6E 67 74 68 28
20 24 68 65 61 64 65 72 20 29 3B 0A 09 7D 20 0A 0A 09 70 72 69 6E 74 20
53 54 44 45 52 52 20 22 24 57 48 4F 41 4D 49 3A 20 44 75 70 6C 69 63 61
74 65 20 65 6E 74 72 79 3A 20 5C 22 24 68 65 61 64 65 72 5C 22 5C 6E 22
0A 09 20 20 20 20 69 66 20 24 6D 73 67 7B 24 68 65 61 64 65 72 7D 3B 0A
0A 09 24 6D 73 67 7B 24 68 65 61 64 65 72 7D 20 3D 20 27 27 3B 0A 20 20
20 20 7D 20 0A 0A 0A 20 20 20 20 63 6C 6F 73 65 20 50 4F 44 5F 44 49 41
47 20 75 6E 6C 65 73 73 20 2A 6D 61 69 6E 3A 3A 44 41 54 41 20 65 71 20
2A 50 4F 44 5F 44 49 41 47 3B 0A 0A 20 20 20 20 64 69 65 20 22 4E 6F 20
64 69 61 67 6E 6F 73 74 69 63 73 3F 22 20 75 6E 6C 65 73 73 20 25 6D 73
67 3B 0A 0A 20 20 20 20 23 20 41 70 70 6C 79 20 70 61 74 74 65 72 6E 73
20 69 6E 20 6F 72 64 65 72 20 6F 66 20 64 65 63 72 65 61 73 69 6E 67 20
73 75 6D 20 6F 66 20 6C 65 6E 67 74 68 73 20 6F 66 20 66 69 78 65 64 20
70 61 72 74 73 0A 20 20 20 20 23 20 53 65 65 6D 73 20 74 68 65 20 62 65
73 74 20 77 61 79 20 6F 66 20 68 69 74 74 69 6E 67 20 74 68 65 20 72 69
67 68 74 20 6F 6E 65 2E 0A 20 20 20 20 66 6F 72 20 6D 79 20 24 68 64 72
20 28 20 73 6F 72 74 20 7B 20 24 74 72 61 6E 73 66 6D 74 7B 24 62 7D 7B
6C 65 6E 7D 20 3C 3D 3E 20 24 74 72 61 6E 73 66 6D 74 7B 24 61 7D 7B 6C
65 6E 7D 20 7D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6B 65 79 73 20 25 74 72 61 6E 73 66 6D 74 20 29 7B 0A 20 20 20 20 20 20
20 20 24 74 72 61 6E 73 6D 6F 20 2E 3D 20 24 74 72 61 6E 73 66 6D 74 7B
24 68 64 72 7D 7B 70 61 74 7D 3B 0A 20 20 20 20 7D 0A 20 20 20 20 24 74
72 61 6E 73 6D 6F 20 2E 3D 20 22 20 20 20 20 72 65 74 75 72 6E 20 30 3B
5C 6E 7D 5C 6E 22 3B 0A 20 20 20 20 70 72 69 6E 74 20 53 54 44 45 52 52
20 24 74 72 61 6E 73 6D 6F 20 69 66 20 24 44 45 42 55 47 3B 0A 20 20 20
20 65 76 61 6C 20 24 74 72 61 6E 73 6D 6F 3B 0A 20 20 20 20 64 69 65 20
24 40 20 69 66 20 24 40 3B 0A 7D 0A 0A 69 66 20 28 24 73 74 61 6E 64 61
6C 6F 6E 65 29 20 7B 0A 20 20 20 20 69 66 20 28 21 40 41 52 47 56 20 61
6E 64 20 2D 74 20 53 54 44 49 4E 29 20 7B 20 70 72 69 6E 74 20 53 54 44
45 52 52 20 22 24 30 3A 20 52 65 61 64 69 6E 67 20 66 72 6F 6D 20 53 54
44 49 4E 5C 6E 22 20 7D 20 0A 20 20 20 20 77 68 69 6C 65 20 28 64 65 66
69 6E 65 64 20 28 6D 79 20 24 65 72 72 6F 72 20 3D 20 3C 3E 29 29 20 7B
0A 09 73 70 6C 61 69 6E 74 68 69 73 28 24 65 72 72 6F 72 29 20 7C 7C 20
70 72 69 6E 74 20 54 48 49 54 48 45 52 20 24 65 72 72 6F 72 3B 0A 20 20
20 20 7D 20 0A 20 20 20 20 65 78 69 74 3B 0A 7D 20 0A 0A 6D 79 20 24 6F
6C 64 64 69 65 3B 0A 6D 79 20 24 6F 6C 64 77 61 72 6E 3B 0A 0A 73 75 62
20 69 6D 70 6F 72 74 20 7B 0A 20 20 20 20 73 68 69 66 74 3B 0A 20 20 20
20 24 5E 57 20 3D 20 31 3B 20 23 20 79 75 70 2C 20 63 6C 6F 62 62 65 72
65 64 20 74 68 65 20 67 6C 6F 62 61 6C 20 76 61 72 69 61 62 6C 65 3B 20
0A 09 20 20 20 20 20 23 20 74 6F 75 67 68 2C 20 69 66 20 79 6F 75 20 77
61 6E 74 20 64 69 61 67 73 2C 20 79 6F 75 20 77 61 6E 74 20 64 69 61 67
73 2E 0A 20 20 20 20 72 65 74 75 72 6E 20 69 66 20 64 65 66 69 6E 65 64
20 24 53 49 47 7B 5F 5F 57 41 52 4E 5F 5F 7D 20 26 26 20 28 24 53 49 47
7B 5F 5F 57 41 52 4E 5F 5F 7D 20 65 71 20 5C 26 77 61 72 6E 5F 74 72 61
70 29 3B 0A 0A 20 20 20 20 66 6F 72 20 28 40 5F 29 20 7B 0A 0A 09 2F 5E
2D 64 28 65 62 75 67 29 3F 24 2F 20 09 20 20 20 09 26 26 20 64 6F 20 7B
0A 09 09 09 09 20 20 20 20 24 44 45 42 55 47 2B 2B 3B 0A 09 09 09 09 20
20 20 20 6E 65 78 74 3B 0A 09 09 09 09 20 20 20 7D 3B 0A 0A 09 2F 5E 2D
76 28 65 72 62 6F 73 65 29 3F 24 2F 20 09 26 26 20 64 6F 20 7B 0A 09 09
09 09 20 20 20 20 24 56 45 52 42 4F 53 45 2B 2B 3B 0A 09 09 09 09 20 20
20 20 6E 65 78 74 3B 0A 09 09 09 09 20 20 20 7D 3B 0A 0A 09 2F 5E 2D 70
28 72 65 74 74 79 29 3F 24 2F 20 09 09 26 26 20 64 6F 20 7B 0A 09 09 09
09 20 20 20 20 70 72 69 6E 74 20 53 54 44 45 52 52 20 22 24 30 3A 20 49
27 6D 20 61 66 72 61 69 64 20 69 74 27 73 20 74 6F 6F 20 6C 61 74 65 20
66 6F 72 20 70 72 65 74 74 69 6E 65 73 73 2E 5C 6E 22 3B 0A 09 09 09 09
20 20 20 20 24 50 52 45 54 54 59 2B 2B 3B 0A 09 09 09 09 20 20 20 20 6E
65 78 74 3B 0A 09 09 09 20 20 20 20 20 20 20 7D 3B 0A 0A 09 2F 5E 2D 74
28 72 61 63 65 29 3F 24 2F 20 09 09 26 26 20 64 6F 20 7B 0A 09 09 09 09
20 20 20 20 24 54 52 41 43 45 4F 4E 4C 59 2B 2B 3B 0A 09 09 09 09 20 20
20 20 6E 65 78 74 3B 0A 09 09 09 20 20 20 20 20 20 20 7D 3B 0A 09 2F 5E
2D 77 28 61 72 6E 74 72 61 63 65 29 3F 24 2F 20 09 09 26 26 20 64 6F 20
7B 0A 09 09 09 09 20 20 20 20 24 57 41 52 4E 54 52 41 43 45 2B 2B 3B 0A
09 09 09 09 20 20 20 20 6E 65 78 74 3B 0A 09 09 09 20 20 20 20 20 20 20
7D 3B 0A 0A 09 77 61 72 6E 20 22 55 6E 6B 6E 6F 77 6E 20 66 6C 61 67 3A
20 24 5F 22 3B 0A 20 20 20 20 7D 20 0A 0A 20 20 20 20 24 6F 6C 64 77 61
72 6E 20 3D 20 24 53 49 47 7B 5F 5F 57 41 52 4E 5F 5F 7D 3B 0A 20 20 20
20 24 6F 6C 64 64 69 65 20 3D 20 24 53 49 47 7B 5F 5F 44 49 45 5F 5F 7D
3B 0A 20 20 20 20 24 53 49 47 7B 5F 5F 57 41 52 4E 5F 5F 7D 20 3D 20 5C
26 77 61 72 6E 5F 74 72 61 70 3B 0A 20 20 20 20 24 53 49 47 7B 5F 5F 44
49 45 5F 5F 7D 20 3D 20 5C 26 64 65 61 74 68 5F 74 72 61 70 3B 0A 7D 20
0A 0A 73 75 62 20 65 6E 61 62 6C 65 20 7B 20 26 69 6D 70 6F 72 74 20 7D
0A 0A 73 75 62 20 64 69 73 61 62 6C 65 20 7B 0A 20 20 20 20 73 68 69 66
74 3B 0A 20 20 20 20 72 65 74 75 72 6E 20 75 6E 6C 65 73 73 20 24 53 49
47 7B 5F 5F 57 41 52 4E 5F 5F 7D 20 65 71 20 5C 26 77 61 72 6E 5F 74 72
61 70 3B 0A 20 20 20 20 24 53 49 47 7B 5F 5F 57 41 52 4E 5F 5F 7D 20 3D
20 24 6F 6C 64 77 61 72 6E 20 7C 7C 20 27 27 3B 0A 20 20 20 20 24 53 49
47 7B 5F 5F 44 49 45 5F 5F 7D 20 3D 20 24 6F 6C 64 64 69 65 20 7C 7C 20
27 27 3B 0A 7D 20 0A 0A 73 75 62 20 77 61 72 6E 5F 74 72 61 70 20 7B 0A
20 20 20 20 6D 79 20 24 77 61 72 6E 69 6E 67 20 3D 20 24 5F 5B 30 5D 3B
0A 20 20 20 20 69 66 20 28 63 61 6C 6C 65 72 20 65 71 20 24 57 48 4F 41
4D 49 20 6F 72 20 21 73 70 6C 61 69 6E 74 68 69 73 28 24 77 61 72 6E 69
6E 67 29 29 20 7B 0A 09 69 66 20 28 24 57 41 52 4E 54 52 41 43 45 29 20
7B 0A 09 20 20 20 20 70 72 69 6E 74 20 53 54 44 45 52 52 20 43 61 72 70
3A 3A 6C 6F 6E 67 6D 65 73 73 28 24 77 61 72 6E 69 6E 67 29 3B 0A 09 7D
20 65 6C 73 65 20 7B 0A 09 20 20 20 20 70 72 69 6E 74 20 53 54 44 45 52
52 20 24 77 61 72 6E 69 6E 67 3B 0A 09 7D 0A 20 20 20 20 7D 20 0A 20 20
20 20 67 6F 74 6F 20 26 24 6F 6C 64 77 61 72 6E 20 69 66 20 64 65 66 69
6E 65 64 20 24 6F 6C 64 77 61 72 6E 20 61 6E 64 20 24 6F 6C 64 77 61 72
6E 20 61 6E 64 20 24 6F 6C 64 77 61 72 6E 20 6E 65 20 5C 26 77 61 72 6E
5F 74 72 61 70 3B 0A 7D 3B 0A 0A 73 75 62 20 64 65 61 74 68 5F 74 72 61
70 20 7B 0A 20 20 20 20 6D 79 20 24 65 78 63 65 70 74 69 6F 6E 20 3D 20
24 5F 5B 30 5D 3B 0A 0A 20 20 20 20 23 20 53 65 65 20 69 66 20 77 65 20
61 72 65 20 63 6F 6D 69 6E 67 20 66 72 6F 6D 20 61 6E 79 77 68 65 72 65
20 77 69 74 68 69 6E 20 61 6E 20 65 76 61 6C 2E 20 49 66 20 73 6F 20 77
65 20 64 6F 6E 27 74 0A 20 20 20 20 23 20 77 61 6E 74 20 74 6F 20 65 78
70 6C 61 69 6E 20 74 68 65 20 65 78 63 65 70 74 69 6F 6E 20 62 65 63 61
75 73 65 20 69 74 27 73 20 67 6F 69 6E 67 20 74 6F 20 67 65 74 20 63 61
75 67 68 74 2E 0A 20 20 20 20 6D 79 20 24 69 6E 5F 65 76 61 6C 20 3D 20
30 3B 0A 20 20 20 20 6D 79 20 24 69 20 3D 20 30 3B 0A 20 20 20 20 77 68
69 6C 65 20 28 6D 79 20 24 63 61 6C 6C 65 72 20 3D 20 28 63 61 6C 6C 65
72 28 24 69 2B 2B 29 29 5B 33 5D 29 20 7B 0A 20 20 20 20 20 20 69 66 20
28 24 63 61 6C 6C 65 72 20 65 71 20 27 28 65 76 61 6C 29 27 29 20 7B 0A
09 24 69 6E 5F 65 76 61 6C 20 3D 20 31 3B 0A 09 6C 61 73 74 3B 0A 20 20
20 20 20 20 7D 0A 20 20 20 20 7D 0A 0A 20 20 20 20 73 70 6C 61 69 6E 74
68 69 73 28 24 65 78 63 65 70 74 69 6F 6E 29 20 75 6E 6C 65 73 73 20 24
69 6E 5F 65 76 61 6C 3B 0A 20 20 20 20 69 66 20 28 63 61 6C 6C 65 72 20
65 71 20 24 57 48 4F 41 4D 49 29 20 7B 20 70 72 69 6E 74 20 53 54 44 45
52 52 20 22 49 4E 54 45 52 4E 41 4C 20 45 58 43 45 50 54 49 4F 4E 3A 20
24 65 78 63 65 70 74 69 6F 6E 22 3B 20 7D 20 0A 20 20 20 20 26 24 6F 6C
64 64 69 65 20 69 66 20 64 65 66 69 6E 65 64 20 24 6F 6C 64 64 69 65 20
61 6E 64 20 24 6F 6C 64 64 69 65 20 61 6E 64 20 24 6F 6C 64 64 69 65 20
6E 65 20 5C 26 64 65 61 74 68 5F 74 72 61 70 3B 0A 0A 20 20 20 20 72 65
74 75 72 6E 20 69 66 20 24 69 6E 5F 65 76 61 6C 3B 0A 0A 20 20 20 20 23
20 57 65 20 64 6F 6E 27 74 20 77 61 6E 74 20 74 6F 20 75 6E 73 65 74 20
74 68 65 73 65 20 69 66 20 77 65 27 72 65 20 63 6F 6D 69 6E 67 20 66 72
6F 6D 20 61 6E 20 65 76 61 6C 20 62 65 63 61 75 73 65 0A 20 20 20 20 23
20 74 68 65 6E 20 77 65 27 76 65 20 74 75 72 6E 65 64 20 6F 66 66 20 64
69 61 67 6E 6F 73 74 69 63 73 2E 0A 0A 20 20 20 20 23 20 53 77 69 74 63
68 20 6F 66 66 20 6F 75 72 20 64 69 65 2F 77 61 72 6E 20 68 61 6E 64 6C
65 72 73 20 73 6F 20 77 65 20 64 6F 6E 27 74 20 77 69 6E 64 20 75 70 20
69 6E 20 6F 75 72 20 6F 77 6E 0A 20 20 20 20 23 20 74 72 61 70 73 2E 0A
20 20 20 20 24 53 49 47 7B 5F 5F 44 49 45 5F 5F 7D 20 3D 20 24 53 49 47
7B 5F 5F 57 41 52 4E 5F 5F 7D 20 3D 20 27 27 3B 0A 0A 20 20 20 20 23 20
48 61 76 65 20 63 61 72 70 20 73 6B 69 70 20 6F 76 65 72 20 64 65 61 74
68 5F 74 72 61 70 28 29 20 77 68 65 6E 20 73 68 6F 77 69 6E 67 20 74 68
65 20 73 74 61 63 6B 20 74 72 61 63 65 2E 0A 20 20 20 20 6C 6F 63 61 6C
28 24 43 61 72 70 3A 3A 43 61 72 70 4C 65 76 65 6C 29 20 3D 20 31 3B 0A
0A 20 20 20 20 63 6F 6E 66 65 73 73 20 22 55 6E 63 61 75 67 68 74 20 65
78 63 65 70 74 69 6F 6E 20 66 72 6F 6D 20 75 73 65 72 20 63 6F 64 65 3A
5C 6E 5C 74 24 65 78 63 65 70 74 69 6F 6E 22 3B 0A 09 23 20 75 70 20 77
65 20 67 6F 3B 20 77 68 65 72 65 20 77 65 20 73 74 6F 70 2C 20 6E 6F 62
6F 64 79 20 6B 6E 6F 77 73 2C 20 62 75 74 20 69 20 74 68 69 6E 6B 20 77
65 20 64 69 65 20 6E 6F 77 0A 09 23 20 62 75 74 20 69 27 6D 20 64 65 65
70 6C 79 20 61 66 72 61 69 64 20 6F 66 20 74 68 65 20 26 24 6F 6C 64 64
69 65 20 67 75 79 20 72 65 72 61 69 73 69 6E 67 20 61 6E 64 20 75 73 20
67 65 74 74 69 6E 67 0A 09 23 20 69 6E 74 6F 20 61 6E 20 69 6E 64 69 72
65 63 74 20 72 65 63 75 72 73 69 6F 6E 20 6C 6F 6F 70 0A 7D 3B 0A 0A 6D
79 20 25 65 78 61 63 74 5F 64 75 70 6C 69 63 61 74 65 3B 0A 6D 79 20 25
6F 6C 64 5F 64 69 61 67 3B 0A 6D 79 20 24 63 6F 75 6E 74 3B 0A 6D 79 20
24 77 61 6E 74 73 70 61 63 65 3B 0A 73 75 62 20 73 70 6C 61 69 6E 74 68
69 73 20 7B 0A 20 20 20 20 72 65 74 75 72 6E 20 30 20 69 66 20 24 54 52
41 43 45 4F 4E 4C 59 3B 0A 20 20 20 20 6C 6F 63 61 6C 20 24 5F 20 3D 20
73 68 69 66 74 3B 0A 20 20 20 20 6C 6F 63 61 6C 20 24 5C 3B 0A 20 20 20
20 23 23 23 20 26 66 69 6E 69 73 68 5F 63 6F 6D 70 69 6C 61 74 69 6F 6E
20 75 6E 6C 65 73 73 20 25 6D 73 67 3B 0A 20 20 20 20 73 2F 5C 2E 3F 5C
6E 2B 24 2F 2F 3B 0A 20 20 20 20 6D 79 20 24 6F 72 69 67 20 3D 20 24 5F
3B 0A 20 20 20 20 23 20 72 65 74 75 72 6E 20 75 6E 6C 65 73 73 20 64 65
66 69 6E 65 64 3B 0A 0A 20 20 20 20 23 20 67 65 74 20 72 69 64 20 6F 66
20 74 68 65 20 77 68 65 72 65 2D 61 72 65 2D 77 65 2D 69 6E 2D 69 6E 70
75 74 20 70 61 72 74 0A 20 20 20 20 73 2F 2C 20 3C 2E 2A 3F 3E 20 28 3F
3A 6C 69 6E 65 7C 63 68 75 6E 6B 29 2E 2A 24 2F 2F 3B 0A 0A 20 20 20 20
23 20 44 69 73 63 61 72 64 20 31 73 74 20 22 20 61 74 20 3C 66 69 6C 65
3E 20 6C 69 6E 65 20 3C 6E 6F 3E 22 20 61 6E 64 20 61 6C 6C 20 74 65 78
74 20 62 65 79 6F 6E 64 0A 20 20 20 20 23 20 62 75 74 20 62 65 20 61 77
61 72 65 20 6F 66 20 6D 65 73 73 73 61 67 65 73 20 63 6F 6E 74 61 69 6E
69 6E 67 20 22 20 61 74 20 74 68 69 73 2D 6F 72 2D 74 68 61 74 22 0A 20
20 20 20 6D 79 20 24 72 65 61 6C 20 3D 20 30 3B 0A 20 20 20 20 6D 79 20
40 73 65 63 73 20 3D 20 73 70 6C 69 74 28 20 2F 20 61 74 20 2F 20 29 3B
0A 20 20 20 20 24 5F 20 3D 20 24 73 65 63 73 5B 30 5D 3B 0A 20 20 20 20
66 6F 72 20 6D 79 20 24 69 20 28 20 31 2E 2E 24 23 73 65 63 73 20 29 7B
0A 20 20 20 20 20 20 20 20 69 66 28 20 24 73 65 63 73 5B 24 69 5D 20 3D
7E 20 2F 2E 2B 3F 20 28 3F 3A 6C 69 6E 65 7C 63 68 75 6E 6B 29 20 5C 64
2B 2F 20 29 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 24 72 65 61 6C 20
3D 20 31 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 6C 61 73 74 3B 0A 20
20 20 20 20 20 20 20 7D 20 65 6C 73 65 20 7B 0A 20 20 20 20 20 20 20 20
20 20 20 20 24 5F 20 2E 3D 20 27 20 61 74 20 27 20 2E 20 24 73 65 63 73
5B 24 69 5D 3B 0A 09 7D 0A 20 20 20 20 7D 0A 20 20 20 20 0A 20 20 20 20
23 20 72 65 6D 6F 76 65 20 70 61 72 65 6E 74 68 65 73 69 73 20 6F 63 63
75 72 72 69 6E 67 20 61 74 20 74 68 65 20 65 6E 64 20 6F 66 20 73 6F 6D
65 20 6D 65 73 73 61 67 65 73 20 0A 20 20 20 20 73 2F 5E 5C 28 28 2E 2A
29 5C 29 24 2F 24 31 2F 3B 0A 0A 20 20 20 20 69 66 20 28 24 65 78 61 63
74 5F 64 75 70 6C 69 63 61 74 65 7B 24 6F 72 69 67 7D 2B 2B 29 20 7B 0A
09 72 65 74 75 72 6E 20 26 74 72 61 6E 73 6D 6F 3B 0A 20 20 20 20 7D 20
65 6C 73 65 20 7B 0A 09 72 65 74 75 72 6E 20 30 20 75 6E 6C 65 73 73 20
26 74 72 61 6E 73 6D 6F 3B 0A 20 20 20 20 7D 0A 0A 20 20 20 20 24 6F 72
69 67 20 3D 20 73 68 6F 72 74 65 6E 28 24 6F 72 69 67 29 3B 0A 20 20 20
20 69 66 20 28 24 6F 6C 64 5F 64 69 61 67 7B 24 5F 7D 29 20 7B 0A 09 61
75 74 6F 64 65 73 63 72 69 62 65 28 29 3B 0A 09 70 72 69 6E 74 20 54 48
49 54 48 45 52 20 22 24 6F 72 69 67 20 28 23 24 6F 6C 64 5F 64 69 61 67
7B 24 5F 7D 29 5C 6E 22 3B 0A 09 24 77 61 6E 74 73 70 61 63 65 20 3D 20
31 3B 0A 20 20 20 20 7D 20 65 6C 73 65 20 7B 0A 09 61 75 74 6F 64 65 73
63 72 69 62 65 28 29 3B 0A 09 24 6F 6C 64 5F 64 69 61 67 7B 24 5F 7D 20
3D 20 2B 2B 24 63 6F 75 6E 74 3B 0A 09 70 72 69 6E 74 20 54 48 49 54 48
45 52 20 22 5C 6E 22 20 69 66 20 24 77 61 6E 74 73 70 61 63 65 3B 0A 09
24 77 61 6E 74 73 70 61 63 65 20 3D 20 30 3B 0A 09 70 72 69 6E 74 20 54
48 49 54 48 45 52 20 22 24 6F 72 69 67 20 28 23 24 6F 6C 64 5F 64 69 61
67 7B 24 5F 7D 29 5C 6E 22 3B 0A 09 69 66 20 28 24 6D 73 67 7B 24 5F 7D
29 20 7B 0A 09 20 20 20 20 70 72 69 6E 74 20 54 48 49 54 48 45 52 20 24
6D 73 67 7B 24 5F 7D 3B 0A 09 7D 20 65 6C 73 65 20 7B 0A 09 20 20 20 20
69 66 20 28 30 20 61 6E 64 20 24 73 74 61 6E 64 61 6C 6F 6E 65 29 20 7B
20 0A 09 09 70 72 69 6E 74 20 54 48 49 54 48 45 52 20 22 20 20 20 20 2A
2A 2A 2A 20 45 72 72 6F 72 20 23 24 6F 6C 64 5F 64 69 61 67 7B 24 5F 7D
20 22 2C 0A 09 09 09 28 24 72 65 61 6C 20 3F 20 22 69 73 22 20 3A 20 22
61 70 70 65 61 72 73 20 74 6F 20 62 65 22 29 2C 0A 09 09 09 22 20 61 6E
20 75 6E 6B 6E 6F 77 6E 20 64 69 61 67 6E 6F 73 74 69 63 20 6D 65 73 73
61 67 65 2E 5C 6E 5C 6E 22 3B 0A 09 20 20 20 20 7D 0A 09 20 20 20 20 72
65 74 75 72 6E 20 30 3B 0A 09 7D 20 0A 20 20 20 20 7D 0A 20 20 20 20 72
65 74 75 72 6E 20 31 3B 0A 7D 20 0A 0A 73 75 62 20 61 75 74 6F 64 65 73
63 72 69 62 65 20 7B 0A 20 20 20 20 69 66 20 28 24 56 45 52 42 4F 53 45
20 61 6E 64 20 6E 6F 74 20 24 63 6F 75 6E 74 29 20 7B 0A 09 70 72 69 6E
74 20 54 48 49 54 48 45 52 20 26 7B 24 50 52 45 54 54 59 20 3F 20 5C 26
62 6F 6C 64 20 3A 20 5C 26 6E 6F 6F 70 7D 28 22 44 45 53 43 52 49 50 54
49 4F 4E 20 4F 46 20 44 49 41 47 4E 4F 53 54 49 43 53 22 29 2C 0A 09 09
22 5C 6E 24 6D 73 67 7B 44 45 53 43 52 49 50 54 49 4F 4E 7D 5C 6E 22 3B
0A 20 20 20 20 7D 20 0A 7D 20 0A 0A 73 75 62 20 75 6E 65 73 63 61 70 65
20 7B 20 0A 20 20 20 20 73 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20
45 3C 20 20 0A 20 20 20 20 20 20 20 20 20 20 20 20 28 20 5B 41 2D 5A 61
2D 7A 5D 2B 20 29 20 20 20 20 20 20 20 0A 20 20 20 20 20 20 20 20 20 20
20 20 3E 20 20 20 0A 20 20 20 20 7D 20 7B 20 0A 20 20 20 20 20 20 20 20
20 64 6F 20 7B 20 20 20 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78
69 73 74 73 20 24 48 54 4D 4C 5F 45 73 63 61 70 65 73 7B 24 31 7D 0A 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3F 20 64 6F 20 7B 20 24 48
54 4D 4C 5F 45 73 63 61 70 65 73 7B 24 31 7D 20 7D 0A 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 3A 20 64 6F 20 7B 0A 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 77 61 72 6E 20 22 55 6E 6B 6E 6F
77 6E 20 65 73 63 61 70 65 3A 20 45 3C 24 31 3E 20 69 6E 20 24 5F 22 3B
0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 45 3C
24 31 3E 22 3B 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7D 20
0A 20 20 20 20 20 20 20 20 20 7D 20 0A 20 20 20 20 7D 65 67 78 3B 0A 7D
0A 0A 73 75 62 20 73 68 6F 72 74 65 6E 20 7B 0A 20 20 20 20 6D 79 20 24
6C 69 6E 65 20 3D 20 24 5F 5B 30 5D 3B 0A 20 20 20 20 69 66 20 28 6C 65
6E 67 74 68 28 24 6C 69 6E 65 29 20 3E 20 37 39 20 61 6E 64 20 69 6E 64
65 78 28 24 6C 69 6E 65 2C 20 22 5C 6E 22 29 20 3D 3D 20 2D 31 29 20 7B
0A 09 6D 79 20 24 73 70 61 63 65 5F 70 6C 61 63 65 20 3D 20 72 69 6E 64
65 78 28 24 6C 69 6E 65 2C 20 27 20 27 2C 20 37 39 29 3B 0A 09 69 66 20
28 24 73 70 61 63 65 5F 70 6C 61 63 65 20 21 3D 20 2D 31 29 20 7B 0A 09
20 20 20 20 73 75 62 73 74 72 28 24 6C 69 6E 65 2C 20 24 73 70 61 63 65
5F 70 6C 61 63 65 2C 20 31 29 20 3D 20 22 5C 6E 5C 74 22 3B 0A 09 7D 20
0A 20 20 20 20 7D 20 0A 20 20 20 20 72 65 74 75 72 6E 20 24 6C 69 6E 65
3B 0A 7D 20 0A 0A 0A 31 20 75 6E 6C 65 73 73 20 24 73 74 61 6E 64 61 6C
6F 6E 65 3B 20 20 23 20 6F 72 20 69 74 27 6C 6C 20 63 6F 6D 70 6C 61 69
6E 20 61 62 6F 75 74 20 69 74 73 65 6C 66 0A 5F 5F 45 4E 44 5F 5F 20 23
20 77 69 73 68 20 64 69 61 67 20 64 62 61 73 65 20 77 65 72 65 20 6D 6F
72 65 20 61 63 63 65 73 73 69 62 6C 65 0A | #!/usr/bin/perl eval
'exec /usr/bin/perl -S
$0 ${1+"$@"}' if $runni
ng_under_some_shell; =h
ead1 NAME diagnostics,
splain - produce verbose
warning diagnostics =h
ead1 SYNOPSIS Using the
C<diagnostics> pragma:
use diagnostics;
use diagnostics -verbo
se; enable diagnos
tics; disable diagno
stics; Using the C<spla
in> standalone filter pr
ogram: perl program
2>diag.out splain [
-v] [-p] diag.out Using
diagnostics to get stac
k traces from a misbehav
ing script: perl -M
diagnostics=-traceonly m
y_script.pl =head1 DESC
RIPTION =head2 The C<di
agnostics> Pragma This
module extends the terse
diagnostics normally em
itted by both the perl c
ompiler and the perl int
erpreter (from running p
erl with a -w switch or
C<use warnings>), augme
nting them with the more
explicative and endeari
ng descriptions found in
L<perldiag>. Like the
other pragmata, it affec
ts the compilation phase
of your program rather
than merely the executio
n phase. To use in your
program as a pragma, me
rely invoke use dia
gnostics; at the start
(or near the start) of y
our program. (Note tha
t this I<does> enable pe
rl's B<-w> flag.) Your
whole compilation will t
hen be subject(ed :-) to
the enhanced diagnostic
s. These still go out B<
STDERR>. Due to the int
eraction between runtime
and compiletime issues,
and because it's probab
ly not a very good idea
anyway, you may not use
C<no diagnostics> to tur
n them off at compiletim
e. However, you may cont
rol their behaviour at r
untime using the disabl
e() and enable() methods
to turn them off and on
respectively. The B<-v
erbose> flag first print
s out the L<perldiag> in
troduction before any ot
her diagnostics. The $d
iagnostics::PRETTY varia
ble can generate nicer e
scape sequences for page
rs. Warnings dispatched
from perl itself (or mo
re accurately, those tha
t match descriptions fou
nd in L<perldiag>) are o
nly displayed once (no d
uplicate descriptions).
User code generated war
nings a la warn() are un
affected, allowing dupli
cate user messages to be
displayed. This module
also adds a stack trace
to the error message wh
en perl dies. This is us
eful for pinpointing wha
t caused the death. The
B<-traceonly> (or just B
<-t>) flag turns off the
explanations of warning
messages leaving just t
he stack traces. So if y
our script is dieing, ru
n it again with perl
-Mdiagnostics=-traceonly
my_bad_script to see t
he call stack at the tim
e of death. By supplying
the B<-warntrace> (or j
ust B<-w>) flag, any war
nings emitted will also
come with a stack trace.
=head2 The I<splain> P
rogram While apparently
a whole nuther program,
I<splain> is actually n
othing more than a link
to the (executable) F<di
agnostics.pm> module, as
well as a link to the F
<diagnostics.pod> docume
ntation. The B<-v> flag
is like the C<use diagn
ostics -verbose> directi
ve. The B<-p> flag is li
ke the $diagnostics::PRE
TTY variable. Since you
're post-processing with
I<splain>, there's no
sense in being able to e
nable() or disable() pro
cessing. Output from I<
splain> is directed to B
<STDOUT>, unlike the pra
gma. =head1 EXAMPLES T
he following file is cer
tain to trigger a few er
rors at both runtime and
compiletime: use d
iagnostics; print NO
WHERE "nothing\n"; p
rint STDERR "\n\tThis me
ssage should be unadorne
d.\n"; warn "\tThis
is a user warning";
print "\nDIAGNOSTIC TEST
ER: Please enter a <CR>
here: "; my $a, $b =
scalar <STDIN>; pri
nt "\n"; print $x/$y
; If you prefer to run
your program first and l
ook at its problem after
wards, do this: per
l -w test.pl 2>test.out
./splain < test.out
Note that this is not i
n general possible in sh
ells of more dubious her
itage, as the theoretic
al (perl -w test.p
l >/dev/tty) >& test.out
./splain < test.out
Because you just moved
the existing B<stdout>
to somewhere else. If y
ou don't want to modify
your source code, but st
ill have on-the-fly warn
ings, do this: exec
3>&1; perl -w test.pl 2
>&1 1>&3 3>&- | splain 1
>&2 3>&- Nifty, eh? I
f you want to control wa
rnings on the fly, do so
mething like this. Make
sure you do the C<use> f
irst, or you won't be ab
le to get at the enable(
) or disable() methods.
use diagnostics; #
checks entire compilatio
n phase print "\ntime
for 1st bogus diags: SQU
AWKINGS\n"; print BOGUS
1 'nada'; print "done w
ith 1st bogus\n"; d
isable diagnostics; # on
ly turns off runtime war
nings print "\ntime for
2nd bogus: (squelched)\
n"; print BOGUS2 'nada'
; print "done with 2nd
bogus\n"; enable di
agnostics; # turns back
on runtime warnings pri
nt "\ntime for 3rd bogus
: SQUAWKINGS\n"; print
BOGUS3 'nada'; print "d
one with 3rd bogus\n";
disable diagnostics;
print "\ntime for 4th
bogus: (squelched)\n";
print BOGUS4 'nada'; pr
int "done with 4th bogus
\n"; =head1 INTERNALS
Diagnostic messages deri
ve from the F<perldiag.p
od> file when available
at runtime. Otherwise,
they may be embedded in
the file itself when the
splain package is built
. See the F<Makefile>
for details. If an exta
nt $SIG{__WARN__} handle
r is discovered, it will
continue to be honored,
but only after the diag
nostics::splainthis() fu
nction (the module's $S
IG{__WARN__} interceptor
) has had its way with y
our warnings. There is
a $diagnostics::DEBUG va
riable you may set if yo
u're desperately curious
what sorts of things ar
e being intercepted.
BEGIN { $diagnostics::
DEBUG = 1 } =head1 BU
GS Not being able to sa
y "no diagnostics" is an
noying, but may not be i
nsurmountable. The C<-p
retty> directive is call
ed too late to affect ma
tters. You have to do th
is instead, and I<before
> you load the module.
BEGIN { $diagnostics
::PRETTY = 1 } I could
start up faster by dela
ying compilation until i
t should be needed, but
this gets a "panic: top_
level" when using the pr
agma form in Perl 5.001e
. While it's true that
this documentation is so
mewhat subserious, if yo
u use a program named I<
splain>, you should expe
ct a bit of whimsy. =he
ad1 AUTHOR Tom Christia
nsen <F<tchrist@mox.perl
.com>>, 25 June 1995. =
cut use strict; use 5.0
06; use Carp; $Carp::Int
ernal{__PACKAGE__.""}++;
our $VERSION = 1.15; o
ur $DEBUG; our $VERBOSE;
our $PRETTY; our $TRACE
ONLY = 0; our $WARNTRACE
= 0; use Config; my($p
rivlib, $archlib) = @Con
fig{qw(privlibexp archli
bexp)}; if ($^O eq 'VMS'
) { require VMS::Fil
espec; $privlib = VM
S::Filespec::unixify($pr
ivlib); $archlib = V
MS::Filespec::unixify($a
rchlib); } my @trypod =
( "$archlib/pod/perl
diag.pod", "$privlib
/pod/perldiag-$Config{ve
rsion}.pod", "$privl
ib/pod/perldiag.pod",
"$archlib/pods/perldia
g.pod", "$privlib/po
ds/perldiag-$Config{vers
ion}.pod", "$privlib
/pods/perldiag.pod",
); # handy for developme
nt testing of new warnin
gs etc unshift @trypod,
"./pod/perldiag.pod" if
-e "pod/perldiag.pod"; (
my $PODFILE) = ((grep {
-e } @trypod), $trypod[$
#trypod])[0]; if ($^O e
q 'MacOS') { # just
updir one from each lib
dir, we'll find it ...
($PODFILE) = grep { -
e } map { "$_:pod:perldi
ag.pod" } @INC; } $DEB
UG ||= 0; my $WHOAMI = r
ef bless []; # nobody's
business, prolly not ev
en mine local $| = 1; l
ocal $_; my $standalone
; my(%HTML_2_Troff, %HTM
L_2_Latin_1, %HTML_2_ASC
II_7); CONFIG: { ou
r $opt_p = our $opt_d =
our $opt_v = our $opt_f
= ''; unless (calle
r) { $standalone++; re
quire Getopt::Std; Geto
pt::Std::getopts('pdvf:'
) or die "Usage: $0
[-v] [-p] [-f splainpod
]"; $PODFILE = $opt_f i
f $opt_f; $DEBUG = 2 if
$opt_d; $VERBOSE = $op
t_v; $PRETTY = $opt_p;
} if (open(POD_
DIAG, $PODFILE)) { warn
"Happy happy podfile fr
om real $PODFILE\n" if $
DEBUG; last CONFIG;
} if (caller) {
INCPATH: { for my $
file ( (map { "$_/$WHOAM
I.pm" } @INC), $0) { w
arn "Checking $file\n" i
f $DEBUG; if (open(POD
_DIAG, $file)) { w
hile (<POD_DIAG>) { n
ext unless /^__EN
D__\s*# wish diag dbase
were more accessible/;
print STDERR "podfile
is $file\n" if $DEBUG;
last INCPATH; }
} } } } els
e { print STDERR "podf
ile is <DATA>\n" if $DEB
UG; *POD_DIAG = *main::
DATA; } } if (eof(PO
D_DIAG)) { die "cou
ldn't find diagnostic da
ta in $PODFILE @INC $0";
} %HTML_2_Troff = (
'amp' => '&', # amp
ersand 'lt' => '<',
# left chevron, less-t
han 'gt' => '>', #
right chevron, greater-
than 'quot' => '"',
# double quote "A
acute" => "A\\*'", # c
apital A, acute accent
# etc ); %HTML_2_La
tin_1 = ( 'amp' => '
&', # ampersand 'l
t' => '<', # left chev
ron, less-than 'gt'
=> '>', # right chevro
n, greater-than 'quo
t' => '"', # double qu
ote "Aacute" => "\x
C1" # capital A, acute
accent # etc ); %
HTML_2_ASCII_7 = ( '
amp' => '&', # ampersa
nd 'lt' => '<', #
left chevron, less-than
'gt' => '>', # rig
ht chevron, greater-than
'quot' => '"', #
double quote "Aacut
e" => "A" # capital A,
acute accent # etc
); our %HTML_Escapes; *
HTML_Escapes = do {
if ($standalone) { $PRE
TTY ? \%HTML_2_Latin_1 :
\%HTML_2_ASCII_7;
} else { \%HTML_2_Latin
_1; } }; *THITHER
= $standalone ? *STDOUT
: *STDERR; my %transfm
t = (); my $transmo = <
<EOFUNC; sub transmo {
#local \$^W = 0; # r
ecursive warnings we do
NOT need! study; EOF
UNC my %msg; { prin
t STDERR "FINISHING COMP
ILATION for $_\n" if $DE
BUG; local $/ = '';
local $_; my $he
ader; my $for_item;
while (<POD_DIAG>) {
unescape(); if ($PRE
TTY) { sub noop {
return $_[0] } # spens
ive for a noop sub
bold { my $str =$_[0];
$str =~ s/(.)/$1\b$1/g
; return $str; } s
ub italic { my $str = $_
[0]; $str =~ s/(.)/_\b$1
/g; return $str; }
s/C<<< (.*?) >>>|C<< (
.*?) >>|[BC]<(.*?)>/bold
($+)/ges; s/[LIF]<(
.*?)>/italic($1)/ges; }
else { s/C<<< (.*?
) >>>|C<< (.*?) >>|[BC]<
(.*?)>/$+/gs; s/[LI
F]<(.*?)>/$1/gs; } un
less (/^=/) { if (d
efined $header) { if
( $header eq 'DESCRIPTIO
N' && ( /Option
al warnings are enabled/
|| /Some of the
se messages are generic.
/ ) ) { ne
xt; } s/^/ /gm;
$msg{$header} .= $_;
undef $for_item;
} next; } unless
( s/=item (.*?)\s*\z//)
{ if ( s/=head1\s
DESCRIPTION//) { $msg{
$header = 'DESCRIPTION'}
= ''; undef $for_item
; } elsif( s/^
=for\s+diagnostics\s*\n(
.*?)\s*\z// ) { $for_i
tem = $1; } n
ext; } if( $for_item
) { $header = $for_item;
undef $for_item } els
e { $header = $1;
while( $header =~ /[
;,]\z/ ) { <POD_DIAG>
=~ /^\s*(.*?)\s*\z/; $
header .= ' '.$1; }
} # strip formatting
directives from =item l
ine $header =~ s/[A-Z]<
(.*?)>/$1/g; my
@toks = split( /(%l?[dx
]|%c|%(?:\.\d+)?s)/, $he
ader ); if (@toks > 1)
{ my $conlen
= 0; for my
$i (0..$#toks){
if( $i % 2 ){
if(
$toks[$i] eq '%c' ){
$toks[$i] = '.';
} elsif( $
toks[$i] eq '%d' ){
$tok
s[$i] = '\d+';
} elsif( $tok
s[$i] eq '%s' ){
$toks[$
i] = $i == $#toks ? '.*'
: '.*?';
} elsif( $toks[$i]
=~ '%.(\d+)s' ){
$toks[
$i] = ".{$1}";
} elsif( $to
ks[$i] =~ '^%l*x$' ){
$t
oks[$i] = '[\da-f]+';
}
} elsif( leng
th( $toks[$i] ) ){
$toks[$i]
=~ s/^.*$/\Q$&\E/;
$conlen
+= length( $toks[$i] );
}
} my
$lhs = join( '', @toks
); $transfmt{$heade
r}{pat} =
" s{^$lhs}\n {\Q$
header\E}s\n\t&& return
1;\n"; $tran
sfmt{$header}{len} = $co
nlen; } else {
$transfmt{$header}{p
at} = " m{^\Q$
header\E} && return 1;\n
"; $transfmt
{$header}{len} = length(
$header ); } print
STDERR "$WHOAMI: Duplica
te entry: \"$header\"\n"
if $msg{$header};
$msg{$header} = '';
} close POD_DIA
G unless *main::DATA eq
*POD_DIAG; die "No
diagnostics?" unless %ms
g; # Apply patterns
in order of decreasing
sum of lengths of fixed
parts # Seems the be
st way of hitting the ri
ght one. for my $hdr
( sort { $transfmt{$b}{
len} <=> $transfmt{$a}{l
en} }
keys %transfmt ){
$transmo .= $transfmt{
$hdr}{pat}; } $t
ransmo .= " return 0;
\n}\n"; print STDERR
$transmo if $DEBUG;
eval $transmo; die
$@ if $@; } if ($standa
lone) { if (!@ARGV a
nd -t STDIN) { print STD
ERR "$0: Reading from ST
DIN\n" } while (def
ined (my $error = <>)) {
splainthis($error) ||
print THITHER $error;
} exit; } my $o
lddie; my $oldwarn; sub
import { shift;
$^W = 1; # yup, clobber
ed the global variable;
# tough, if you w
ant diags, you want diag
s. return if defined
$SIG{__WARN__} && ($SIG
{__WARN__} eq \&warn_tra
p); for (@_) { /^
-d(ebug)?$/ && do {
$DEBUG++;
next; }; /^-
v(erbose)?$/ && do {
$VERBOSE++;
next; }; /^-p
(retty)?$/ && do {
print STDERR "$0: I
'm afraid it's too late
for prettiness.\n";
$PRETTY++; n
ext; }; /^-t
(race)?$/ && do {
$TRACEONLY++;
next; }; /^
-w(arntrace)?$/ && do
{ $WARNTRACE++;
next;
}; warn "Unknown flag:
$_"; } $oldwa
rn = $SIG{__WARN__};
$olddie = $SIG{__DIE__}
; $SIG{__WARN__} = \
&warn_trap; $SIG{__D
IE__} = \&death_trap; }
sub enable { &import }
sub disable { shif
t; return unless $SI
G{__WARN__} eq \&warn_tr
ap; $SIG{__WARN__} =
$oldwarn || ''; $SI
G{__DIE__} = $olddie ||
''; } sub warn_trap {
my $warning = $_[0];
if (caller eq $WHOA
MI or !splainthis($warni
ng)) { if ($WARNTRACE)
{ print STDERR Carp
::longmess($warning); }
else { print STDER
R $warning; } }
goto &$oldwarn if defi
ned $oldwarn and $oldwar
n and $oldwarn ne \&warn
_trap; }; sub death_tra
p { my $exception =
$_[0]; # See if we
are coming from anywhere
within an eval. If so w
e don't # want to ex
plain the exception beca
use it's going to get ca
ught. my $in_eval =
0; my $i = 0; wh
ile (my $caller = (calle
r($i++))[3]) { if
($caller eq '(eval)') {
$in_eval = 1; last;
} } splaint
his($exception) unless $
in_eval; if (caller
eq $WHOAMI) { print STDE
RR "INTERNAL EXCEPTION:
$exception"; } &$ol
ddie if defined $olddie
and $olddie and $olddie
ne \&death_trap; re
turn if $in_eval; #
We don't want to unset
these if we're coming fr
om an eval because #
then we've turned off d
iagnostics. # Switc
h off our die/warn handl
ers so we don't wind up
in our own # traps.
$SIG{__DIE__} = $SIG
{__WARN__} = ''; #
Have carp skip over deat
h_trap() when showing th
e stack trace. local
($Carp::CarpLevel) = 1;
confess "Uncaught e
xception from user code:
\n\t$exception"; # up w
e go; where we stop, nob
ody knows, but i think w
e die now # but i'm dee
ply afraid of the &$oldd
ie guy reraising and us
getting # into an indir
ect recursion loop }; m
y %exact_duplicate; my %
old_diag; my $count; my
$wantspace; sub splainth
is { return 0 if $TR
ACEONLY; local $_ =
shift; local $\;
### &finish_compilation
unless %msg; s/\.?\
n+$//; my $orig = $_
; # return unless de
fined; # get rid of
the where-are-we-in-inp
ut part s/, <.*?> (?
:line|chunk).*$//;
# Discard 1st " at <file
> line <no>" and all tex
t beyond # but be aw
are of messsages contain
ing " at this-or-that"
my $real = 0; my
@secs = split( / at / );
$_ = $secs[0];
for my $i ( 1..$#secs ){
if( $secs[$i] =
~ /.+? (?:line|chunk) \d
+/ ){ $real
= 1; last;
} else {
$_ .= ' at ' . $secs
[$i]; } }
# remove parenthesis occ
urring at the end of som
e messages s/^\((.*
)\)$/$1/; if ($exac
t_duplicate{$orig}++) {
return &transmo; }
else { return 0 unless
&transmo; } $or
ig = shorten($orig);
if ($old_diag{$_}) { a
utodescribe(); print TH
ITHER "$orig (#$old_diag
{$_})\n"; $wantspace =
1; } else { autodes
cribe(); $old_diag{$_}
= ++$count; print THITH
ER "\n" if $wantspace;
$wantspace = 0; print T
HITHER "$orig (#$old_dia
g{$_})\n"; if ($msg{$_}
) { print THITHER $
msg{$_}; } else {
if (0 and $standalone) {
print THITHER " *
*** Error #$old_diag{$_}
", ($real ? "is" : "
appears to be"), " an
unknown diagnostic mess
age.\n\n"; } r
eturn 0; } } r
eturn 1; } sub autodes
cribe { if ($VERBOSE
and not $count) { prin
t THITHER &{$PRETTY ? \&
bold : \&noop}("DESCRIPT
ION OF DIAGNOSTICS"),
"\n$msg{DESCRIPTION}\n";
} } sub unescape
{ s {
E< ( [A-Za
-z]+ )
> } {
do { ex
ists $HTML_Escapes{$1}
? do { $H
TML_Escapes{$1} }
: do {
warn "Unkno
wn escape: E<$1> in $_";
"E<
$1>"; }
} }egx; }
sub shorten { my $
line = $_[0]; if (le
ngth($line) > 79 and ind
ex($line, "\n") == -1) {
my $space_place = rind
ex($line, ' ', 79); if
($space_place != -1) {
substr($line, $space
_place, 1) = "\n\t"; }
} return $line
; } 1 unless $standal
one; # or it'll complai
n about itself __END__ #
wish diag dbase were mo
re accessible |