110.164.51.230 - phpshell

!c99Shell v. 1.0 pre-release build #16!
Software: Apache/2.2.3 (CentOS). PHP/5.1.6 uname -a: Linux mx-ll-110-164-51-230.static.3bb.co.th 2.6.18-194.el5PAE #1 SMP Fri Apr 2 15:37:44 EDT 2010 i686 uid=48(apache) gid=48(apache) groups=48(apache) Safe-mode: OFF (not secure) /usr/bin/ drwxr-xr-x Free 52.23 GB of 127.8 GB (40.87%) Encoder Tools Proc. FTP brute Sec. SQL PHP-code Update Feedback Self remove Logout

!c99Shell v. 1.0 pre-release build #16!

Software: Apache/2.2.3 (CentOS). PHP/5.1.6

uname -a: Linux mx-ll-110-164-51-230.static.3bb.co.th 2.6.18-194.el5PAE #1 SMP Fri Apr 2 15:37:44
EDT 2010 i686

uid=48(apache) gid=48(apache) groups=48(apache)

Safe-mode: OFF (not secure)

/usr/bin/ drwxr-xr-x
Free 52.23 GB of 127.8 GB (40.87%)
Encoder Tools Proc. FTP brute Sec. SQL PHP-code Update Feedback Self remove Logout

Viewing file: foomatic-printjob (34.27 KB) -rwxr-xr-x
Select action/file-type:
(+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |

Information:

Path	/usr/bin/foomatic-printjob
Size	34.27 KB
MD5	9c5696ca30ffae4d8f081786ed903e1e
Owner/Group	root/root
Perms	-rwxr-xr-x
Create time	25/04/2011 18:10:13
Access time	31/07/2024 16:00:16
MODIFY time	03/09/2009 19:40:40

FULL HEXDUMP

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
000043E0
000043F8
00004410
00004428
00004440
00004458
00004470
00004488
000044A0
000044B8
000044D0
000044E8
00004500
00004518
00004530
00004548
00004560
00004578
00004590
000045A8
000045C0
000045D8
000045F0
00004608
00004620
00004638
00004650
00004668
00004680
00004698
000046B0
000046C8
000046E0
000046F8
00004710
00004728
00004740
00004758
00004770
00004788
000047A0
000047B8
000047D0
000047E8
00004800
00004818
00004830
00004848
00004860
00004878
00004890
000048A8
000048C0
000048D8
000048F0
00004908
00004920
00004938
00004950
00004968
00004980
00004998
000049B0
000049C8
000049E0
000049F8
00004A10
00004A28
00004A40
00004A58
00004A70
00004A88
00004AA0
00004AB8
00004AD0
00004AE8
00004B00
00004B18
00004B30
00004B48
00004B60
00004B78
00004B90
00004BA8
00004BC0
00004BD8
00004BF0
00004C08
00004C20
00004C38
00004C50
00004C68
00004C80
00004C98
00004CB0
00004CC8
00004CE0
00004CF8
00004D10
00004D28
00004D40
00004D58
00004D70
00004D88
00004DA0
00004DB8
00004DD0
00004DE8
00004E00
00004E18
00004E30
00004E48
00004E60
00004E78
00004E90
00004EA8
00004EC0
00004ED8
00004EF0
00004F08
00004F20
00004F38
00004F50
00004F68
00004F80
00004F98
00004FB0
00004FC8
00004FE0
00004FF8
00005010
00005028
00005040
00005058
00005070
00005088
000050A0
000050B8
000050D0
000050E8
00005100
00005118
00005130
00005148
00005160
00005178
00005190
000051A8
000051C0
000051D8
000051F0
00005208
00005220
00005238
00005250
00005268
00005280
00005298
000052B0
000052C8
000052E0
000052F8
00005310
00005328
00005340
00005358
00005370
00005388
000053A0
000053B8
000053D0
000053E8
00005400
00005418
00005430
00005448
00005460
00005478
00005490
000054A8
000054C0
000054D8
000054F0
00005508
00005520
00005538
00005550
00005568
00005580
00005598
000055B0
000055C8
000055E0
000055F8
00005610
00005628
00005640
00005658
00005670
00005688
000056A0
000056B8
000056D0
000056E8
00005700
00005718
00005730
00005748
00005760
00005778
00005790
000057A8
000057C0
000057D8
000057F0
00005808
00005820
00005838
00005850
00005868
00005880
00005898
000058B0
000058C8
000058E0
000058F8
00005910
00005928
00005940
00005958
00005970
00005988
000059A0
000059B8
000059D0
000059E8
00005A00
00005A18
00005A30
00005A48
00005A60
00005A78
00005A90
00005AA8
00005AC0
00005AD8
00005AF0
00005B08
00005B20
00005B38
00005B50
00005B68
00005B80
00005B98
00005BB0
00005BC8
00005BE0
00005BF8
00005C10
00005C28
00005C40
00005C58
00005C70
00005C88
00005CA0
00005CB8
00005CD0
00005CE8
00005D00
00005D18
00005D30
00005D48
00005D60
00005D78
00005D90
00005DA8
00005DC0
00005DD8
00005DF0
00005E08
00005E20
00005E38
00005E50
00005E68
00005E80
00005E98
00005EB0
00005EC8
00005EE0
00005EF8
00005F10
00005F28
00005F40
00005F58
00005F70
00005F88
00005FA0
00005FB8
00005FD0
00005FE8
00006000
00006018
00006030
00006048
00006060
00006078
00006090
000060A8
000060C0
000060D8
000060F0
00006108
00006120
00006138
00006150
00006168
00006180
00006198
000061B0
000061C8
000061E0
000061F8
00006210
00006228
00006240
00006258
00006270
00006288
000062A0
000062B8
000062D0
000062E8
00006300
00006318
00006330
00006348
00006360
00006378
00006390
000063A8
000063C0
000063D8
000063F0
00006408
00006420
00006438
00006450
00006468
00006480
00006498
000064B0
000064C8
000064E0
000064F8
00006510
00006528
00006540
00006558
00006570
00006588
000065A0
000065B8
000065D0
000065E8
00006600
00006618
00006630
00006648
00006660
00006678
00006690
000066A8
000066C0
000066D8
000066F0
00006708
00006720
00006738
00006750
00006768
00006780
00006798
000067B0
000067C8
000067E0
000067F8
00006810
00006828
00006840
00006858
00006870
00006888
000068A0
000068B8
000068D0
000068E8
00006900
00006918
00006930
00006948
00006960
00006978
00006990
000069A8
000069C0
000069D8
000069F0
00006A08
00006A20
00006A38
00006A50
00006A68
00006A80
00006A98
00006AB0
00006AC8
00006AE0
00006AF8
00006B10
00006B28
00006B40
00006B58
00006B70
00006B88
00006BA0
00006BB8
00006BD0
00006BE8
00006C00
00006C18
00006C30
00006C48
00006C60
00006C78
00006C90
00006CA8
00006CC0
00006CD8
00006CF0
00006D08
00006D20
00006D38
00006D50
00006D68
00006D80
00006D98
00006DB0
00006DC8
00006DE0
00006DF8
00006E10
00006E28
00006E40
00006E58
00006E70
00006E88
00006EA0
00006EB8
00006ED0
00006EE8
00006F00
00006F18
00006F30
00006F48
00006F60
00006F78
00006F90
00006FA8
00006FC0
00006FD8
00006FF0
00007008
00007020
00007038
00007050
00007068
00007080
00007098
000070B0
000070C8
000070E0
000070F8
00007110
00007128
00007140
00007158
00007170
00007188
000071A0
000071B8
000071D0
000071E8
00007200
00007218
00007230
00007248
00007260
00007278
00007290
000072A8
000072C0
000072D8
000072F0
00007308
00007320
00007338
00007350
00007368
00007380
00007398
000073B0
000073C8
000073E0
000073F8
00007410
00007428
00007440
00007458
00007470
00007488
000074A0
000074B8
000074D0
000074E8
00007500
00007518
00007530
00007548
00007560
00007578
00007590
000075A8
000075C0
000075D8
000075F0
00007608
00007620
00007638
00007650
00007668
00007680
00007698
000076B0
000076C8
000076E0
000076F8
00007710
00007728
00007740
00007758
00007770
00007788
000077A0
000077B8
000077D0
000077E8
00007800
00007818
00007830
00007848
00007860
00007878
00007890
000078A8
000078C0
000078D8
000078F0
00007908
00007920
00007938
00007950
00007968
00007980
00007998
000079B0
000079C8
000079E0
000079F8
00007A10
00007A28
00007A40
00007A58
00007A70
00007A88
00007AA0
00007AB8
00007AD0
00007AE8
00007B00
00007B18
00007B30
00007B48
00007B60
00007B78
00007B90
00007BA8
00007BC0
00007BD8
00007BF0
00007C08
00007C20
00007C38
00007C50
00007C68
00007C80
00007C98
00007CB0
00007CC8
00007CE0
00007CF8
00007D10
00007D28
00007D40
00007D58
00007D70
00007D88
00007DA0
00007DB8
00007DD0
00007DE8
00007E00
00007E18
00007E30
00007E48
00007E60
00007E78
00007E90
00007EA8
00007EC0
00007ED8
00007EF0
00007F08
00007F20
00007F38
00007F50
00007F68
00007F80
00007F98
00007FB0
00007FC8
00007FE0
00007FF8
00008010
00008028
00008040
00008058
00008070
00008088
000080A0
000080B8
000080D0
000080E8
00008100
00008118
00008130
00008148
00008160
00008178
00008190
000081A8
000081C0
000081D8
000081F0
00008208
00008220
00008238
00008250
00008268
00008280
00008298
000082B0
000082C8
000082E0
000082F8
00008310
00008328
00008340
00008358
00008370
00008388
000083A0
000083B8
000083D0
000083E8
00008400
00008418
00008430
00008448
00008460
00008478
00008490
000084A8
000084C0
000084D8
000084F0
00008508
00008520
00008538
00008550
00008568
00008580
00008598
000085B0
000085C8
000085E0
000085F8
00008610
00008628
00008640
00008658
00008670
00008688
000086A0
000086B8
000086D0
000086E8
00008700
00008718
00008730
00008748
00008760
00008778
00008790
000087A8
000087C0
000087D8
000087F0
00008808
00008820
00008838
00008850
00008868
00008880
00008898
000088B0
000088C8
000088E0
000088F8

23 21 2F 75 73 72 2F 62 69 6E 2F 70 65 72 6C 0A 23 20 2D 2A 2D 20 70 65
72 6C 20 2D 2A 2D 0A 23 20 54 68 69 73 20 69 73 20 66 6F 6F 6D 61 74 69
63 2D 70 72 69 6E 74 6A 6F 62 2C 20 61 20 70 72 6F 67 72 61 6D 20 74 6F
20 70 72 69 6E 74 20 61 6E 64 20 6D 61 6E 61 67 65 20 70 72 69 6E 74 69
6E 67 0A 23 20 6A 6F 62 73 20 77 69 74 68 20 74 68 65 20 73 61 6D 65 20
63 6F 6D 6D 61 6E 64 73 20 69 6E 64 65 70 65 6E 64 65 6E 74 20 77 68 65
74 68 65 72 20 74 68 65 20 73 70 6F 6F 6C 65 72 20 69 73 20 43 55 50 53
2C 0A 23 20 4C 50 44 2C 20 4C 50 52 6E 67 2C 20 6F 72 20 50 44 51 2E 0A
0A 23 20 49 74 20 61 6C 73 6F 20 63 6F 6D 70 72 69 73 65 73 20 68 61 6C
66 20 6F 66 20 61 20 70 72 6F 67 72 61 6D 61 74 74 69 63 20 41 50 49 20
66 6F 72 20 75 73 65 72 20 74 6F 6F 6C 73 3A 20 79 6F 75 20 63 61 6E 0A
23 20 6C 65 61 72 6E 20 61 6E 64 20 63 6F 6E 74 72 6F 6C 20 65 76 65 72
79 74 68 69 6E 67 20 61 62 6F 75 74 20 74 68 65 20 70 72 6F 70 65 72 74
69 65 73 20 6F 66 20 70 72 69 6E 74 69 6E 67 20 6A 6F 62 73 0A 23 20 68
65 72 65 2E 20 57 69 74 68 20 74 68 65 20 73 69 73 74 65 72 20 70 72 6F
67 72 61 6D 20 66 6F 6F 6D 61 74 69 63 2D 63 6F 6E 66 69 67 75 72 65 2C
20 79 6F 75 20 63 61 6E 20 64 6F 0A 23 20 65 76 65 72 79 74 68 69 6E 67
20 72 65 6C 61 74 65 64 20 74 6F 20 70 72 69 6E 74 20 71 75 65 75 65 20
73 74 61 74 69 63 20 73 74 61 74 65 3A 20 69 6E 73 74 61 6C 6C 2C 20 6D
6F 64 69 66 79 2C 0A 23 20 72 65 6D 6F 76 65 20 71 75 65 75 65 73 2C 20
71 75 65 72 79 20 71 75 65 75 65 2C 20 70 72 69 6E 74 65 72 2C 20 61 6E
64 20 64 72 69 76 65 72 20 69 6E 66 6F 2E 0A 0A 75 73 65 20 46 6F 6F 6D
61 74 69 63 3A 3A 44 65 66 61 75 6C 74 73 3B 0A 75 73 65 20 46 6F 6F 6D
61 74 69 63 3A 3A 44 42 3B 0A 0A 23 20 52 65 61 64 20 6F 75 74 20 74 68
65 20 70 72 6F 67 72 61 6D 20 6E 61 6D 65 20 77 69 74 68 20 77 68 69 63
68 20 77 65 20 77 65 72 65 20 63 61 6C 6C 65 64 2C 20 62 75 74 20 64 69
73 63 61 72 64 20 74 68 65 20 70 61 74 68 0A 0A 24 30 20 3D 7E 20 6D 21
2F 28 5B 5E 2F 5D 2B 29 5C 73 2A 24 21 3B 0A 24 70 72 6F 67 6E 61 6D 65
20 3D 20 24 31 3B 0A 0A 23 20 57 65 20 75 73 65 20 74 68 65 20 6C 69 62
72 61 72 79 20 47 65 74 6F 70 74 3A 3A 4C 6F 6E 67 20 68 65 72 65 2C 20
73 6F 20 74 68 61 74 20 77 65 20 63 61 6E 20 68 61 76 65 20 6D 6F 72 65
20 74 68 61 6E 20 6F 6E 65 20 22 2D 6F 22 0A 23 20 6F 70 74 69 6F 6E 20
6F 6E 20 6F 6E 65 20 63 6F 6D 6D 61 6E 64 20 6C 69 6E 65 2E 0A 0A 75 73
65 20 47 65 74 6F 70 74 3A 3A 4C 6F 6E 67 3B 0A 47 65 74 6F 70 74 3A 3A
4C 6F 6E 67 3A 3A 43 6F 6E 66 69 67 75 72 65 28 22 6E 6F 5F 69 67 6E 6F
72 65 5F 63 61 73 65 22 2C 20 22 70 61 73 73 5F 74 68 72 6F 75 67 68 22
29 3B 0A 47 65 74 4F 70 74 69 6F 6E 73 28 22 50 3D 73 22 20 3D 3E 20 5C
24 6F 70 74 5F 50 2C 20 20 20 20 20 20 20 20 20 23 20 77 68 69 63 68 20
71 75 65 75 65 20 28 50 72 69 6E 74 65 72 29 3F 0A 09 20 20 20 22 64 3D
73 22 20 3D 3E 20 5C 24 6F 70 74 5F 64 2C 20 20 20 20 20 20 20 20 20 23
20 77 68 69 63 68 20 71 75 65 75 65 20 28 44 65 73 74 69 6E 61 74 69 6F
6E 29 3F 0A 09 20 20 20 22 73 3D 73 22 20 3D 3E 20 5C 24 6F 70 74 5F 73
2C 20 20 20 20 20 20 20 20 20 23 20 77 68 69 63 68 20 53 70 6F 6F 6C 65
72 3F 0A 09 20 20 20 22 6F 3D 73 22 20 3D 3E 20 5C 40 6F 70 74 5F 6F 2C
20 20 20 20 20 20 20 20 20 23 20 70 72 69 6E 74 69 6E 67 20 4F 70 74 69
6F 6E 73 0A 09 20 20 20 22 51 22 20 20 20 3D 3E 20 5C 24 6F 70 74 5F 51
2C 20 20 20 20 20 20 20 20 20 23 20 51 75 65 72 79 20 6A 6F 62 73 20 69
6E 20 71 75 65 75 65 0A 09 20 20 20 22 52 22 20 20 20 3D 3E 20 5C 24 6F
70 74 5F 52 2C 20 20 20 20 20 20 20 20 20 23 20 52 65 6D 6F 76 65 20 6A
6F 62 28 73 29 0A 09 20 20 20 22 43 22 20 20 20 3D 3E 20 5C 24 6F 70 74
5F 43 2C 20 20 20 20 20 20 20 20 20 23 20 43 6F 6E 74 72 6F 6C 20 6A 6F
62 28 73 29 2F 71 75 65 75 65 28 73 29 0A 09 20 20 20 22 53 22 20 20 20
3D 3E 20 5C 24 6F 70 74 5F 53 2C 20 20 20 20 20 20 20 20 20 23 20 73 65
74 20 64 65 66 61 75 6C 74 20 53 70 6F 6F 6C 65 72 0A 09 20 20 20 22 68
22 20 20 20 3D 3E 20 5C 24 6F 70 74 5F 68 29 3B 20 20 20 20 20 20 20 20
23 20 48 65 6C 70 21 0A 0A 68 65 6C 70 28 29 20 69 66 20 28 24 6F 70 74
5F 68 20 26 26 20 21 24 6F 70 74 5F 50 29 3B 0A 0A 6D 79 20 24 64 62 20
3D 20 6E 65 77 20 46 6F 6F 6D 61 74 69 63 3A 3A 44 42 3B 0A 0A 6D 79 20
24 69 6E 5F 63 6F 6E 66 69 67 20 3D 20 7B 27 71 75 65 75 65 27 20 20 20
3D 3E 20 24 6F 70 74 5F 50 2C 0A 09 09 20 27 6F 70 74 69 6F 6E 73 27 20
3D 3E 20 5C 40 6F 70 74 5F 6F 2C 0A 09 09 20 27 73 70 6F 6F 6C 65 72 27
20 3D 3E 20 24 6F 70 74 5F 73 7D 3B 0A 0A 23 20 44 65 66 61 75 6C 74 20
61 63 74 69 6F 6E 3A 20 50 72 69 6E 74 69 6E 67 0A 6D 79 20 24 61 63 74
69 6F 6E 20 3D 20 27 70 72 69 6E 74 27 3B 0A 0A 23 20 44 65 74 65 72 6D
69 6E 65 20 74 68 65 20 61 63 74 69 6F 6E 20 62 79 20 74 68 65 20 6E 61
6D 65 20 68 6F 77 20 77 65 20 77 65 72 65 20 63 61 6C 6C 65 64 0A 69 66
20 28 24 70 72 6F 67 6E 61 6D 65 20 3D 7E 20 6D 21 5E 6C 70 63 21 29 20
7B 20 23 20 27 6C 70 63 2A 27 20 3D 3D 3E 20 63 6F 6E 74 72 6F 6C 20 0A
20 20 20 20 24 61 63 74 69 6F 6E 20 3D 20 27 63 6F 6E 74 72 6F 6C 27 3B
0A 7D 20 65 6C 73 69 66 20 28 24 70 72 6F 67 6E 61 6D 65 20 3D 7E 20 6D
21 5E 6C 70 72 6D 21 29 20 7B 20 23 20 27 6C 70 72 6D 2A 27 20 3D 3D 3E
20 72 65 6D 6F 76 65 20 6A 6F 62 73 20 0A 20 20 20 20 24 61 63 74 69 6F
6E 20 3D 20 27 72 65 6D 6F 76 65 27 3B 0A 7D 20 65 6C 73 69 66 20 28 24
70 72 6F 67 6E 61 6D 65 20 3D 7E 20 6D 21 5E 6C 70 71 21 29 20 7B 20 23
20 27 6C 70 71 2A 27 20 3D 3D 3E 20 6C 69 73 74 20 6A 6F 62 73 20 0A 20
20 20 20 24 61 63 74 69 6F 6E 20 3D 20 27 71 75 65 72 79 27 3B 0A 7D 20
65 6C 73 69 66 20 28 28 24 70 72 6F 67 6E 61 6D 65 20 3D 7E 20 6D 21 5E
6C 70 72 21 29 20 7C 7C 20 28 24 70 72 6F 67 6E 61 6D 65 20 3D 7E 20 6D
21 5E 6C 70 21 29 29 20 7B 20 0A 20 20 20 20 23 20 27 6C 70 72 2A 27 2C
20 27 6C 70 2A 27 20 3D 3D 3E 20 70 72 69 6E 74 20 0A 20 20 20 20 24 61
63 74 69 6F 6E 20 3D 20 27 70 72 69 6E 74 27 3B 0A 7D 0A 0A 23 20 44 65
74 65 72 6D 69 6E 65 20 74 68 65 20 61 63 74 69 6F 6E 20 62 79 20 61 20
63 6F 6D 6D 61 6E 64 20 6C 69 6E 65 20 6F 70 74 69 6F 6E 0A 24 61 63 74
69 6F 6E 20 3D 20 28 24 6F 70 74 5F 52 20 3F 20 27 72 65 6D 6F 76 65 27
20 3A 20 24 61 63 74 69 6F 6E 29 3B 0A 24 61 63 74 69 6F 6E 20 3D 20 28
24 6F 70 74 5F 51 20 3F 20 27 71 75 65 72 79 27 20 3A 20 24 61 63 74 69
6F 6E 29 3B 0A 24 61 63 74 69 6F 6E 20 3D 20 28 24 6F 70 74 5F 43 20 3F
20 27 63 6F 6E 74 72 6F 6C 27 20 3A 20 24 61 63 74 69 6F 6E 29 3B 0A 0A
6D 79 20 24 70 72 6F 63 73 20 3D 20 7B 20 27 6C 70 64 27 20 3D 3E 20 7B
20 27 70 72 69 6E 74 27 20 20 20 20 3D 3E 20 5C 26 70 72 69 6E 74 5F 6C
70 64 2C 0A 09 09 09 20 27 71 75 65 72 79 27 20 20 20 20 3D 3E 20 5C 26
71 75 65 72 79 5F 6C 70 64 2C 0A 09 09 20 20 20 20 20 20 20 20 20 27 72
65 6D 6F 76 65 27 20 20 20 3D 3E 20 5C 26 72 65 6D 6F 76 65 5F 6C 70 64
2C 0A 09 09 20 20 20 20 20 20 20 20 20 27 63 6F 6E 74 72 6F 6C 27 20 20
3D 3E 20 5C 26 63 6F 6E 74 72 6F 6C 5F 6C 70 64 20 7D 2C 0A 09 20 20 20
20 20 20 27 6C 70 72 6E 67 27 3D 3E 7B 20 27 70 72 69 6E 74 27 20 20 20
20 3D 3E 20 5C 26 70 72 69 6E 74 5F 6C 70 72 6E 67 2C 0A 09 09 09 20 27
71 75 65 72 79 27 20 20 20 20 3D 3E 20 5C 26 71 75 65 72 79 5F 6C 70 72
6E 67 2C 0A 09 09 09 20 27 72 65 6D 6F 76 65 27 20 20 20 3D 3E 20 5C 26
72 65 6D 6F 76 65 5F 6C 70 72 6E 67 2C 0A 09 09 09 20 27 63 6F 6E 74 72
6F 6C 27 20 20 3D 3E 20 5C 26 63 6F 6E 74 72 6F 6C 5F 6C 70 64 20 7D 2C
0A 09 20 20 20 20 20 20 27 63 75 70 73 27 20 3D 3E 7B 20 27 70 72 69 6E
74 27 20 20 20 20 3D 3E 20 5C 26 70 72 69 6E 74 5F 63 75 70 73 2C 0A 09
09 09 20 27 71 75 65 72 79 27 20 20 20 20 3D 3E 20 5C 26 71 75 65 72 79
5F 63 75 70 73 2C 0A 09 09 09 20 27 72 65 6D 6F 76 65 27 20 20 20 3D 3E
20 5C 26 72 65 6D 6F 76 65 5F 63 75 70 73 2C 0A 09 09 09 20 27 63 6F 6E
74 72 6F 6C 27 20 20 3D 3E 20 5C 26 63 6F 6E 74 72 6F 6C 5F 63 75 70 73
20 7D 2C 0A 09 20 20 20 20 20 20 27 70 64 71 27 20 20 3D 3E 7B 20 27 70
72 69 6E 74 27 20 20 20 20 3D 3E 20 5C 26 70 72 69 6E 74 5F 70 64 71 2C
0A 09 09 09 20 27 71 75 65 72 79 27 20 20 20 20 3D 3E 20 5C 26 71 75 65
72 79 5F 70 64 71 2C 0A 09 09 09 20 27 72 65 6D 6F 76 65 27 20 20 20 3D
3E 20 5C 26 72 65 6D 6F 76 65 5F 70 64 71 2C 0A 09 09 09 20 27 63 6F 6E
74 72 6F 6C 27 20 20 3D 3E 20 5C 26 63 6F 6E 74 72 6F 6C 5F 70 64 71 20
7D 20 7D 3B 0A 0A 69 66 20 28 21 28 64 65 66 69 6E 65 64 28 24 69 6E 5F
63 6F 6E 66 69 67 2D 3E 7B 27 71 75 65 75 65 27 7D 29 29 29 20 7B 0A 20
20 20 20 23 20 4E 6F 20 6A 6F 62 20 68 61 6E 64 6C 69 6E 67 20 77 69 74
68 6F 75 74 20 6B 6E 6F 77 69 6E 67 20 74 68 65 20 6E 61 6D 65 20 6F 66
20 74 68 65 20 71 75 65 75 65 0A 20 20 20 20 23 20 50 52 49 4E 54 45 52
20 65 6E 76 69 72 6F 6E 6D 65 6E 74 20 76 61 72 69 61 62 6C 65 0A 20 20
20 20 69 66 20 28 64 65 66 69 6E 65 64 28 24 6F 70 74 5F 64 29 29 20 7B
0A 09 24 69 6E 5F 63 6F 6E 66 69 67 2D 3E 7B 27 71 75 65 75 65 27 7D 20
3D 20 24 6F 70 74 5F 64 3B 0A 20 20 20 20 7D 20 65 6C 73 69 66 20 28 64
65 66 69 6E 65 64 28 24 45 4E 56 7B 50 52 49 4E 54 45 52 7D 29 29 20 7B
0A 09 24 69 6E 5F 63 6F 6E 66 69 67 2D 3E 7B 27 71 75 65 75 65 27 7D 20
3D 20 24 45 4E 56 7B 50 52 49 4E 54 45 52 7D 3B 0A 20 20 20 20 7D 20 65
6C 73 65 20 7B 0A 09 23 20 55 73 65 20 73 70 6F 6F 6C 65 72 73 20 64 65
66 61 75 6C 74 0A 20 20 20 20 7D 0A 7D 0A 0A 69 66 20 28 21 64 65 66 69
6E 65 64 28 24 69 6E 5F 63 6F 6E 66 69 67 2D 3E 7B 27 73 70 6F 6F 6C 65
72 27 7D 29 29 20 7B 0A 0A 20 20 20 20 23 20 50 65 72 73 6F 6E 61 6C 20
64 65 66 61 75 6C 74 20 73 70 6F 6F 6C 65 72 0A 20 20 20 20 69 66 20 28
28 24 3E 20 21 3D 20 30 29 20 26 26 20 28 2D 66 20 22 24 45 4E 56 7B 27
48 4F 4D 45 27 7D 2F 2E 64 65 66 61 75 6C 74 73 70 6F 6F 6C 65 72 22 29
29 20 7B 0A 09 24 73 20 3D 20 60 63 61 74 20 24 45 4E 56 7B 27 48 4F 4D
45 27 7D 2F 2E 64 65 66 61 75 6C 74 73 70 6F 6F 6C 65 72 60 3B 0A 09 63
68 6F 6D 70 20 24 73 3B 0A 20 20 20 20 7D 0A 20 20 20 20 0A 20 20 20 20
23 20 53 79 73 74 65 6D 20 64 65 66 61 75 6C 74 20 73 70 6F 6F 6C 65 72
0A 20 20 20 20 69 66 20 28 28 21 64 65 66 69 6E 65 64 28 24 73 29 29 20
26 26 20 28 2D 66 20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 66 6F 6F 2D
65 74 63 27 7D 2F 64 65 66 61 75 6C 74 73 70 6F 6F 6C 65 72 22 29 29 20
7B 0A 09 24 73 20 3D 20 60 63 61 74 20 24 73 79 73 64 65 70 73 2D 3E 7B
27 66 6F 6F 2D 65 74 63 27 7D 2F 64 65 66 61 75 6C 74 73 70 6F 6F 6C 65
72 60 3B 0A 09 63 68 6F 6D 70 20 24 73 3B 0A 20 20 20 20 7D 0A 20 20 20
20 0A 20 20 20 20 69 66 20 28 21 64 65 66 69 6E 65 64 28 24 73 29 29 20
7B 0A 09 24 73 20 3D 20 64 65 74 65 63 74 5F 73 70 6F 6F 6C 65 72 28 29
3B 0A 20 20 20 20 7D 0A 0A 20 20 20 20 64 69 65 20 22 55 6E 61 62 6C 65
20 74 6F 20 69 64 65 6E 74 69 66 79 20 73 70 6F 6F 6C 65 72 2C 20 70 6C
65 61 73 65 20 73 70 65 63 69 66 79 20 6F 6E 65 20 77 69 74 68 20 5C 22
2D 73 5C 22 21 5C 6E 22 0A 09 75 6E 6C 65 73 73 20 24 73 3B 0A 0A 20 20
20 20 69 66 20 28 64 65 66 69 6E 65 64 28 24 6F 70 74 5F 69 29 29 20 7B
0A 09 70 72 69 6E 74 20 53 54 44 45 52 52 20 22 59 6F 75 20 61 70 70 65
61 72 20 74 6F 20 62 65 20 75 73 69 6E 67 20 24 73 2E 20 20 43 6F 72 72
65 63 74 3F 20 22 3B 0A 09 6D 79 20 24 79 6E 20 3D 20 3C 53 54 44 49 4E
3E 3B 0A 09 64 69 65 20 22 5C 6E 22 20 69 66 20 28 24 79 6E 20 21 7E 20
6D 21 5E 79 21 69 29 3B 0A 20 20 20 20 7D 0A 0A 20 20 20 20 24 69 6E 5F
63 6F 6E 66 69 67 2D 3E 7B 27 73 70 6F 6F 6C 65 72 27 7D 20 3D 20 24 73
3B 0A 7D 0A 0A 69 66 20 28 64 65 66 69 6E 65 64 28 24 6F 70 74 5F 53 29
29 20 7B 0A 20 20 20 20 69 66 20 28 24 3E 20 3D 3D 20 30 29 20 7B 20 23
20 50 72 6F 67 72 61 6D 20 69 6E 76 6F 6B 65 64 20 61 73 20 22 72 6F 6F
74 22 3F 0A 09 23 20 53 65 74 20 73 79 73 74 65 6D 20 64 65 66 61 75 6C
74 20 73 70 6F 6F 6C 65 72 0A 09 6F 70 65 6E 20 44 45 46 41 55 4C 54 46
49 4C 45 2C 20 22 3E 20 24 73 79 73 64 65 70 73 2D 3E 7B 27 66 6F 6F 2D
65 74 63 27 7D 2F 64 65 66 61 75 6C 74 73 70 6F 6F 6C 65 72 22 20 7C 7C
0A 09 20 20 20 20 64 69 65 20 22 43 61 6E 6E 6F 74 20 77 72 69 74 65 20
24 73 79 73 64 65 70 73 2D 3E 7B 27 66 6F 6F 2D 65 74 63 27 7D 2F 64 65
66 61 75 6C 74 73 70 6F 6F 6C 65 72 21 5C 6E 22 3B 0A 09 70 72 69 6E 74
20 44 45 46 41 55 4C 54 46 49 4C 45 20 22 24 69 6E 5F 63 6F 6E 66 69 67
2D 3E 7B 27 73 70 6F 6F 6C 65 72 27 7D 5C 6E 22 3B 0A 09 63 6C 6F 73 65
20 44 45 46 41 55 4C 54 46 49 4C 45 3B 0A 09 65 78 69 74 20 30 3B 0A 20
20 20 20 7D 20 65 6C 73 65 20 7B 0A 09 23 20 53 65 74 20 70 65 72 73 6F
6E 61 6C 20 64 65 66 61 75 6C 74 20 73 70 6F 6F 6C 65 72 0A 09 6F 70 65
6E 20 44 45 46 41 55 4C 54 46 49 4C 45 2C 20 22 3E 20 24 45 4E 56 7B 27
48 4F 4D 45 27 7D 2F 2E 64 65 66 61 75 6C 74 73 70 6F 6F 6C 65 72 22 20
7C 7C 0A 09 20 20 20 20 64 69 65 20 22 43 61 6E 6E 6F 74 20 77 72 69 74
65 20 24 45 4E 56 7B 27 48 4F 4D 45 27 7D 2F 2E 64 65 66 61 75 6C 74 73
70 6F 6F 6C 65 72 21 5C 6E 22 3B 0A 09 70 72 69 6E 74 20 44 45 46 41 55
4C 54 46 49 4C 45 20 22 24 69 6E 5F 63 6F 6E 66 69 67 2D 3E 7B 27 73 70
6F 6F 6C 65 72 27 7D 5C 6E 22 3B 0A 09 63 6C 6F 73 65 20 44 45 46 41 55
4C 54 46 49 4C 45 3B 0A 09 65 78 69 74 20 30 3B 0A 20 20 20 20 7D 0A 7D
0A 0A 23 20 45 78 63 65 70 74 69 6F 6E 2E 2E 2E 0A 68 65 6C 70 5F 6F 70
74 69 6F 6E 73 28 24 69 6E 5F 63 6F 6E 66 69 67 29 20 69 66 20 28 24 6F
70 74 5F 68 29 3B 0A 0A 23 20 43 61 6C 6C 20 70 72 6F 70 65 72 20 70 72
6F 63 0A 65 78 69 74 20 26 7B 24 70 72 6F 63 73 2D 3E 7B 24 69 6E 5F 63
6F 6E 66 69 67 2D 3E 7B 27 73 70 6F 6F 6C 65 72 27 7D 7D 7B 24 61 63 74
69 6F 6E 7D 7D 28 24 69 6E 5F 63 6F 6E 66 69 67 29 3B 0A 0A 23 23 23 20
50 72 69 6E 74 69 6E 67 2F 4A 6F 62 20 6D 61 6E 69 70 75 6C 61 74 69 6F
6E 20 66 75 6E 63 74 69 6F 6E 73 20 66 6F 72 20 4C 50 44 0A 0A 73 75 62
20 70 72 69 6E 74 5F 6C 70 64 20 7B 0A 20 20 20 20 6D 79 20 28 24 63 6F
6E 66 69 67 29 20 3D 20 24 5F 5B 30 5D 3B 0A 0A 20 20 20 20 23 73 79 73
64 65 70 73 2D 3E 7B 27 6C 70 64 2D 6C 70 72 27 7D 20 3D 20 22 2F 68 6F
6D 65 2F 74 65 73 74 2F 6C 70 72 2D 30 2E 37 31 2F 6C 70 72 2F 6C 70 72
22 3B 0A 0A 20 20 20 20 23 20 41 75 74 6F 2D 64 65 74 65 63 74 20 77 68
65 74 68 65 72 20 74 68 65 20 22 6C 70 72 22 20 65 78 65 63 75 74 61 62
6C 65 20 69 73 20 74 68 65 20 56 41 2D 4C 69 6E 75 78 20 76 65 72 73 69
6F 6E 20 6F 72 20 6E 6F 74 0A 20 20 20 20 6D 79 20 24 76 61 6C 69 6E 75
78 6C 70 72 20 3D 20 0A 09 21 28 73 79 73 74 65 6D 20 22 73 74 72 69 6E
67 73 20 24 73 79 73 64 65 70 73 2D 3E 7B 27 6C 70 64 2D 6C 70 72 27 7D
20 7C 20 67 72 65 70 20 6F 70 74 69 6F 6E 20 3E 20 2F 64 65 76 2F 6E 75
6C 6C 22 29 3B 0A 0A 20 20 20 20 23 20 50 72 69 6E 74 69 6E 67 20 63 6F
6D 6D 61 6E 64 0A 20 20 20 20 6D 79 20 24 63 6F 6D 6D 61 6E 64 6C 69 6E
65 20 3D 20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 6C 70 64 2D 6C 70 72
27 7D 22 3B 0A 0A 20 20 20 20 23 20 41 64 64 20 74 68 65 20 70 72 69 6E
74 65 72 20 71 75 65 75 65 20 61 72 67 75 6D 65 6E 74 0A 20 20 20 20 69
66 20 28 64 65 66 69 6E 65 64 28 24 63 6F 6E 66 69 67 2D 3E 7B 27 71 75
65 75 65 27 7D 29 29 20 7B 0A 09 24 63 6F 6D 6D 61 6E 64 6C 69 6E 65 20
2E 3D 20 22 20 2D 50 20 24 63 6F 6E 66 69 67 2D 3E 7B 27 71 75 65 75 65
27 7D 22 3B 0A 20 20 20 20 7D 0A 0A 20 20 20 20 23 20 41 64 64 20 74 68
65 20 64 72 69 76 65 72 2D 73 70 65 63 69 66 69 63 20 6F 70 74 69 6F 6E
73 20 73 75 70 70 6C 69 65 64 20 62 79 20 74 68 65 20 75 73 65 72 2C 20
69 66 20 61 6E 79 0A 20 20 20 20 23 20 46 6F 72 20 74 68 65 20 56 41 2D
4C 69 6E 75 78 20 69 6D 70 6C 65 6D 65 6E 74 61 74 69 6F 6E 20 6F 66 20
22 6C 70 72 22 20 28 67 6E 75 6C 70 72 29 20 6F 70 74 69 6F 6E 73 20 61
72 65 20 70 61 73 73 65 64 0A 20 20 20 20 23 20 77 69 74 68 20 27 2D 6F
20 6F 70 74 69 6F 6E 3D 76 61 6C 75 65 20 2D 6F 20 73 77 69 74 63 68 27
2C 20 66 6F 72 20 74 68 65 20 42 53 44 20 69 6D 70 6C 65 6D 65 6E 74 61
74 69 6F 6E 20 74 68 65 79 20 61 72 65 0A 20 20 20 20 23 20 70 61 73 73
65 20 77 69 74 68 20 27 2D 4A 22 6F 70 74 69 6F 6E 3D 76 61 6C 75 65 20
73 77 69 74 63 68 22 27 2E 0A 20 20 20 20 69 66 20 28 24 76 61 6C 69 6E
75 78 6C 70 72 29 20 7B 0A 09 23 20 56 41 2D 4C 69 6E 75 78 2F 67 6E 75
6C 70 72 0A 09 69 66 20 28 24 23 7B 24 63 6F 6E 66 69 67 2D 3E 7B 27 6F
70 74 69 6F 6E 73 27 7D 7D 20 3E 3D 20 30 29 20 7B 0A 09 20 20 20 20 66
6F 72 20 28 40 7B 24 63 6F 6E 66 69 67 2D 3E 7B 27 6F 70 74 69 6F 6E 73
27 7D 7D 29 20 7B 0A 09 09 24 63 6F 6D 6D 61 6E 64 6C 69 6E 65 20 2E 3D
20 22 20 2D 6F 20 24 5F 22 3B 0A 09 20 20 20 20 7D 0A 09 7D 0A 20 20 20
20 7D 20 65 6C 73 65 20 7B 0A 09 23 20 42 53 44 0A 09 69 66 20 28 24 23
7B 24 63 6F 6E 66 69 67 2D 3E 7B 27 6F 70 74 69 6F 6E 73 27 7D 7D 20 3E
3D 20 30 29 20 7B 0A 09 20 20 20 20 24 63 6F 6D 6D 61 6E 64 6C 69 6E 65
20 2E 3D 20 22 20 2D 4A 5C 22 22 3B 0A 09 20 20 20 20 66 6F 72 20 28 40
7B 24 63 6F 6E 66 69 67 2D 3E 7B 27 6F 70 74 69 6F 6E 73 27 7D 7D 29 20
7B 0A 09 09 24 63 6F 6D 6D 61 6E 64 6C 69 6E 65 20 2E 3D 20 22 24 5F 20
22 3B 0A 09 20 20 20 20 7D 0A 09 20 20 20 20 24 63 6F 6D 6D 61 6E 64 6C
69 6E 65 20 2E 3D 20 22 5C 22 22 3B 0A 09 7D 0A 20 20 20 20 7D 0A 0A 20
20 20 20 23 20 41 64 64 20 74 68 65 20 72 65 6D 61 69 6E 69 6E 67 20 63
6F 6D 6D 61 6E 64 20 6C 69 6E 65 20 61 72 67 75 6D 65 6E 74 73 2C 20 74
68 65 79 20 61 72 65 20 74 68 65 20 6E 61 6D 65 73 20 6F 66 0A 20 20 20
20 23 20 74 68 65 20 66 69 6C 65 73 20 74 6F 20 70 72 69 6E 74 20 61 6E
64 20 61 6C 73 6F 20 73 70 6F 6F 6C 65 72 2D 73 70 65 63 69 66 69 63 20
6F 70 74 69 6F 6E 73 0A 20 20 20 20 24 63 6F 6D 6D 61 6E 64 6C 69 6E 65
20 2E 3D 20 22 20 40 41 52 47 56 22 3B 0A 0A 20 20 20 20 23 20 44 6F 20
69 74 21 0A 0A 20 20 20 20 23 70 72 69 6E 74 20 22 24 63 6F 6D 6D 61 6E
64 6C 69 6E 65 5C 6E 22 3B 0A 20 20 20 20 72 65 74 75 72 6E 20 28 73 79
73 74 65 6D 20 24 63 6F 6D 6D 61 6E 64 6C 69 6E 65 29 20 3E 3E 20 38 3B
0A 0A 7D 0A 0A 73 75 62 20 71 75 65 72 79 5F 6C 70 64 20 7B 0A 20 20 20
20 6D 79 20 28 24 63 6F 6E 66 69 67 29 20 3D 20 24 5F 5B 30 5D 3B 0A 0A
20 20 20 20 23 20 73 74 61 6E 64 61 72 64 20 6C 70 71 2C 20 65 6D 75 6C
61 74 65 20 2D 61 20 6F 66 20 6C 70 71 2D 63 75 70 73 0A 20 20 20 20 23
20 52 65 61 64 20 61 64 64 69 74 69 6F 6E 61 6C 20 6F 70 74 69 6F 6E 73
0A 20 20 20 20 47 65 74 4F 70 74 69 6F 6E 73 28 22 61 22 20 20 20 3D 3E
20 5C 24 6F 70 74 5F 61 29 3B 20 20 20 20 20 20 20 20 23 20 4C 69 73 74
20 6A 6F 62 73 20 6F 6E 20 61 6C 6C 20 70 72 69 6E 74 65 72 73 0A 20 20
20 20 0A 20 20 20 20 69 66 20 28 64 65 66 69 6E 65 64 28 24 6F 70 74 5F
61 29 29 20 7B 0A 09 23 20 47 65 74 20 61 6C 6C 20 70 72 69 6E 74 65 72
20 71 75 65 75 65 73 0A 09 6F 70 65 6E 20 51 55 45 55 45 4C 49 53 54 2C
20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 6C 70 64 2D 6C 70 63 27 7D 20
73 74 61 74 75 73 20 32 3E 26 31 20 7C 20 67 72 65 70 20 5C 22 3A 5C 24
5C 22 20 7C 20 22 3B 0A 09 6D 79 20 40 71 75 65 75 65 6C 69 73 74 20 3D
20 3C 51 55 45 55 45 4C 49 53 54 3E 3B 0A 09 63 6C 6F 73 65 20 51 55 45
55 45 4C 49 53 54 3B 0A 09 23 20 4C 69 73 74 20 74 68 65 20 6A 6F 62 73
20 6F 6E 20 61 6C 6C 20 74 68 65 20 71 75 65 75 65 73 0A 09 66 6F 72 20
28 40 71 75 65 75 65 6C 69 73 74 29 20 7B 0A 09 20 20 20 20 6D 79 20 24
71 75 65 75 65 20 3D 20 24 5F 3B 0A 09 20 20 20 20 63 68 6F 6D 70 20 24
71 75 65 75 65 3B 0A 09 20 20 20 20 70 72 69 6E 74 20 22 24 71 75 65 75
65 5C 6E 22 3B 0A 09 20 20 20 20 24 71 75 65 75 65 20 3D 7E 20 73 2F 3A
24 2F 2F 3B 0A 09 20 20 20 20 6D 79 20 24 72 65 73 75 6C 74 20 3D 20 28
73 79 73 74 65 6D 20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 6C 70 64 2D
6C 70 71 27 7D 20 2D 50 20 24 71 75 65 75 65 20 40 41 52 47 56 22 29 20
3E 3E 20 38 3B 0A 09 20 20 20 20 69 66 20 28 24 72 65 73 75 6C 74 20 21
3D 20 30 29 20 7B 72 65 74 75 72 6E 20 24 72 65 73 75 6C 74 7D 3B 0A 09
7D 0A 20 20 20 20 7D 20 65 6C 73 65 20 7B 0A 09 23 20 4C 69 73 74 20 74
68 65 20 6A 6F 62 73 20 6F 6E 20 74 68 65 20 73 70 65 63 69 66 69 65 64
20 71 75 65 75 65 0A 09 6D 79 20 24 71 75 65 75 65 20 3D 20 22 22 3B 0A
09 69 66 20 28 64 65 66 69 6E 65 64 28 24 63 6F 6E 66 69 67 2D 3E 7B 27
71 75 65 75 65 27 7D 29 29 20 7B 0A 09 20 20 20 20 24 71 75 65 75 65 20
3D 20 22 20 2D 50 20 24 63 6F 6E 66 69 67 2D 3E 7B 27 71 75 65 75 65 27
7D 22 3B 0A 09 7D 0A 09 72 65 74 75 72 6E 20 28 73 79 73 74 65 6D 20 22
24 73 79 73 64 65 70 73 2D 3E 7B 27 6C 70 64 2D 6C 70 71 27 7D 24 71 75
65 75 65 20 40 41 52 47 56 22 29 20 3E 3E 20 38 3B 0A 20 20 20 20 7D 0A
7D 0A 0A 73 75 62 20 72 65 6D 6F 76 65 5F 6C 70 64 20 7B 0A 20 20 20 20
6D 79 20 28 24 63 6F 6E 66 69 67 29 20 3D 20 24 5F 5B 30 5D 3B 0A 20 20
20 20 0A 20 20 20 20 23 20 52 65 6D 6F 76 65 20 61 20 6A 6F 62 20 77 69
74 68 20 74 68 65 20 73 74 61 6E 64 61 72 64 20 22 6C 70 72 6D 22 20 63
6F 6D 6D 61 6E 64 0A 0A 20 20 20 20 23 20 52 65 6D 6F 76 69 6E 67 20 63
6F 6D 6D 61 6E 64 0A 20 20 20 20 6D 79 20 24 63 6F 6D 6D 61 6E 64 6C 69
6E 65 20 3D 20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 6C 70 64 2D 6C 70
72 6D 27 7D 22 3B 0A 0A 20 20 20 20 23 20 41 64 64 20 74 68 65 20 70 72
69 6E 74 65 72 20 71 75 65 75 65 20 61 72 67 75 6D 65 6E 74 0A 20 20 20
20 69 66 20 28 64 65 66 69 6E 65 64 28 24 63 6F 6E 66 69 67 2D 3E 7B 27
71 75 65 75 65 27 7D 29 29 20 7B 0A 09 24 63 6F 6D 6D 61 6E 64 6C 69 6E
65 20 2E 3D 20 22 20 2D 50 20 24 63 6F 6E 66 69 67 2D 3E 7B 27 71 75 65
75 65 27 7D 22 3B 0A 20 20 20 20 7D 0A 0A 20 20 20 20 23 20 41 64 64 20
74 68 65 20 72 65 6D 61 69 6E 69 6E 67 20 63 6F 6D 6D 61 6E 64 20 6C 69
6E 65 20 61 72 67 75 6D 65 6E 74 73 2C 20 74 68 65 79 20 61 72 65 20 74
68 65 20 6E 75 6D 62 65 72 73 0A 20 20 20 20 23 20 6F 66 20 74 68 65 20
6A 6F 62 73 20 74 6F 20 6B 69 6C 6C 2C 20 74 68 65 20 75 73 65 72 73 20
77 68 6F 73 65 20 6A 6F 73 20 74 6F 20 72 65 6D 6F 76 65 20 61 6E 64 20
61 6C 73 6F 0A 20 20 20 20 23 20 73 70 6F 6F 6C 65 72 2D 73 70 65 63 69
66 69 63 20 6F 70 74 69 6F 6E 73 0A 0A 20 20 20 20 24 63 6F 6D 6D 61 6E
64 6C 69 6E 65 20 2E 3D 20 22 20 40 41 52 47 56 22 3B 0A 0A 20 20 20 20
23 20 44 6F 20 69 74 21 0A 0A 20 20 20 20 23 70 72 69 6E 74 20 22 24 63
6F 6D 6D 61 6E 64 6C 69 6E 65 5C 6E 22 3B 0A 20 20 20 20 72 65 74 75 72
6E 20 28 73 79 73 74 65 6D 20 24 63 6F 6D 6D 61 6E 64 6C 69 6E 65 29 20
3E 3E 20 38 3B 0A 0A 7D 0A 0A 73 75 62 20 63 6F 6E 74 72 6F 6C 5F 6C 70
64 20 7B 0A 20 20 20 20 6D 79 20 28 24 63 6F 6E 66 69 67 29 20 3D 20 24
5F 5B 30 5D 3B 0A 20 20 20 20 0A 20 20 20 20 23 20 43 6F 6E 74 72 6F 6C
20 74 68 65 20 70 72 69 6E 74 69 6E 67 20 73 79 73 74 65 6D 20 77 69 74
68 20 74 68 65 20 73 74 61 6E 64 61 72 64 20 22 6C 70 63 22 20 63 6F 6D
6D 61 6E 64 0A 0A 20 20 20 20 23 20 43 6F 6E 74 72 6F 6C 20 63 6F 6D 6D
61 6E 64 0A 20 20 20 20 6D 79 20 24 63 6F 6D 6D 61 6E 64 6C 69 6E 65 20
3D 20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 6C 70 64 2D 6C 70 63 27 7D
22 3B 0A 0A 20 20 20 20 23 20 41 64 64 20 74 68 65 20 72 65 6D 61 69 6E
69 6E 67 20 63 6F 6D 6D 61 6E 64 20 6C 69 6E 65 20 61 72 67 75 6D 65 6E
74 73 2C 20 74 68 65 79 20 61 72 65 20 74 68 65 20 63 6F 6E 74 72 6F 6C
20 63 6F 6D 6D 61 6E 64 0A 20 20 20 20 23 20 77 69 74 68 20 69 74 73 20
61 72 67 75 6D 65 6E 74 73 0A 0A 20 20 20 20 24 63 6F 6D 6D 61 6E 64 6C
69 6E 65 20 2E 3D 20 22 20 40 41 52 47 56 22 3B 0A 0A 20 20 20 20 23 20
44 6F 20 69 74 21 0A 0A 20 20 20 20 23 70 72 69 6E 74 20 22 24 63 6F 6D
6D 61 6E 64 6C 69 6E 65 5C 6E 22 3B 0A 20 20 20 20 72 65 74 75 72 6E 20
28 73 79 73 74 65 6D 20 24 63 6F 6D 6D 61 6E 64 6C 69 6E 65 29 20 3E 3E
20 38 3B 0A 0A 7D 0A 0A 23 23 23 20 50 72 69 6E 74 69 6E 67 2F 4A 6F 62
20 6D 61 6E 69 70 75 6C 61 74 69 6F 6E 20 66 75 6E 63 74 69 6F 6E 73 20
66 6F 72 20 4C 50 52 6E 67 0A 0A 73 75 62 20 70 72 69 6E 74 5F 6C 70 72
6E 67 20 7B 0A 20 20 20 20 6D 79 20 28 24 63 6F 6E 66 69 67 29 20 3D 20
24 5F 5B 30 5D 3B 0A 0A 20 20 20 20 23 20 50 72 69 6E 74 69 6E 67 20 63
6F 6D 6D 61 6E 64 0A 20 20 20 20 6D 79 20 24 63 6F 6D 6D 61 6E 64 6C 69
6E 65 20 3D 20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 6C 70 64 2D 6C 70
72 27 7D 22 3B 0A 0A 20 20 20 20 23 20 41 64 64 20 74 68 65 20 70 72 69
6E 74 65 72 20 71 75 65 75 65 20 61 72 67 75 6D 65 6E 74 0A 20 20 20 20
69 66 20 28 64 65 66 69 6E 65 64 28 24 63 6F 6E 66 69 67 2D 3E 7B 27 71
75 65 75 65 27 7D 29 29 20 7B 0A 09 24 63 6F 6D 6D 61 6E 64 6C 69 6E 65
20 2E 3D 20 22 20 2D 50 20 24 63 6F 6E 66 69 67 2D 3E 7B 27 71 75 65 75
65 27 7D 22 3B 0A 20 20 20 20 7D 0A 0A 20 20 20 20 23 20 41 64 64 20 74
68 65 20 64 72 69 76 65 72 2D 73 70 65 63 69 66 69 63 20 6F 70 74 69 6F
6E 73 20 73 75 70 70 6C 69 65 64 20 62 79 20 74 68 65 20 75 73 65 72 2C
20 69 66 20 61 6E 79 0A 20 20 20 20 69 66 20 28 24 23 7B 24 63 6F 6E 66
69 67 2D 3E 7B 27 6F 70 74 69 6F 6E 73 27 7D 7D 20 3E 3D 20 30 29 20 7B
0A 09 66 6F 72 20 28 40 7B 24 63 6F 6E 66 69 67 2D 3E 7B 27 6F 70 74 69
6F 6E 73 27 7D 7D 29 20 7B 0A 09 20 20 20 20 24 63 6F 6D 6D 61 6E 64 6C
69 6E 65 20 2E 3D 20 22 20 2D 5A 20 24 5F 22 3B 0A 09 7D 0A 20 20 20 20
7D 0A 0A 20 20 20 20 23 20 41 64 64 20 74 68 65 20 72 65 6D 61 69 6E 69
6E 67 20 63 6F 6D 6D 61 6E 64 20 6C 69 6E 65 20 61 72 67 75 6D 65 6E 74
73 2C 20 74 68 65 79 20 61 72 65 20 74 68 65 20 6E 61 6D 65 73 20 6F 66
0A 20 20 20 20 23 20 74 68 65 20 66 69 6C 65 73 20 74 6F 20 70 72 69 6E
74 20 61 6E 64 20 61 6C 73 6F 20 73 70 6F 6F 6C 65 72 2D 73 70 65 63 69
66 69 63 20 6F 70 74 69 6F 6E 73 0A 20 20 20 20 24 63 6F 6D 6D 61 6E 64
6C 69 6E 65 20 2E 3D 20 22 20 40 41 52 47 56 22 3B 0A 0A 20 20 20 20 23
20 44 6F 20 69 74 21 0A 0A 20 20 20 20 23 70 72 69 6E 74 20 22 24 63 6F
6D 6D 61 6E 64 6C 69 6E 65 5C 6E 22 3B 0A 20 20 20 20 72 65 74 75 72 6E
20 28 73 79 73 74 65 6D 20 24 63 6F 6D 6D 61 6E 64 6C 69 6E 65 29 20 3E
3E 20 38 3B 0A 0A 7D 0A 0A 73 75 62 20 71 75 65 72 79 5F 6C 70 72 6E 67
20 7B 0A 20 20 20 20 6D 79 20 28 24 63 6F 6E 66 69 67 29 20 3D 20 24 5F
5B 30 5D 3B 0A 0A 20 20 20 20 23 20 57 65 20 66 69 6C 74 65 72 20 74 68
65 20 6F 75 74 70 75 74 20 6F 66 20 6C 70 71 20 61 6E 64 20 72 65 61 72
72 61 6E 67 65 20 69 74 20 74 6F 20 68 61 76 65 20 74 68 65 20 73 61 6D
65 20 66 6F 72 6D 61 74 0A 20 20 20 20 23 20 61 73 20 6F 66 20 4C 50 44
20 61 6E 64 20 43 55 50 53 2E 0A 0A 20 20 20 20 47 65 74 4F 70 74 69 6F
6E 73 28 22 6C 22 20 20 20 3D 3E 20 5C 24 6F 70 74 5F 6C 29 3B 20 20 20
20 20 20 20 23 20 4C 6F 6E 67 2C 20 6D 6F 72 65 20 76 65 72 62 6F 73 65
20 6F 75 74 70 75 74 0A 0A 20 20 20 20 23 20 4C 69 73 74 20 74 68 65 20
6A 6F 62 73 20 6F 6E 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 71 75
65 75 65 0A 20 20 20 20 6D 79 20 24 71 75 65 75 65 20 3D 20 22 22 3B 0A
20 20 20 20 69 66 20 28 64 65 66 69 6E 65 64 28 24 63 6F 6E 66 69 67 2D
3E 7B 27 71 75 65 75 65 27 7D 29 29 20 7B 0A 09 24 71 75 65 75 65 20 3D
20 22 20 2D 50 20 24 63 6F 6E 66 69 67 2D 3E 7B 27 71 75 65 75 65 27 7D
22 3B 0A 20 20 20 20 7D 0A 20 20 20 20 6F 70 65 6E 20 4C 50 51 4F 55 54
50 55 54 2C 20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 6C 70 64 2D 6C 70
71 27 7D 24 71 75 65 75 65 20 40 41 52 47 56 20 7C 22 20 7C 7C 20 72 65
74 75 72 6E 20 31 3B 0A 20 20 20 20 6D 79 20 40 6C 70 71 6F 75 74 70 75
74 20 3D 20 3C 4C 50 51 4F 55 54 50 55 54 3E 3B 0A 20 20 20 20 63 6C 6F
73 65 20 4C 50 51 4F 55 54 50 55 54 3B 0A 20 20 20 20 23 20 46 69 6C 74
65 72 20 74 68 65 20 6F 75 74 70 75 74 0A 20 20 20 20 66 6F 72 20 24 6C
69 6E 65 20 28 40 6C 70 71 6F 75 74 70 75 74 29 20 7B 0A 09 63 68 6F 6D
70 20 24 6C 69 6E 65 3B 0A 09 69 66 20 28 24 6C 69 6E 65 20 3D 7E 20 6D
21 5E 5C 73 2A 28 5C 53 2B 29 5C 73 2B 28 5B 5E 40 5C 73 5D 2B 29 40 5B
5E 40 5C 2B 5C 73 5D 2B 5C 2B 5B 30 2D 39 5D 2B 5C 73 2B 5C 53 2B 5C 73
2B 28 5B 30 2D 39 5D 2B 29 5C 73 2B 28 5C 53 2B 29 5C 73 2B 28 5B 30 2D
39 5D 2B 29 5C 73 2B 5B 30 2D 39 3A 5D 2B 5C 73 2A 24 21 29 20 7B 0A 09
20 20 20 20 6D 79 20 28 24 72 61 6E 6B 2C 20 24 6F 77 6E 65 72 2C 20 24
6A 6F 62 69 64 2C 20 24 66 69 6C 65 2C 20 24 73 69 7A 65 29 20 3D 20 28
24 31 2C 20 24 32 2C 20 24 33 2C 20 24 34 2C 20 24 35 29 3B 0A 09 20 20
20 20 69 66 20 28 64 65 66 69 6E 65 64 28 24 6F 70 74 5F 6C 29 29 20 7B
0A 09 09 6D 79 20 24 6F 77 6E 65 72 5F 72 61 6E 6B 20 3D 20 22 24 6F 77
6E 65 72 3A 20 24 72 61 6E 6B 22 3B 0A 09 09 69 66 20 28 6C 65 6E 67 74
68 28 24 6F 77 6E 65 72 5F 72 61 6E 6B 29 20 3E 20 34 30 29 20 7B 0A 09
09 20 20 20 20 24 6F 77 6E 65 72 5F 72 61 6E 6B 20 3D 20 73 75 62 73 74
72 28 24 6F 77 6E 65 72 5F 72 61 6E 6B 2C 20 30 2C 20 34 30 29 3B 0A 09
09 7D 0A 09 09 69 66 20 28 6C 65 6E 67 74 68 28 24 66 69 6C 65 29 20 3E
20 34 30 29 20 7B 24 66 69 6C 65 20 3D 20 73 75 62 73 74 72 28 24 66 69
6C 65 2C 20 30 2C 20 34 30 29 3B 7D 0A 09 09 70 72 69 6E 74 20 73 70 72
69 6E 74 66 28 22 5C 6E 25 2D 34 30 73 20 5B 6A 6F 62 20 25 64 5D 5C 6E
5C 74 25 2D 34 30 73 20 25 64 20 62 79 74 65 73 5C 6E 22 2C 0A 09 09 09
20 20 20 20 20 20 24 6F 77 6E 65 72 5F 72 61 6E 6B 2C 20 24 6A 6F 62 69
64 2C 20 24 66 69 6C 65 2C 20 24 73 69 7A 65 29 3B 0A 09 20 20 20 20 7D
20 65 6C 73 65 20 7B 0A 09 09 69 66 20 28 6C 65 6E 67 74 68 28 24 72 61
6E 6B 29 20 3E 20 36 29 20 7B 24 72 61 6E 6B 20 3D 20 73 75 62 73 74 72
28 24 72 61 6E 6B 2C 20 30 2C 20 36 29 7D 3B 0A 09 09 69 66 20 28 6C 65
6E 67 74 68 28 24 6F 77 6E 65 72 29 20 3E 20 38 29 20 7B 24 6F 77 6E 65
72 20 3D 20 73 75 62 73 74 72 28 24 6F 77 6E 65 72 2C 20 30 2C 20 38 29
7D 3B 0A 09 09 69 66 20 28 6C 65 6E 67 74 68 28 24 66 69 6C 65 29 20 3E
20 33 37 29 20 7B 24 66 69 6C 65 20 3D 20 73 75 62 73 74 72 28 24 66 69
6C 65 2C 20 30 2C 20 33 37 29 7D 3B 0A 09 09 70 72 69 6E 74 20 73 70 72
69 6E 74 66 28 22 25 2D 36 73 20 25 2D 38 73 20 25 20 36 64 20 25 2D 33
37 73 20 25 64 20 62 79 74 65 73 5C 6E 22 2C 0A 09 09 09 20 20 20 20 20
20 24 72 61 6E 6B 2C 20 24 6F 77 6E 65 72 2C 20 24 6A 6F 62 69 64 2C 20
24 66 69 6C 65 2C 20 24 73 69 7A 65 29 3B 0A 09 20 20 20 20 7D 0A 09 7D
20 65 6C 73 69 66 20 28 24 6C 69 6E 65 20 3D 7E 20 6D 21 5C 73 2A 52 61
6E 6B 5C 73 2B 4F 77 6E 65 72 21 29 20 7B 0A 09 20 20 20 20 69 66 20 28
21 64 65 66 69 6E 65 64 28 24 6F 70 74 5F 6C 29 29 20 7B 0A 09 09 70 72
69 6E 74 20 22 52 61 6E 6B 20 20 20 4F 77 6E 65 72 20 20 20 20 20 20 20
4A 6F 62 20 46 69 6C 65 28 73 29 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 6F 74 61 6C 20
53 69 7A 65 5C 6E 22 3B 0A 09 20 20 20 20 7D 0A 09 7D 20 65 6C 73 65 20
7B 0A 09 20 20 20 20 70 72 69 6E 74 28 22 24 6C 69 6E 65 5C 6E 22 29 3B
0A 09 7D 0A 20 20 20 20 7D 0A 7D 0A 0A 73 75 62 20 72 65 6D 6F 76 65 5F
6C 70 72 6E 67 20 7B 0A 20 20 20 20 6D 79 20 28 24 63 6F 6E 66 69 67 29
20 3D 20 24 5F 5B 30 5D 3B 0A 20 20 20 20 0A 20 20 20 20 23 20 52 65 6D
6F 76 65 20 61 20 6A 6F 62 20 77 69 74 68 20 74 68 65 20 73 74 61 6E 64
61 72 64 20 22 6C 70 72 6D 22 20 63 6F 6D 6D 61 6E 64 20 61 6E 64 20 65
6D 75 6C 61 74 65 20 74 68 65 20 22 2D 22 0A 20 20 20 20 23 20 6F 70 74
69 6F 6E 20 6F 66 20 74 68 65 20 6C 70 72 6D 20 63 6F 6D 6D 61 6E 64 20
6F 66 20 42 53 44 20 4C 50 44 0A 0A 20 20 20 20 23 20 52 65 6D 6F 76 69
6E 67 20 63 6F 6D 6D 61 6E 64 0A 20 20 20 20 6D 79 20 24 63 6F 6D 6D 61
6E 64 6C 69 6E 65 20 3D 20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 6C 70
64 2D 6C 70 72 6D 27 7D 22 3B 0A 0A 20 20 20 20 23 20 41 64 64 20 74 68
65 20 70 72 69 6E 74 65 72 20 71 75 65 75 65 20 61 72 67 75 6D 65 6E 74
0A 20 20 20 20 69 66 20 28 64 65 66 69 6E 65 64 28 24 63 6F 6E 66 69 67
2D 3E 7B 27 71 75 65 75 65 27 7D 29 29 20 7B 0A 09 24 63 6F 6D 6D 61 6E
64 6C 69 6E 65 20 2E 3D 20 22 20 2D 50 20 24 63 6F 6E 66 69 67 2D 3E 7B
27 71 75 65 75 65 27 7D 22 3B 0A 20 20 20 20 7D 0A 0A 20 20 20 20 23 20
52 65 70 6C 61 63 65 20 74 68 65 20 22 2D 22 20 6F 70 74 69 6F 6E 20 62
79 20 74 68 65 20 22 61 6C 6C 22 20 6F 70 74 69 6F 6E 0A 20 20 20 20 6D
79 20 24 61 6C 6C 6A 6F 62 73 20 3D 20 22 22 3B 0A 20 20 20 20 66 6F 72
20 28 24 69 20 3D 20 30 3B 20 28 24 69 20 3C 3D 20 24 23 41 52 47 56 29
3B 20 24 69 2B 2B 29 20 7B 0A 09 69 66 20 28 24 41 52 47 56 5B 24 69 5D
20 3D 7E 20 6D 21 5E 5C 73 2A 5C 2D 5C 73 2A 24 21 29 20 7B 0A 09 20 20
20 20 24 61 6C 6C 6A 6F 62 73 20 3D 20 22 20 61 6C 6C 22 3B 0A 09 20 20
20 20 73 70 6C 69 63 65 28 40 41 52 47 56 2C 24 69 2C 31 29 3B 0A 09 20
20 20 20 24 69 2D 2D 3B 0A 09 7D 0A 20 20 20 20 7D 0A 20 20 20 20 24 63
6F 6D 6D 61 6E 64 6C 69 6E 65 20 2E 3D 20 24 61 6C 6C 6A 6F 62 73 3B 0A
0A 20 20 20 20 23 20 41 64 64 20 74 68 65 20 72 65 6D 61 69 6E 69 6E 67
20 63 6F 6D 6D 61 6E 64 20 6C 69 6E 65 20 61 72 67 75 6D 65 6E 74 73 2C
20 74 68 65 79 20 61 72 65 20 74 68 65 20 6E 75 6D 62 65 72 73 0A 20 20
20 20 23 20 6F 66 20 74 68 65 20 6A 6F 62 73 20 74 6F 20 6B 69 6C 6C 2C
20 74 68 65 20 75 73 65 72 73 20 77 68 6F 73 65 20 6A 6F 73 20 74 6F 20
72 65 6D 6F 76 65 20 61 6E 64 20 61 6C 73 6F 0A 20 20 20 20 23 20 73 70
6F 6F 6C 65 72 2D 73 70 65 63 69 66 69 63 20 6F 70 74 69 6F 6E 73 0A 0A
20 20 20 20 24 63 6F 6D 6D 61 6E 64 6C 69 6E 65 20 2E 3D 20 22 20 40 41
52 47 56 22 3B 0A 0A 20 20 20 20 23 20 44 6F 20 69 74 21 0A 0A 20 20 20
20 23 70 72 69 6E 74 20 22 24 63 6F 6D 6D 61 6E 64 6C 69 6E 65 5C 6E 22
3B 0A 20 20 20 20 72 65 74 75 72 6E 20 28 73 79 73 74 65 6D 20 24 63 6F
6D 6D 61 6E 64 6C 69 6E 65 29 20 3E 3E 20 38 3B 0A 0A 7D 0A 0A 73 75 62
20 63 6F 6E 74 72 6F 6C 5F 6C 70 72 6E 67 20 7B 0A 0A 20 20 20 20 23 20
54 68 65 20 6C 70 63 20 63 6F 6D 6D 61 6E 64 20 6F 66 20 6C 70 72 6E 67
20 69 73 20 63 6F 6D 70 61 74 69 62 6C 65 20 74 6F 20 74 68 65 20 6F 6E
65 20 6F 66 20 4C 50 44 2C 20 69 74 20 68 61 73 20 6F 6E 6C 79 0A 20 20
20 20 23 20 6D 61 6E 79 20 6D 6F 72 65 20 63 6F 6D 6D 61 6E 64 73 2E 20
53 6F 20 77 65 20 75 73 65 20 74 68 65 20 22 63 6F 6E 74 72 6F 6C 5F 6C
70 64 22 20 66 75 6E 63 74 69 6F 6E 20 61 6C 73 6F 20 66 6F 72 0A 20 20
20 20 23 20 6C 70 72 6E 67 2E 0A 0A 7D 0A 0A 23 23 23 20 50 72 69 6E 74
69 6E 67 2F 4A 6F 62 20 6D 61 6E 69 70 75 6C 61 74 69 6F 6E 20 66 75 6E
63 74 69 6F 6E 73 20 66 6F 72 20 43 55 50 53 0A 0A 73 75 62 20 70 72 69
6E 74 5F 63 75 70 73 20 7B 0A 20 20 20 20 6D 79 20 28 24 63 6F 6E 66 69
67 29 20 3D 20 24 5F 5B 30 5D 3B 0A 0A 20 20 20 20 23 20 50 72 69 6E 74
69 6E 67 20 63 6F 6D 6D 61 6E 64 0A 20 20 20 20 6D 79 20 24 63 6F 6D 6D
61 6E 64 6C 69 6E 65 20 3D 20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 63
75 70 73 2D 6C 70 72 27 7D 22 3B 0A 0A 20 20 20 20 23 20 41 64 64 20 74
68 65 20 70 72 69 6E 74 65 72 20 71 75 65 75 65 20 61 72 67 75 6D 65 6E
74 0A 20 20 20 20 69 66 20 28 64 65 66 69 6E 65 64 28 24 63 6F 6E 66 69
67 2D 3E 7B 27 71 75 65 75 65 27 7D 29 29 20 7B 0A 09 24 63 6F 6D 6D 61
6E 64 6C 69 6E 65 20 2E 3D 20 22 20 2D 50 20 24 63 6F 6E 66 69 67 2D 3E
7B 27 71 75 65 75 65 27 7D 22 3B 0A 20 20 20 20 7D 0A 0A 20 20 20 20 23
20 41 64 64 20 74 68 65 20 64 72 69 76 65 72 2D 73 70 65 63 69 66 69 63
20 6F 70 74 69 6F 6E 73 20 73 75 70 70 6C 69 65 64 20 62 79 20 74 68 65
20 75 73 65 72 2C 20 69 66 20 61 6E 79 0A 20 20 20 20 69 66 20 28 24 23
7B 24 63 6F 6E 66 69 67 2D 3E 7B 27 6F 70 74 69 6F 6E 73 27 7D 7D 20 3E
3D 20 30 29 20 7B 0A 09 66 6F 72 20 28 40 7B 24 63 6F 6E 66 69 67 2D 3E
7B 27 6F 70 74 69 6F 6E 73 27 7D 7D 29 20 7B 0A 09 20 20 20 20 24 63 6F
6D 6D 61 6E 64 6C 69 6E 65 20 2E 3D 20 22 20 2D 6F 20 24 5F 22 3B 0A 09
7D 0A 20 20 20 20 7D 0A 0A 20 20 20 20 23 20 41 64 64 20 74 68 65 20 72
65 6D 61 69 6E 69 6E 67 20 63 6F 6D 6D 61 6E 64 20 6C 69 6E 65 20 61 72
67 75 6D 65 6E 74 73 2C 20 74 68 65 79 20 61 72 65 20 74 68 65 20 6E 61
6D 65 73 20 6F 66 0A 20 20 20 20 23 20 74 68 65 20 66 69 6C 65 73 20 74
6F 20 70 72 69 6E 74 20 61 6E 64 20 61 6C 73 6F 20 73 70 6F 6F 6C 65 72
2D 73 70 65 63 69 66 69 63 20 6F 70 74 69 6F 6E 73 0A 20 20 20 20 24 63
6F 6D 6D 61 6E 64 6C 69 6E 65 20 2E 3D 20 22 20 40 41 52 47 56 22 3B 0A
0A 20 20 20 20 23 20 44 6F 20 69 74 21 0A 0A 20 20 20 20 23 70 72 69 6E
74 20 22 24 63 6F 6D 6D 61 6E 64 6C 69 6E 65 5C 6E 22 3B 0A 20 20 20 20
72 65 74 75 72 6E 20 28 73 79 73 74 65 6D 20 24 63 6F 6D 6D 61 6E 64 6C
69 6E 65 29 20 3E 3E 20 38 3B 0A 0A 7D 0A 0A 73 75 62 20 71 75 65 72 79
5F 63 75 70 73 20 7B 0A 20 20 20 20 6D 79 20 28 24 63 6F 6E 66 69 67 29
20 3D 20 24 5F 5B 30 5D 3B 0A 0A 20 20 20 20 23 20 4C 69 73 74 20 74 68
65 20 6A 6F 62 73 20 6F 6E 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20
71 75 65 75 65 0A 20 20 20 20 6D 79 20 24 71 75 65 75 65 20 3D 20 22 22
3B 0A 20 20 20 20 69 66 20 28 64 65 66 69 6E 65 64 28 24 63 6F 6E 66 69
67 2D 3E 7B 27 71 75 65 75 65 27 7D 29 29 20 7B 0A 09 24 71 75 65 75 65
20 3D 20 22 20 2D 50 20 24 63 6F 6E 66 69 67 2D 3E 7B 27 71 75 65 75 65
27 7D 22 3B 0A 20 20 20 20 7D 0A 20 20 20 20 72 65 74 75 72 6E 20 28 73
79 73 74 65 6D 20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 63 75 70 73 2D
6C 70 71 27 7D 24 71 75 65 75 65 20 40 41 52 47 56 22 29 20 3E 3E 20 38
3B 0A 0A 7D 0A 0A 73 75 62 20 72 65 6D 6F 76 65 5F 63 75 70 73 20 7B 0A
20 20 20 20 6D 79 20 28 24 63 6F 6E 66 69 67 29 20 3D 20 24 5F 5B 30 5D
3B 0A 20 20 20 20 0A 20 20 20 20 23 20 52 65 6D 6F 76 65 20 61 20 6A 6F
62 20 77 69 74 68 20 74 68 65 20 73 74 61 6E 64 61 72 64 20 22 6C 70 72
6D 22 20 63 6F 6D 6D 61 6E 64 0A 0A 20 20 20 20 23 20 52 65 6D 6F 76 69
6E 67 20 63 6F 6D 6D 61 6E 64 0A 20 20 20 20 6D 79 20 24 63 6F 6D 6D 61
6E 64 6C 69 6E 65 20 3D 20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 63 75
70 73 2D 6C 70 72 6D 27 7D 22 3B 0A 0A 20 20 20 20 23 20 41 64 64 20 74
68 65 20 70 72 69 6E 74 65 72 20 71 75 65 75 65 20 61 72 67 75 6D 65 6E
74 0A 20 20 20 20 69 66 20 28 64 65 66 69 6E 65 64 28 24 63 6F 6E 66 69
67 2D 3E 7B 27 71 75 65 75 65 27 7D 29 29 20 7B 0A 09 24 63 6F 6D 6D 61
6E 64 6C 69 6E 65 20 2E 3D 20 22 20 2D 50 20 24 63 6F 6E 66 69 67 2D 3E
7B 27 71 75 65 75 65 27 7D 22 3B 0A 20 20 20 20 7D 0A 0A 20 20 20 20 23
20 41 64 64 20 74 68 65 20 72 65 6D 61 69 6E 69 6E 67 20 63 6F 6D 6D 61
6E 64 20 6C 69 6E 65 20 61 72 67 75 6D 65 6E 74 73 2C 20 74 68 65 79 20
61 72 65 20 74 68 65 20 6E 75 6D 62 65 72 73 0A 20 20 20 20 23 20 6F 66
20 74 68 65 20 6A 6F 62 73 20 74 6F 20 6B 69 6C 6C 2C 20 74 68 65 20 75
73 65 72 73 20 77 68 6F 73 65 20 6A 6F 73 20 74 6F 20 72 65 6D 6F 76 65
20 61 6E 64 20 61 6C 73 6F 0A 20 20 20 20 23 20 73 70 6F 6F 6C 65 72 2D
73 70 65 63 69 66 69 63 20 6F 70 74 69 6F 6E 73 0A 0A 20 20 20 20 24 63
6F 6D 6D 61 6E 64 6C 69 6E 65 20 2E 3D 20 22 20 40 41 52 47 56 22 3B 0A
0A 20 20 20 20 23 20 44 6F 20 69 74 21 0A 0A 20 20 20 20 23 70 72 69 6E
74 20 22 24 63 6F 6D 6D 61 6E 64 6C 69 6E 65 5C 6E 22 3B 0A 20 20 20 20
72 65 74 75 72 6E 20 28 73 79 73 74 65 6D 20 24 63 6F 6D 6D 61 6E 64 6C
69 6E 65 29 20 3E 3E 20 38 3B 0A 0A 7D 0A 0A 73 75 62 20 63 6F 6E 74 72
6F 6C 5F 63 75 70 73 20 7B 0A 20 20 20 20 6D 79 20 28 24 63 6F 6E 66 69
67 29 20 3D 20 24 5F 5B 30 5D 3B 0A 0A 20 20 20 20 23 20 43 55 50 53 20
68 61 73 20 6E 6F 20 4C 50 44 2F 4C 50 52 6E 67 2D 63 6F 6D 70 61 74 69
62 6C 65 20 6C 70 63 20 63 6F 6D 6D 61 6E 64 2C 20 73 6F 20 77 65 20 6D
75 73 74 20 65 6D 75 6C 61 74 65 0A 20 20 20 20 23 20 74 68 69 73 20 66
75 6E 63 74 69 6F 6E 61 6C 69 74 79 20 77 69 74 68 20 74 68 65 20 63 6F
6D 6D 61 6E 64 20 6C 69 6E 65 20 74 6F 6F 6C 73 20 6F 66 20 43 55 50 53
2E 0A 0A 20 20 20 20 23 20 54 68 65 20 66 69 72 73 74 20 63 6F 6D 6D 61
6E 64 20 6C 69 6E 65 20 61 72 67 75 6D 65 6E 74 20 28 6F 66 20 74 68 65
20 72 65 6D 61 69 6E 69 6E 67 20 6F 6E 65 73 29 20 69 73 20 74 68 65 0A
20 20 20 20 23 20 63 6F 6E 74 72 6F 6C 20 63 6F 6D 6D 61 6E 64 20 28 73
74 61 6E 64 61 72 64 20 63 6F 6D 6D 61 6E 64 73 20 6F 66 20 6C 70 63 20
66 6F 72 20 4C 50 44 2F 4C 50 52 6E 67 29 0A 0A 20 20 20 20 6D 79 20 24
63 6F 6D 6D 61 6E 64 20 3D 20 73 68 69 66 74 20 28 40 41 52 47 56 29 3B
0A 0A 20 20 20 20 69 66 20 28 21 64 65 66 69 6E 65 64 28 24 63 6F 6D 6D
61 6E 64 29 29 20 7B 0A 09 64 69 65 20 22 59 6F 75 20 6D 75 73 74 20 73
75 70 70 6C 79 20 61 20 63 6F 6E 74 72 6F 6C 20 63 6F 6D 6D 61 6E 64 20
77 69 74 68 20 74 68 65 20 5C 22 2D 43 5C 22 20 6F 70 74 69 6F 6E 21 5C
6E 22 3B 0A 20 20 20 20 7D 20 65 6C 73 69 66 20 28 6C 63 28 24 63 6F 6D
6D 61 6E 64 29 20 65 71 20 22 75 70 22 29 20 7B 20 23 20 54 75 72 6E 20
6F 6E 20 71 75 65 75 65 20 28 71 75 65 75 65 69 6E 67 2F 70 72 69 6E 74
69 6E 67 29 0A 09 72 65 74 75 72 6E 20 28 73 79 73 74 65 6D 20 22 24 73
79 73 64 65 70 73 2D 3E 7B 27 63 75 70 73 2D 65 6E 61 62 6C 65 27 7D 20
40 41 52 47 56 3B 20 24 73 79 73 64 65 70 73 2D 3E 7B 27 63 75 70 73 2D
61 63 63 65 70 74 27 7D 20 40 41 52 47 56 22 29 20 3E 3E 20 38 3B 0A 20
20 20 20 7D 20 65 6C 73 69 66 20 28 6C 63 28 24 63 6F 6D 6D 61 6E 64 29
20 65 71 20 22 64 6F 77 6E 22 29 20 7B 20 23 20 54 75 72 6E 20 6F 66 66
20 71 75 65 75 65 20 28 71 75 65 75 65 69 6E 67 2F 70 72 69 6E 74 69 6E
67 29 0A 09 72 65 74 75 72 6E 20 28 73 79 73 74 65 6D 20 22 24 73 79 73
64 65 70 73 2D 3E 7B 27 63 75 70 73 2D 64 69 73 61 62 6C 65 27 7D 20 40
41 52 47 56 3B 20 24 73 79 73 64 65 70 73 2D 3E 7B 27 63 75 70 73 2D 72
65 6A 65 63 74 27 7D 20 40 41 52 47 56 22 29 20 3E 3E 20 38 3B 0A 20 20
20 20 7D 20 65 6C 73 69 66 20 28 6C 63 28 24 63 6F 6D 6D 61 6E 64 29 20
65 71 20 22 73 74 61 72 74 22 29 20 7B 20 23 20 54 75 72 6E 20 6F 6E 20
71 75 65 75 65 20 28 70 72 69 6E 74 69 6E 67 29 0A 09 72 65 74 75 72 6E
20 28 73 79 73 74 65 6D 20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 63 75
70 73 2D 65 6E 61 62 6C 65 27 7D 20 40 41 52 47 56 22 29 20 3E 3E 20 38
3B 0A 20 20 20 20 7D 20 65 6C 73 69 66 20 28 6C 63 28 24 63 6F 6D 6D 61
6E 64 29 20 65 71 20 22 73 74 6F 70 22 29 20 7B 20 23 20 54 75 72 6E 20
6F 66 66 20 71 75 65 75 65 20 28 70 72 69 6E 74 69 6E 67 29 0A 09 72 65
74 75 72 6E 20 28 73 79 73 74 65 6D 20 22 24 73 79 73 64 65 70 73 2D 3E
7B 27 63 75 70 73 2D 64 69 73 61 62 6C 65 27 7D 20 40 41 52 47 56 22 29
20 3E 3E 20 38 3B 0A 20 20 20 20 7D 20 65 6C 73 69 66 20 28 6C 63 28 24
63 6F 6D 6D 61 6E 64 29 20 65 71 20 22 65 6E 61 62 6C 65 22 29 20 7B 20
23 20 41 63 63 65 70 74 20 6E 65 77 20 6A 6F 62 73 0A 09 72 65 74 75 72
6E 20 28 73 79 73 74 65 6D 20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 63
75 70 73 2D 61 63 63 65 70 74 27 7D 20 40 41 52 47 56 22 29 20 3E 3E 20
38 3B 0A 20 20 20 20 7D 20 65 6C 73 69 66 20 28 6C 63 28 24 63 6F 6D 6D
61 6E 64 29 20 65 71 20 22 64 69 73 61 62 6C 65 22 29 20 7B 20 23 20 52
65 6A 65 63 74 20 6E 65 77 20 6A 6F 62 73 0A 09 72 65 74 75 72 6E 20 28
73 79 73 74 65 6D 20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 63 75 70 73
2D 72 65 6A 65 63 74 27 7D 20 40 41 52 47 56 22 29 20 3E 3E 20 38 3B 0A
20 20 20 20 7D 20 65 6C 73 69 66 20 28 6C 63 28 24 63 6F 6D 6D 61 6E 64
29 20 65 71 20 22 6D 6F 76 65 22 29 20 7B 20 23 20 4D 6F 76 65 20 6A 6F
62 73 0A 09 69 66 20 28 28 24 23 41 52 47 56 20 3C 20 31 29 20 6F 72 20
28 24 23 41 52 47 56 20 3E 20 32 29 29 20 7B 0A 09 20 20 20 20 64 69 65
20 22 55 73 61 67 65 20 6F 66 20 74 68 65 20 5C 22 6D 6F 76 65 5C 22 20
63 6F 6E 74 72 6F 6C 20 63 6F 6D 6D 61 6E 64 3A 5C 6E 5C 6E 20 20 20 6D
6F 76 65 20 6F 6C 64 71 75 65 75 65 20 5B 20 6A 6F 62 49 44 20 5D 20 6E
65 77 71 75 65 75 65 5C 6E 5C 6E 22 3B 0A 09 7D 0A 09 23 20 54 68 65 20
66 69 72 73 74 20 61 72 67 75 6D 65 6E 74 20 69 73 20 61 6C 77 61 79 73
20 74 68 65 20 73 6F 75 72 63 65 20 70 72 69 6E 74 65 72 0A 09 6D 79 20
24 66 72 6F 6D 71 75 65 75 65 20 3D 20 73 68 69 66 74 20 28 40 41 52 47
56 29 3B 0A 09 23 20 54 68 65 20 73 65 63 6F 6E 64 20 61 72 67 75 6D 65
6E 74 20 69 73 20 74 68 65 20 6A 6F 62 20 49 44 20 6F 72 20 74 68 65 20
64 65 73 74 69 6E 61 74 69 6F 6E 0A 09 6D 79 20 24 6A 6F 62 69 64 20 3D
20 73 68 69 66 74 20 28 40 41 52 47 56 29 3B 0A 09 23 20 54 68 65 20 74
68 69 72 64 20 61 72 67 75 6D 65 6E 74 20 69 73 20 74 68 65 20 64 65 73
74 69 6E 61 74 69 6F 6E 0A 09 6D 79 20 24 74 6F 71 75 65 75 65 20 3D 20
73 68 69 66 74 20 28 40 41 52 47 56 29 3B 0A 09 69 66 20 28 21 64 65 66
69 6E 65 64 28 24 74 6F 71 75 65 75 65 29 29 20 7B 0A 09 20 20 20 20 23
20 4E 6F 20 6A 6F 62 20 49 44 20 67 69 76 65 6E 2C 20 6D 6F 76 65 20 61
6C 6C 20 6A 6F 62 73 20 69 6E 20 74 68 65 20 67 69 76 65 6E 20 71 75 65
75 65 0A 09 20 20 20 20 24 74 6F 71 75 65 75 65 20 3D 20 24 6A 6F 62 69
64 3B 0A 09 20 20 20 20 6F 70 65 6E 20 4C 49 4E 45 53 2C 20 22 24 73 79
73 64 65 70 73 2D 3E 7B 27 63 75 70 73 2D 6C 70 71 27 7D 20 2D 50 20 24
66 72 6F 6D 71 75 65 75 65 20 7C 22 3B 0A 09 20 20 20 20 6D 79 20 40 6C
69 6E 65 73 20 3D 20 3C 4C 49 4E 45 53 3E 3B 0A 09 20 20 20 20 63 6C 6F
73 65 20 4C 49 4E 45 53 3B 0A 09 20 20 20 20 66 6F 72 20 28 40 6C 69 6E
65 73 29 20 7B 0A 09 09 69 66 20 28 24 5F 20 3D 7E 20 6D 21 5E 5C 73 2A
5C 53 2B 5C 73 2B 5C 53 2B 5C 73 2B 28 5B 30 2D 39 5D 2B 29 5C 73 2B 21
29 20 7B 0A 09 09 20 20 20 20 73 79 73 74 65 6D 20 22 24 73 79 73 64 65
70 73 2D 3E 7B 27 63 75 70 73 2D 6C 70 6D 6F 76 65 27 7D 20 24 66 72 6F
6D 71 75 65 75 65 2D 24 31 20 24 74 6F 71 75 65 75 65 22 3B 0A 09 09 7D
0A 09 20 20 20 20 7D 0A 09 20 20 20 20 72 65 74 75 72 6E 3B 0A 09 7D 20
65 6C 73 65 20 7B 0A 09 20 20 20 20 23 20 54 72 65 61 74 20 74 68 65 20
73 70 65 63 69 66 69 65 64 20 6A 6F 62 0A 09 20 20 20 20 72 65 74 75 72
6E 20 28 73 79 73 74 65 6D 20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 63
75 70 73 2D 6C 70 6D 6F 76 65 27 7D 20 24 66 72 6F 6D 71 75 65 75 65 2D
24 6A 6F 62 69 64 20 24 74 6F 71 75 65 75 65 22 29 20 3E 3E 20 38 3B 0A
09 7D 0A 20 20 20 20 7D 20 65 6C 73 69 66 20 28 28 6C 63 28 24 63 6F 6D
6D 61 6E 64 29 20 65 71 20 22 68 6F 6C 64 22 29 20 7C 7C 20 20 20 20 23
20 48 6F 6C 64 20 6A 6F 62 0A 09 20 20 20 20 20 28 6C 63 28 24 63 6F 6D
6D 61 6E 64 29 20 65 71 20 22 72 65 6C 65 61 73 65 22 29 20 7C 7C 20 23
20 52 65 73 75 6D 65 20 6A 6F 62 0A 09 20 20 20 20 20 28 6C 63 28 24 63
6F 6D 6D 61 6E 64 29 20 65 71 20 22 74 6F 70 71 22 29 29 20 7B 20 20 20
20 23 20 42 72 69 6E 67 20 6A 6F 62 20 74 6F 20 74 68 65 20 74 6F 70 20
6F 66 20 74 68 65 0A 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 20 71 75
65 75 65 0A 09 69 66 20 28 28 24 23 41 52 47 56 20 3C 20 30 29 20 6F 72
20 28 24 23 41 52 47 56 20 3E 20 31 29 29 20 7B 0A 09 20 20 20 20 64 69
65 20 22 55 73 61 67 65 20 6F 66 20 74 68 65 20 5C 22 24 63 6F 6D 6D 61
6E 64 5C 22 20 63 6F 6E 74 72 6F 6C 20 63 6F 6D 6D 61 6E 64 3A 5C 6E 5C
6E 20 20 20 24 63 6F 6D 6D 61 6E 64 20 71 75 65 75 65 20 5B 20 6A 6F 62
49 44 20 5D 20 5C 6E 5C 6E 22 3B 0A 09 7D 0A 09 23 20 43 6C 65 61 6E 20
75 70 20 74 68 65 20 63 6F 6D 6D 61 6E 64 0A 09 24 63 6F 6D 6D 61 6E 64
20 3D 20 6C 63 28 24 63 6F 6D 6D 61 6E 64 29 3B 0A 09 69 66 20 28 24 63
6F 6D 6D 61 6E 64 20 65 71 20 22 72 65 6C 65 61 73 65 22 29 20 7B 24 63
6F 6D 6D 61 6E 64 20 3D 20 22 72 65 73 75 6D 65 22 3B 7D 20 0A 09 69 66
20 28 24 63 6F 6D 6D 61 6E 64 20 65 71 20 22 74 6F 70 71 22 29 20 7B 24
63 6F 6D 6D 61 6E 64 20 3D 20 22 69 6D 6D 65 64 69 61 74 65 22 3B 7D 20
0A 09 23 20 54 68 65 20 66 69 72 73 74 20 61 72 67 75 6D 65 6E 74 20 69
73 20 61 6C 77 61 79 73 20 74 68 65 20 71 75 65 75 65 0A 09 6D 79 20 24
71 75 65 75 65 20 3D 20 73 68 69 66 74 20 28 40 41 52 47 56 29 3B 0A 09
23 20 54 68 65 20 73 65 63 6F 6E 64 20 61 72 67 75 6D 65 6E 74 20 69 73
20 74 68 65 20 6A 6F 62 20 49 44 0A 09 6D 79 20 24 6A 6F 62 69 64 20 3D
20 73 68 69 66 74 20 28 40 41 52 47 56 29 3B 0A 09 69 66 20 28 21 64 65
66 69 6E 65 64 28 24 6A 6F 62 69 64 29 29 20 7B 0A 09 20 20 20 20 23 20
4E 6F 20 6A 6F 62 20 49 44 20 67 69 76 65 6E 2C 20 74 72 65 61 74 20 61
6C 6C 20 6A 6F 62 73 20 69 6E 20 74 68 65 20 67 69 76 65 6E 20 71 75 65
75 65 0A 09 20 20 20 20 6F 70 65 6E 20 4C 49 4E 45 53 2C 20 22 24 73 79
73 64 65 70 73 2D 3E 7B 27 63 75 70 73 2D 6C 70 71 27 7D 20 2D 50 20 24
71 75 65 75 65 20 7C 22 3B 0A 09 20 20 20 20 6D 79 20 40 6C 69 6E 65 73
20 3D 20 3C 4C 49 4E 45 53 3E 3B 0A 09 20 20 20 20 63 6C 6F 73 65 20 4C
49 4E 45 53 3B 0A 09 20 20 20 20 66 6F 72 20 28 40 6C 69 6E 65 73 29 20
7B 0A 09 09 69 66 20 28 24 5F 20 3D 7E 20 6D 21 5E 5C 73 2A 5C 53 2B 5C
73 2B 5C 53 2B 5C 73 2B 28 5B 30 2D 39 5D 2B 29 5C 73 2B 21 29 20 7B 0A
09 09 20 20 20 20 73 79 73 74 65 6D 20 22 24 73 79 73 64 65 70 73 2D 3E
7B 27 63 75 70 73 2D 6C 70 27 7D 20 2D 69 20 24 71 75 65 75 65 2D 24 31
20 2D 48 20 24 63 6F 6D 6D 61 6E 64 22 3B 0A 09 09 7D 0A 09 20 20 20 20
7D 0A 09 20 20 20 20 72 65 74 75 72 6E 3B 0A 09 7D 20 65 6C 73 65 20 7B
0A 09 20 20 20 20 23 20 54 72 65 61 74 20 74 68 65 20 73 70 65 63 69 66
69 65 64 20 6A 6F 62 0A 09 20 20 20 20 72 65 74 75 72 6E 20 28 73 79 73
74 65 6D 20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 63 75 70 73 2D 6C 70
27 7D 20 2D 69 20 24 71 75 65 75 65 2D 24 6A 6F 62 69 64 20 2D 48 20 24
63 6F 6D 6D 61 6E 64 22 29 20 3E 3E 20 38 3B 0A 09 7D 0A 20 20 20 20 7D
20 65 6C 73 69 66 20 28 6C 63 28 24 63 6F 6D 6D 61 6E 64 29 20 65 71 20
22 73 74 61 74 75 73 22 29 20 7B 20 23 20 51 75 65 75 65 20 73 74 61 74
75 73 20 6C 69 73 74 69 6E 67 0A 09 72 65 74 75 72 6E 20 28 73 79 73 74
65 6D 20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 63 75 70 73 2D 6C 70 63
27 7D 20 73 74 61 74 75 73 20 40 41 52 47 56 22 29 20 3E 3E 20 38 3B 0A
20 20 20 20 7D 20 65 6C 73 69 66 20 28 6C 63 28 24 63 6F 6D 6D 61 6E 64
29 20 65 71 20 22 68 65 6C 70 22 29 20 7B 20 23 20 4C 69 73 74 20 74 68
65 20 61 76 61 69 6C 61 62 6C 65 20 63 6F 6D 6D 61 6E 64 73 0A 09 70 72
69 6E 74 20 22 54 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 63 6F 6E 74 72
6F 6C 20 63 6F 6D 6D 61 6E 64 73 20 61 72 65 20 61 76 61 69 6C 61 62 6C
65 3A 5C 6E 5C 6E 22 3B 0A 09 70 72 69 6E 74 20 22 20 20 20 75 70 20 71
75 65 75 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 54 75
72 6E 20 6F 6E 20 71 75 65 75 65 20 28 71 75 65 75 65 69 6E 67 2F 70 72
69 6E 74 69 6E 67 29 5C 6E 22 3B 0A 09 70 72 69 6E 74 20 22 20 20 20 64
6F 77 6E 20 71 75 65 75 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A
20 54 75 72 6E 20 6F 66 66 20 71 75 65 75 65 20 28 71 75 65 75 65 69 6E
67 2F 70 72 69 6E 74 69 6E 67 29 5C 6E 22 3B 0A 09 70 72 69 6E 74 20 22
20 20 20 73 74 61 72 74 20 71 75 65 75 65 20 20 20 20 20 20 20 20 20 20
20 20 20 3A 20 54 75 72 6E 20 6F 6E 20 70 72 69 6E 74 69 6E 67 20 6F 6E
20 71 75 65 75 65 5C 6E 22 3B 0A 09 70 72 69 6E 74 20 22 20 20 20 73 74
6F 70 20 71 75 65 75 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20
54 75 72 6E 20 6F 66 66 20 70 72 69 6E 74 69 6E 67 20 6F 6E 20 71 75 65
75 65 5C 6E 22 3B 0A 09 70 72 69 6E 74 20 22 20 20 20 65 6E 61 62 6C 65
20 71 75 65 75 65 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 4D 61 6B 65
20 71 75 65 75 65 20 61 63 63 65 70 74 69 6E 67 20 6E 65 77 20 6A 6F 62
73 5C 6E 22 3B 0A 09 70 72 69 6E 74 20 22 20 20 20 64 69 73 61 62 6C 65
20 71 75 65 75 65 20 20 20 20 20 20 20 20 20 20 20 3A 20 4D 61 6B 65 20
71 75 65 75 65 20 72 65 6A 65 63 74 69 6E 67 20 6E 65 77 20 6A 6F 62 73
5C 6E 22 3B 0A 09 70 72 69 6E 74 20 22 20 20 20 6D 6F 76 65 20 6F 6C 64
71 75 65 75 65 20 5B 20 6A 6F 62 69 64 20 5D 20 6E 65 77 71 75 65 75 65
20 3A 20 5C 6E 22 3B 0A 09 70 72 69 6E 74 20 22 20 20 20 20 20 20 20 4D
6F 76 65 20 6A 6F 62 20 6A 6F 62 69 64 20 69 6E 20 6F 6C 64 71 75 65 75
65 20 74 6F 20 6E 65 77 71 75 65 75 65 5C 6E 22 3B 0A 09 70 72 69 6E 74
20 22 20 20 20 20 20 20 20 4D 6F 76 65 20 61 6C 6C 20 6A 6F 62 73 20 69
6E 20 6F 6C 64 71 75 65 75 65 20 74 6F 20 6E 65 77 71 75 65 75 65 20 77
68 65 6E 20 6A 6F 62 69 64 20 6E 6F 74 20 67 69 76 65 6E 5C 6E 22 3B 0A
09 70 72 69 6E 74 20 22 20 20 20 68 6F 6C 64 20 71 75 65 75 65 20 5B 20
6A 6F 62 69 64 20 5D 20 20 20 20 3A 20 48 6F 6C 64 20 6A 6F 62 20 6A 6F
62 69 64 20 6F 72 20 61 6C 6C 20 6A 6F 62 73 20 69 6E 20 71 75 65 75 65
5C 6E 22 3B 0A 09 70 72 69 6E 74 20 22 20 20 20 72 65 6C 65 61 73 65 20
71 75 65 75 65 20 5B 20 6A 6F 62 69 64 20 5D 20 3A 20 52 65 6C 65 61 73
65 20 6A 6F 62 20 6A 6F 62 69 64 20 6F 72 20 61 6C 6C 20 6A 6F 62 73 20
69 6E 20 71 75 65 75 65 5C 6E 22 3B 0A 09 70 72 69 6E 74 20 22 20 20 20
74 6F 70 71 20 71 75 65 75 65 20 6A 6F 62 69 64 20 20 20 20 20 20 20 20
3A 20 50 72 69 6E 74 20 6A 6F 62 20 6A 6F 62 69 64 20 69 6E 20 71 75 65
75 65 20 69 6D 6D 65 64 69 61 74 65 6C 79 5C 6E 22 3B 0A 09 70 72 69 6E
74 20 22 20 20 20 73 74 61 74 75 73 20 5B 20 71 75 65 75 65 20 5D 20 20
20 20 20 20 20 20 3A 20 53 74 61 74 75 73 20 6F 66 20 71 75 65 75 65 20
6F 72 20 6F 66 20 61 6C 6C 20 71 75 65 75 65 73 5C 6E 22 3B 0A 09 70 72
69 6E 74 20 22 20 20 20 68 65 6C 70 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 3A 20 54 68 69 73 20 68 65 6C 70 20 6D 65 73 73
61 67 65 5C 6E 5C 6E 22 3B 0A 20 20 20 20 7D 20 65 6C 73 65 20 7B 0A 09
64 69 65 20 22 43 6F 6D 6D 61 6E 64 20 5C 22 24 63 6F 6D 6D 61 6E 64 5C
22 20 6E 6F 74 20 72 65 63 6F 67 6E 69 7A 65 64 21 5C 6E 22 3B 0A 20 20
20 20 7D 0A 09 0A 7D 0A 0A 23 23 23 20 50 72 69 6E 74 69 6E 67 2F 4A 6F
62 20 6D 61 6E 69 70 75 6C 61 74 69 6F 6E 20 66 75 6E 63 74 69 6F 6E 73
20 66 6F 72 20 50 44 51 0A 0A 73 75 62 20 70 72 69 6E 74 5F 70 64 71 20
7B 0A 20 20 20 20 6D 79 20 28 24 63 6F 6E 66 69 67 29 20 3D 20 24 5F 5B
30 5D 3B 0A 0A 20 20 20 20 23 20 50 72 69 6E 74 69 6E 67 20 63 6F 6D 6D
61 6E 64 0A 20 20 20 20 6D 79 20 24 63 6F 6D 6D 61 6E 64 6C 69 6E 65 20
3D 20 22 24 73 79 73 64 65 70 73 2D 3E 7B 27 70 64 71 2D 70 72 69 6E 74
27 7D 22 3B 0A 0A 20 20 20 20 23 20 41 64 64 20 74 68 65 20 70 72 69 6E
74 65 72 20 71 75 65 75 65 20 61 72 67 75 6D 65 6E 74 0A 20 20 20 20 69
66 20 28 64 65 66 69 6E 65 64 28 24 63 6F 6E 66 69 67 2D 3E 7B 27 71 75
65 75 65 27 7D 29 29 20 7B 0A 09 24 63 6F 6D 6D 61 6E 64 6C 69 6E 65 20
2E 3D 20 22 20 2D 50 20 24 63 6F 6E 66 69 67 2D 3E 7B 27 71 75 65 75 65
27 7D 22 3B 0A 20 20 20 20 7D 0A 0A 20 20 20 20 23 20 41 64 64 20 74 68
65 20 64 72 69 76 65 72 2D 73 70 65 63 69 66 69 63 20 6F 70 74 69 6F 6E
73 20 73 75 70 70 6C 69 65 64 20 62 79 20 74 68 65 20 75 73 65 72 2C 20
69 66 20 61 6E 79 0A 20 20 20 20 69 66 20 28 24 23 7B 24 63 6F 6E 66 69
67 2D 3E 7B 27 6F 70 74 69 6F 6E 73 27 7D 7D 20 3E 3D 20 30 29 20 7B 0A
09 66 6F 72 20 28 40 7B 24 63 6F 6E 66 69 67 2D 3E 7B 27 6F 70 74 69 6F
6E 73 27 7D 7D 29 20 7B 0A 09 20 20 20 20 6D 79 20 24 6F 70 74 69 6F 6E
20 3D 20 24 5F 3B 0A 09 20 20 20 20 69 66 20 28 24 6F 70 74 69 6F 6E 20
3D 7E 20 6D 21 5E 5C 73 2A 28 5B 5E 3D 5D 2B 3D 5B 5C 2B 5C 2D 30 2D 39
5C 2E 5D 2B 29 5C 73 2A 24 21 29 20 7B 0A 09 09 23 20 46 6F 6F 6D 61 74
69 63 20 74 72 65 61 74 73 20 6E 75 6D 65 72 69 63 61 6C 20 6F 70 74 69
6F 6E 73 20 61 73 20 50 44 51 20 61 72 67 75 6D 65 6E 74 73 20 28 22 2D
61 22 29 2C 0A 09 09 23 20 62 75 74 20 74 68 65 72 65 20 63 61 6E 20 62
65 20 65 6E 75 6D 65 72 61 74 65 64 20 6F 70 74 69 6F 6E 73 20 77 69 74
68 20 6E 75 6D 62 65 72 73 20 61 73 20 63 68 6F 69 63 65 73 2C 0A 09 09
23 20 73 6F 20 77 65 20 67 69 76 65 20 74 68 65 20 6F 70 74 69 6F 6E 20
69 6E 20 62 6F 74 68 20 73 74 79 6C 65 73 2E 20 53 69 6E 63 65 20 50 44
51 20 73 69 6C 65 6E 74 6C 79 0A 09 09 23 20 69 67 6E 6F 72 65 73 20 6E
6F 6E 2D 65 78 69 73 74 65 6E 74 20 6F 70 74 69 6F 6E 73 2C 20 74 68 65
20 77 72 6F 6E 67 20 66 6F 72 6D 20 6F 66 20 74 68 65 20 6F 70 74 69 6F
6E 0A 09 09 23 20 77 69 6C 6C 20 62 65 20 69 67 6E 6F 72 65 64 2E 0A 09
09 24 63 6F 6D 6D 61 6E 64 6C 69 6E 65 20 2E 3D 20 22 20 2D 61 4F 50 54
5F 24 31 22 3B 0A 09 20 20 20 20 7D 0A 09 20 20 20 20 23 20 45 6E 75 6D
65 72 61 74 65 64 20 61 6E 64 20 62 6F 6F 6C 65 61 6E 20 6F 70 74 69 6F
6E 73 20 61 72 65 20 50 44 51 20 6F 70 74 69 6F 6E 73 20 28 22 2D 6F 22
29 2C 0A 09 20 20 20 20 23 20 74 68 65 20 22 3D 22 20 68 61 73 20 74 6F
20 62 65 20 72 65 70 6C 61 63 65 64 20 62 79 20 22 5F 22 20 74 6F 20 77
6F 72 6B 20 77 69 74 68 20 74 68 65 0A 09 20 20 20 20 23 20 50 44 51 2D
4F 2D 4D 41 54 49 43 2D 67 65 6E 65 72 61 74 65 64 20 63 6F 6E 66 69 67
75 72 61 74 69 6F 6E 0A 09 20 20 20 20 24 6F 70 74 69 6F 6E 20 3D 7E 20
73 2F 3D 2F 5F 2F 3B 20 20 23 20 52 65 70 6C 61 63 65 20 6F 6E 6C 79 20
74 68 65 20 66 69 72 73 74 20 22 3D 22 0A 09 20 20 20 20 24 63 6F 6D 6D
61 6E 64 6C 69 6E 65 20 2E 3D 20 22 20 2D 6F 24 6F 70 74 69 6F 6E 22 3B
0A 09 7D 0A 20 20 20 20 7D 0A 0A 20 20 20 20 23 20 54 68 65 20 22 2D 23
22 20 6F 70 74 69 6F 6E 20 66 6F 72 20 6D 75 6C 74 69 70 6C 65 20 63 6F
70 69 65 73 20 69 73 20 6E 6F 74 20 73 75 70 70 6F 72 74 65 64 20 62 79
20 74 68 65 20 70 72 69 6E 74 0A 20 20 20 20 23 20 63 6F 6D 6D 61 6E 64
20 22 70 64 71 22 2E 20 53 6F 20 77 65 20 6C 61 75 6E 63 68 20 22 70 64
71 22 20 6F 6E 63 65 20 70 65 72 20 63 6F 70 79 2E 20 54 68 77 20 63 6F
6D 6D 61 6E 64 20 6C 69 6E 65 0A 20 20 20 20 23 20 77 69 6C 6C 20 62 65
20 6D 6F 64 69 66 69 65 64 20 61 70 70 72 6F 70 72 69 61 74 65 6C 79 20
64 69 72 65 63 74 6C 79 20 62 65 66 6F 72 65 20 74 68 65 20 70 72 69 6E
74 69 6E 67 20 63 6F 6D 6D 61 6E 64 0A 20 20 20 20 23 20 69 73 20 6C 61
75 6E 63 68 65 64 2E 0A 20 20 20 20 23 20 4E 6F 74 65 3A 20 27 23 27 20
61 73 20 6F 70 74 69 6F 6E 20 6E 61 6D 65 20 69 73 20 6E 6F 74 20 73 75
70 70 6F 72 74 65 64 20 62 79 20 74 68 65 20 50 65 72 6C 20 6C 69 62 72
61 72 79 0A 20 20 20 20 23 20 47 65 74 6F 70 74 3A 3A 4C 6F 6E 67 2E 0A
20 20 20 20 6D 79 20 24 6E 75 6D 5F 63 6F 70 69 65 73 20 3D 20 31 3B 0A
20 20 20 20 6D 79 20 24 66 69 6C 65 5F 69 6E 5F 61 72 67 73 20 3D 20 30
3B 0A 20 20 20 20 6D 79 20 24 69 3B 0A 20 20 20 20 66 6F 72 20 28 24 69
20 3D 20 30 3B 20 28 24 69 20 3C 3D 20 24 23 41 52 47 56 29 3B 20 24 69
2B 2B 29 20 7B 0A 09 69 66 20 28 24 41 52 47 56 5B 24 69 5D 20 3D 7E 20
6D 21 5E 5C 73 2A 5C 2D 5C 23 5C 73 2A 28 5B 30 2D 39 5D 2B 29 5C 73 2A
24 21 29 20 7B 0A 09 20 20 20 20 24 6E 75 6D 5F 63 6F 70 69 65 73 20 3D
20 24 31 3B 0A 09 20 20 20 20 73 70 6C 69 63 65 28 40 41 52 47 56 2C 24
69 2C 31 29 3B 0A 09 20 20 20 20 24 69 2D 2D 3B 0A 09 7D 20 65 6C 73 69
66 20 28 24 41 52 47 56 5B 24 69 5D 20 3D 7E 20 6D 21 5E 5C 73 2A 5C 2D
5C 23 5C 73 2A 24 21 29 20 7B 0A 09 20 20 20 20 69 66 20 28 28 64 65 66
69 6E 65 64 20 24 41 52 47 56 5B 24 69 2B 31 5D 29 20 26 26 20 0A 09 09
28 24 41 52 47 56 5B 24 69 2B 31 5D 20 3D 7E 20 6D 21 5E 5C 73 2A 28 5B
30 2D 39 5D 2B 29 5C 73 2A 24 21 29 29 20 7B 0A 09 09 24 6E 75 6D 5F 63
6F 70 69 65 73 20 3D 20 24 31 3B 0A 09 09 73 70 6C 69 63 65 28 40 41 52
47 56 2C 24 69 2C 32 29 3B 0A 09 09 24 69 2D 2D 3B 0A 09 20 20 20 20 7D
0A 09 7D 20 65 6C 73 69 66 20 28 24 41 52 47 56 5B 24 69 5D 20 3D 7E 20
6D 21 5E 5C 73 2A 5B 5E 5C 2D 5D 2B 21 29 20 7B 0A 09 20 20 20 20 24 66
69 6C 65 5F 69 6E 5F 61 72 67 73 20 3D 20 31 3B 0A 09 7D 0A 20 20 20 20
7D 0A 0A 20 20 20 20 23 20 41 64 64 20 74 68 65 20 72 65 6D 61 69 6E 69
6E 67 20 63 6F 6D 6D 61 6E 64 20 6C 69 6E 65 20 61 72 67 75 6D 65 6E 74
73 2C 20 74 68 65 79 20 61 72 65 20 74 68 65 20 6E 61 6D 65 73 20 6F 66
0A 20 20 20 20 23 20 74 68 65 20 66 69 6C 65 73 20 74 6F 20 70 72 69 6E
74 20 61 6E 64 20 61 6C 73 6F 20 73 70 6F 6F 6C 65 72 2D 73 70 65 63 69
66 69 63 20 6F 70 74 69 6F 6E 73 0A 20 20 20 20 24 63 6F 6D 6D 61 6E 64
6C 69 6E 65 20 2E 3D 20 22 20 40 41 52 47 56 22 3B 0A 0A 20 20 20 20 23
20 44 6F 20 69 74 21 0A 20 20 20 20 23 70 72 69 6E 74 20 22 24 63 6F 6D
6D 61 6E 64 6C 69 6E 65 5C 6E 22 3B 20 72 65 74 75 72 6E 20 30 3B 0A 0A
20 20 20 20 69 66 20 28 24 6E 75 6D 5F 63 6F 70 69 65 73 20 3D 3D 20 31
29 20 7B 0A 09 72 65 74 75 72 6E 20 28 73 79 73 74 65 6D 20 24 63 6F 6D
6D 61 6E 64 6C 69 6E 65 29 20 3E 3E 20 38 3B 0A 20 20 20 20 7D 20 65 6C
73 65 20 7B 0A 09 69 66 20 28 24 66 69 6C 65 5F 69 6E 5F 61 72 67 73 20
3D 3D 20 30 29 20 7B 0A 09 20 20 20 20 23 20 57 65 20 70 72 69 6E 74 20
66 72 6F 6D 20 73 74 61 6E 64 61 72 64 20 69 6E 70 75 74 2C 20 73 6F 20
77 65 20 6D 75 73 74 20 62 75 66 66 65 72 20 69 74 20 74 6F 20 62 65 20
61 62 6C 65 0A 09 20 20 20 20 23 20 74 6F 20 70 72 69 6E 74 20 6D 75 6C
74 69 70 6C 65 20 63 6F 70 69 65 73 0A 09 20 20 20 20 6D 79 20 40 6A 6F
62 5F 63 6F 6E 74 65 6E 74 73 20 3D 20 3C 53 54 44 49 4E 3E 3B 0A 09 20
20 20 20 6D 79 20 24 69 3B 0A 09 20 20 20 20 66 6F 72 20 28 24 69 20 3D
20 30 3B 20 24 69 20 3C 20 24 6E 75 6D 5F 63 6F 70 69 65 73 3B 20 24 69
2B 2B 29 20 7B 0A 09 09 6F 70 65 6E 20 50 49 50 45 2C 20 22 7C 20 24 63
6F 6D 6D 61 6E 64 6C 69 6E 65 22 20 7C 7C 20 0A 09 09 20 20 20 20 64 69
65 20 22 43 6F 75 6C 64 20 6E 6F 74 20 6C 61 75 6E 63 68 20 70 72 69 6E
74 69 6E 67 20 63 6F 6D 6D 61 6E 64 21 5C 6E 22 3B 0A 09 09 70 72 69 6E
74 20 50 49 50 45 20 40 6A 6F 62 5F 63 6F 6E 74 65 6E 74 73 3B 0A 09 09
63 6C 6F 73 65 20 50 49 50 45 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 65 6C 73 65 20 7B 0A 09 20 20 20
20 23 20 57 65 20 70 72 69 6E 74 20 66 69 6C 65 73 0A 09 20 20 20 20 6D
79 20 24 72 65 73 75 6C 74 20 3D 20 30 3B 0A 09 20 20 20 20 6D 79 20 24
69 3B 0A 09 20 20 20 20 66 6F 72 20 28 24 69 20 3D 20 30 3B 20 24 69 20
3C 20 24 6E 75 6D 5F 63 6F 70 69 65 73 3B 20 24 69 2B 2B 29 20 7B 0A 09
09 24 72 65 73 75 6C 74 20 3D 20 28 73 79 73 74 65 6D 20 24 63 6F 6D 6D
61 6E 64 6C 69 6E 65 29 20 3E 3E 20 38 3B 0A 09 09 69 66 20 28 24 72 65
73 75 6C 74 20 21 3D 20 30 29 20 7B 72 65 74 75 72 6E 20 24 72 65 73 75
6C 74 7D 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 0A 20 20 20 20 7D 0A 7D 0A 0A 73 75 62 20 71 75 65 72 79
5F 70 64 71 20 7B 0A 20 20 20 20 6D 79 20 28 24 63 6F 6E 66 69 67 29 20
3D 20 24 5F 5B 30 5D 3B 0A 0A 20 20 20 20 23 20 50 44 51 20 68 61 73 20
6E 6F 20 70 6F 73 73 69 62 6C 69 74 79 20 74 6F 20 6C 69 73 74 20 74 68
65 20 70 72 69 6E 74 69 6E 67 20 6A 6F 62 73 20 66 72 6F 6D 20 74 68 65
20 63 6F 6D 6D 61 6E 64 0A 20 20 20 20 23 20 6C 69 6E 65 2E 20 20 53 6F
20 77 65 20 72 65 61 64 20 74 68 65 20 2A 2E 73 74 61 74 75 73 20 66 69
6C 65 73 20 69 6E 20 7E 2F 2E 70 72 69 6E 74 6A 6F 62 73 20 61 6E 64 20
67 65 6E 65 72 61 74 65 0A 20 20 20 20 23 20 74 68 65 20 6A 6F 62 20 65
6E 74 72 79 20 6C 69 6E 65 73 20 66 72 6F 6D 20 74 68 61 74 20 69 6E 66
6F 72 6D 61 74 69 6F 6E 2E 0A 0A 20 20 20 20 23 20 52 65 61 64 20 61 64
64 69 74 69 6F 6E 61 6C 20 6F 70 74 69 6F 6E 73 0A 20 20 20 20 47 65 74
4F 70 74 69 6F 6E 73 28 22 61 22 20 20 20 3D 3E 20 5C 24 6F 70 74 5F 61
2C 20 20 20 20 20 20 20 20 23 20 4C 69 73 74 20 6A 6F 62 73 20 6F 6E 20
61 6C 6C 20 70 72 69 6E 74 65 72 73 0A 09 20 20 20 20 20 20 20 22 6C 22
20 20 20 3D 3E 20 5C 24 6F 70 74 5F 6C 29 3B 20 20 20 20 20 20 20 23 20
4C 6F 6E 67 2C 20 6D 6F 72 65 20 76 65 72 62 6F 73 65 20 6F 75 74 70 75
74 0A 0A 20 20 20 20 23 20 4D 61 6B 65 20 73 75 72 65 20 74 68 61 74 20
61 20 70 72 69 6E 74 65 72 20 69 73 20 73 70 65 63 69 66 69 65 64 20 77
68 65 6E 20 74 68 65 20 22 2D 61 22 20 6F 70 74 69 6F 6E 20 69 73 20 6E
6F 74 0A 20 20 20 20 23 20 67 69 76 65 6E 0A 20 20 20 20 69 66 20 28 28
21 28 64 65 66 69 6E 65 64 28 24 6F 70 74 5F 61 29 29 29 20 26 26 20 28
21 28 64 65 66 69 6E 65 64 28 24 63 6F 6E 66 69 67 2D 3E 7B 27 71 75 65
75 65 27 7D 29 29 29 29 20 7B 0A 09 24 63 6F 6E 66 69 67 2D 3E 7B 27 71
75 65 75 65 27 7D 20 3D 20 67 65 74 5F 70 64 71 5F 64 65 66 61 75 6C 74
5F 70 72 69 6E 74 65 72 28 29 3B 0A 20 20 20 20 7D 0A 0A 20 20 20 20 23
20 49 66 20 74 68 65 20 75 73 65 72 20 73 70 65 63 69 66 69 65 64 20 6A
6F 62 20 6E 75 6D 62 65 72 73 2C 20 6C 69 73 74 20 74 68 65 6D 2E 20 55
73 65 72 20 6E 61 6D 65 73 20 6F 6E 20 74 68 65 0A 20 20 20 20 23 20 63
6F 6D 6D 61 6E 64 20 6C 69 6E 65 20 64 6F 20 6E 6F 74 20 6D 61 6B 65 20
6D 75 63 68 20 73 65 6E 73 65 2C 20 62 65 63 61 75 73 65 20 75 6E 64 65
72 20 50 44 51 20 61 20 75 73 65 72 20 63 61 6E 0A 20 20 20 20 23 20 6F
6E 6C 79 20 73 65 65 20 6F 6E 65 73 20 6F 77 6E 20 6A 6F 62 73 2C 20 74
68 65 79 20 61 72 65 20 73 75 70 70 6F 72 74 65 64 20 68 65 72 65 20 74
6F 20 64 6F 20 6E 6F 74 20 62 72 65 61 6B 0A 20 20 20 20 23 20 66 72 6F
6E 74 20 65 6E 64 73 0A 20 20 20 20 6D 79 20 24 6A 6F 62 6C 69 73 74 20
3D 20 7B 7D 3B 0A 20 20 20 20 6D 79 20 24 75 73 65 72 6C 69 73 74 20 3D
20 7B 7D 3B 0A 20 20 20 20 6D 79 20 24 6C 69 73 74 61 6C 6C 6A 6F 62 73
20 3D 20 31 3B 0A 20 20 20 20 6D 79 20 24 6C 69 73 74 61 6C 6C 75 73 65
72 73 20 3D 20 31 3B 0A 20 20 20 20 6D 79 20 24 69 3B 0A 20 20 20 20 66
6F 72 20 28 24 69 20 3D 20 30 3B 20 28 24 69 20 3C 3D 20 24 23 41 52 47
56 29 3B 20 24 69 2B 2B 29 20 7B 0A 09 69 66 20 28 24 41 52 47 56 5B 24
69 5D 20 3D 7E 20 6D 21 5E 5C 73 2A 28 5B 30 2D 39 5D 2B 29 5C 73 2A 24
21 29 20 7B 0A 09 20 20 20 20 6D 79 20 24 6A 6F 62 3D 24 31 3B 0A 09 20
20 20 20 23 20 46 69 6C 6C 20 75 70 20 74 68 65 20 6E 75 6D 62 65 72 20
77 69 74 68 20 7A 65 72 6F 73 20 73 6F 20 74 68 61 74 20 69 74 20 68 61
73 20 74 68 72 65 65 20 64 69 67 69 74 73 0A 09 20 20 20 20 77 68 69 6C
65 20 28 6C 65 6E 67 74 68 28 24 6A 6F 62 29 20 3C 20 33 29 20 7B 24 6A
6F 62 20 3D 20 22 30 22 20 2E 20 24 6A 6F 62 3B 7D 0A 09 20 20 20 20 24
6A 6F 62 6C 69 73 74 2D 3E 7B 24 6A 6F 62 7D 20 3D 20 31 3B 0A 09 20 20
20 20 24 6C 69 73 74 61 6C 6C 6A 6F 62 73 20 3D 20 30 3B 0A 09 20 20 20
20 73 70 6C 69 63 65 28 40 41 52 47 56 2C 24 69 2C 31 29 3B 0A 09 20 20
20 20 24 69 2D 2D 3B 0A 09 7D 20 65 6C 73 69 66 20 28 24 41 52 47 56 5B
24 69 5D 20 3D 7E 20 6D 21 5E 5C 73 2A 5B 5E 5C 2D 5D 2B 21 29 20 7B 0A
09 20 20 20 20 6D 79 20 24 75 73 65 72 3D 24 41 52 47 56 5B 24 69 5D 3B
0A 09 20 20 20 20 24 75 73 65 72 6C 69 73 74 2D 3E 7B 24 75 73 65 72 7D
20 3D 20 31 3B 0A 09 20 20 20 20 24 6C 69 73 74 61 6C 6C 75 73 65 72 73
20 3D 20 30 3B 0A 09 20 20 20 20 73 70 6C 69 63 65 28 40 41 52 47 56 2C
24 69 2C 31 29 3B 0A 09 20 20 20 20 24 69 2D 2D 3B 0A 09 7D 20 65 6C 73
65 20 7B 0A 09 20 20 20 20 64 69 65 20 22 55 6E 6B 6E 6F 77 6E 20 6F 70
74 69 6F 6E 3A 20 24 41 52 47 56 5B 24 69 5D 5C 6E 22 3B 0A 09 7D 0A 20
20 20 20 7D 0A 0A 20 20 20 20 23 20 57 68 65 6E 20 77 65 20 6C 69 73 74
20 6F 6E 6C 79 20 74 68 65 20 6A 6F 62 73 20 66 6F 72 20 61 20 73 70 65
63 69 66 69 63 20 70 72 69 6E 74 65 72 2C 20 64 69 73 70 6C 61 79 20 74
68 65 0A 20 20 20 20 23 20 70 72 69 6E 74 65 72 20 73 74 61 74 75 73 20
61 74 20 66 69 72 73 74 2E 20 49 6E 20 50 44 51 20 74 68 65 20 70 72 69
6E 74 65 72 20 73 74 61 74 75 73 20 63 61 6E 6E 6F 74 20 62 65 0A 20 20
20 20 23 20 72 65 74 72 69 76 65 64 20 66 72 6F 6D 20 74 68 65 20 63 6F
6D 6D 61 6E 64 20 6C 69 6E 65 2C 20 73 6F 20 77 65 20 70 75 74 20 61 20
64 75 6D 6D 79 20 6C 69 6E 65 0A 20 20 20 20 23 20 22 3C 70 72 69 6E 74
65 72 3E 20 69 73 20 72 65 61 64 79 22 2E 0A 20 20 20 20 69 66 20 28 21
28 64 65 66 69 6E 65 64 28 24 6F 70 74 5F 61 29 29 29 20 7B 0A 09 69 66
20 28 21 70 64 71 5F 63 68 65 63 6B 5F 70 72 69 6E 74 65 72 28 24 63 6F
6E 66 69 67 2D 3E 7B 27 71 75 65 75 65 27 7D 29 29 20 7B 0A 09 20 20 20
20 64 69 65 20 22 24 63 6F 6E 66 69 67 2D 3E 7B 27 71 75 65 75 65 27 7D
3A 20 75 6E 6B 6E 6F 77 6E 20 70 72 69 6E 74 65 72 5C 6E 22 3B 0A 09 7D
0A 09 70 72 69 6E 74 20 22 24 63 6F 6E 66 69 67 2D 3E 7B 27 71 75 65 75
65 27 7D 20 69 73 20 72 65 61 64 79 5C 6E 22 3B 0A 20 20 20 20 7D 0A 0A
20 20 20 20 23 20 52 65 61 64 20 69 6E 20 74 68 65 20 6E 61 6D 65 73 20
6F 66 20 61 6C 6C 20 6A 6F 62 20 73 74 61 74 75 73 20 66 69 6C 65 73 20
69 6E 20 7E 2F 2E 70 72 69 6E 74 6A 6F 62 73 2F 0A 20 20 20 20 6D 79 20
40 6A 6F 62 6E 75 6D 62 65 72 73 20 3D 20 28 29 3B 0A 20 20 20 20 6F 70
65 6E 64 69 72 20 50 4A 44 49 52 2C 20 22 24 45 4E 56 7B 27 48 4F 4D 45
27 7D 2F 2E 70 72 69 6E 74 6A 6F 62 73 22 20 7C 7C 20 0A 09 72 65 74 75
72 6E 20 30 3B 20 20 23 20 4E 6F 20 7E 2F 2E 70 72 69 6E 74 6A 6F 62 73
2F 20 64 69 72 65 63 74 6F 72 79 20 3D 3D 3E 20 6E 6F 20 6A 6F 62 73 0A
20 20 20 20 77 68 69 6C 65 20 28 24 66 69 6C 65 6E 61 6D 65 20 3D 20 72
65 61 64 64 69 72 28 50 4A 44 49 52 29 29 20 7B 0A 09 69 66 20 28 24 66
69 6C 65 6E 61 6D 65 20 3D 7E 20 6D 21 5E 28 5B 30 2D 39 5D 5B 30 2D 39
5D 5B 30 2D 39 5D 29 2E 73 74 61 74 75 73 24 21 29 20 7B 0A 09 20 20 20
20 70 75 73 68 20 28 40 6A 6F 62 6E 75 6D 62 65 72 73 2C 20 24 31 29 3B
0A 09 7D 0A 20 20 20 20 7D 0A 20 20 20 20 63 6C 6F 73 65 20 50 4A 44 49
52 3B 0A 20 20 20 20 23 20 53 6F 72 74 20 74 68 65 20 66 69 6C 65 6E 61
6D 65 73 20 69 6E 20 64 65 73 63 65 6E 64 69 6E 67 20 6F 72 64 65 72 20
74 6F 20 67 65 74 20 74 68 65 20 6D 6F 73 74 20 72 65 63 65 6E 74 20 6A
6F 62 73 0A 20 20 20 20 23 20 6C 69 73 74 65 64 20 61 74 20 66 69 72 73
74 0A 20 20 20 20 40 6A 6F 62 6E 75 6D 62 65 72 73 20 3D 20 73 6F 72 74
20 7B 24 62 20 63 6D 70 20 24 61 7D 20 40 6A 6F 62 6E 75 6D 62 65 72 73
3B 0A 0A 20 20 20 20 23 20 4E 6F 77 20 6C 69 73 74 20 74 68 65 20 6A 6F
62 73 0A 20 20 20 20 6D 79 20 24 66 69 72 73 74 6C 69 6E 65 20 3D 20 31
3B 0A 20 20 20 20 66 6F 72 20 28 24 69 20 3D 20 30 3B 20 24 69 20 3C 3D
20 24 23 6A 6F 62 6E 75 6D 62 65 72 73 3B 20 24 69 20 2B 2B 29 20 7B 0A
09 23 20 4F 6D 69 74 20 74 68 69 73 20 6A 6F 62 20 69 66 20 6A 6F 62 20
6E 75 6D 62 65 72 73 20 61 72 65 20 73 70 65 63 69 66 69 65 64 20 6F 6E
20 74 68 65 20 63 6F 6D 6D 61 6E 64 20 6C 69 6E 65 2C 20 62 75 74 0A 09
23 20 6E 6F 74 20 74 68 65 20 6F 6E 65 20 6F 66 20 74 68 69 73 20 6A 6F
62 0A 09 6E 65 78 74 20 69 66 20 28 28 24 6C 69 73 74 61 6C 6C 6A 6F 62
73 20 3D 3D 20 30 29 20 26 26 20 0A 09 09 20 28 21 28 64 65 66 69 6E 65
64 28 24 6A 6F 62 6C 69 73 74 2D 3E 7B 24 6A 6F 62 6E 75 6D 62 65 72 73
5B 24 69 5D 7D 29 29 29 29 3B 0A 09 23 20 52 65 61 64 20 74 68 65 20 6A
6F 62 20 73 74 61 74 75 73 20 66 69 6C 65 0A 09 6E 65 78 74 20 69 66 20
21 6F 70 65 6E 20 4A 4F 42 53 54 41 54 55 53 46 49 4C 45 2C 20 0A 09 22
3C 20 24 45 4E 56 7B 27 48 4F 4D 45 27 7D 2F 2E 70 72 69 6E 74 6A 6F 62
73 2F 24 6A 6F 62 6E 75 6D 62 65 72 73 5B 24 69 5D 2E 73 74 61 74 75 73
22 3B 0A 09 6D 79 20 24 6A 6F 62 73 74 61 74 75 73 64 61 74 61 20 3D 20
6A 6F 69 6E 28 22 22 2C 20 3C 4A 4F 42 53 54 41 54 55 53 46 49 4C 45 3E
29 3B 0A 09 63 6C 6F 73 65 20 4A 4F 42 53 54 41 54 55 53 46 49 4C 45 3B
0A 09 23 20 45 78 74 72 61 63 74 20 74 68 65 20 69 6D 70 6F 72 74 61 6E
74 20 66 69 65 6C 64 73 20 66 72 6F 6D 20 74 68 65 20 66 69 6C 65 0A 09
23 20 53 74 61 74 75 73 3A 0A 09 6D 79 20 24 73 74 61 74 75 73 20 3D 20
22 22 3B 0A 09 69 66 20 28 24 6A 6F 62 73 74 61 74 75 73 64 61 74 61 20
3D 7E 20 6D 21 5E 5C 73 2A 73 74 61 74 75 73 5C 73 2A 5C 3D 5C 73 2A 7B
28 5B 5E 7B 7D 5D 2A 29 7D 5C 73 2A 24 21 6D 29 20 7B 0A 09 20 20 20 20
24 73 74 61 74 75 73 20 3D 20 24 31 3B 0A 09 7D 0A 09 23 20 4F 6D 69 74
20 74 68 69 73 20 6A 6F 62 20 77 68 65 6E 20 69 74 20 68 61 73 20 6E 6F
20 73 74 61 74 75 73 20 66 69 65 6C 64 20 6F 72 20 77 68 65 6E 20 74 68
65 20 6A 6F 62 20 69 73 0A 09 23 20 61 6C 72 65 61 64 79 20 66 69 6E 69
73 68 65 64 2C 20 63 61 6E 63 65 6C 6C 65 64 2C 20 6F 72 20 61 62 6F 72
74 65 64 0A 09 6E 65 78 74 20 69 66 20 28 28 24 73 74 61 74 75 73 20 65
71 20 22 22 29 20 7C 7C 20 28 24 73 74 61 74 75 73 20 3D 7E 20 6D 21 61
62 6F 72 74 65 64 21 29 20 7C 7C 20 0A 09 09 20 28 24 73 74 61 74 75 73
20 3D 7E 20 6D 21 66 69 6E 69 73 68 65 64 21 29 20 7C 7C 20 28 24 73 74
61 74 75 73 20 3D 7E 20 6D 21 63 61 6E 63 65 6C 6C 65 64 21 29 29 3B 0A
09 23 20 41 76 6F 69 64 20 73 70 61 63 65 73 20 69 6E 20 74 68 65 20 73
74 61 74 75 73 20 66 69 65 6C 64 2C 20 73 6F 20 74 68 61 74 20 66 72 6F
6E 74 65 6E 64 73 20 63 61 6E 20 73 65 70 61 72 61 74 65 20 74 68 65 0A
09 23 20 66 69 65 6C 64 73 20 66 72 6F 6D 20 74 68 65 20 6A 6F 62 20 6C
69 73 74 20 6D 6F 72 65 20 65 61 73 69 6C 79 2E 0A 09 24 73 74 61 74 75
73 20 3D 7E 20 73 2F 5C 73 2F 2F 67 3B 0A 09 23 20 50 72 69 6E 74 65 72
0A 09 6D 79 20 24 70 72 69 6E 74 65 72 3B 0A 09 69 66 20 28 24 6A 6F 62
73 74 61 74 75 73 64 61 74 61 20 3D 7E 20 6D 21 5E 5C 73 2A 70 72 69 6E
74 65 72 5C 73 2A 5C 3D 5C 73 2A 7B 28 5B 5E 7B 7D 5D 2A 29 7D 5C 73 2A
24 21 6D 29 20 7B 0A 09 20 20 20 20 24 70 72 69 6E 74 65 72 20 3D 20 24
31 3B 0A 09 7D 0A 09 23 20 4F 6D 69 74 20 74 68 69 73 20 6A 6F 62 20 77
68 65 6E 20 77 65 20 61 72 65 20 71 75 65 72 79 69 6E 67 20 6F 6E 6C 79
20 74 68 65 20 6A 6F 62 73 20 6F 66 20 61 6E 6F 74 68 65 72 20 70 72 69
6E 74 65 72 0A 09 6E 65 78 74 20 69 66 20 28 28 21 28 64 65 66 69 6E 65
64 28 24 6F 70 74 5F 61 29 29 29 20 26 26 20 28 24 70 72 69 6E 74 65 72
20 6E 65 20 24 63 6F 6E 66 69 67 2D 3E 7B 27 71 75 65 75 65 27 7D 29 29
3B 0A 09 23 20 4F 77 6E 65 72 0A 09 6D 79 20 24 6F 77 6E 65 72 3B 0A 09
69 66 20 28 24 6A 6F 62 73 74 61 74 75 73 64 61 74 61 20 3D 7E 20 0A 09
6D 21 5E 5C 73 2A 65 6E 76 5F 64 72 69 76 65 72 5C 73 2A 5C 3D 5C 73 2A
7B 2E 2A 5C 22 4C 4F 47 4E 41 4D 45 5C 22 5C 73 2A 3D 5C 73 2A 5C 22 28
5B 5E 5C 22 5D 2A 29 5C 22 2E 2A 7D 5C 73 2A 24 21 6D 29 20 7B 0A 09 20
20 20 20 24 6F 77 6E 65 72 20 3D 20 24 31 3B 0A 09 7D 0A 09 23 20 4F 6D
69 74 20 74 68 69 73 20 6A 6F 62 20 69 66 20 75 73 65 72 20 6E 61 6D 65
73 20 61 72 65 20 73 70 65 63 69 66 69 65 64 20 6F 6E 20 74 68 65 20 63
6F 6D 6D 61 6E 64 20 6C 69 6E 65 2C 20 62 75 74 0A 09 23 20 6E 6F 74 20
74 68 65 20 6F 77 6E 65 72 20 6F 66 20 74 68 69 73 20 6A 6F 62 0A 09 6E
65 78 74 20 69 66 20 28 28 24 6C 69 73 74 61 6C 6C 75 73 65 72 73 20 3D
3D 20 30 29 20 26 26 20 0A 09 09 20 28 21 28 64 65 66 69 6E 65 64 28 24
75 73 65 72 6C 69 73 74 2D 3E 7B 24 6F 77 6E 65 72 7D 29 29 29 29 3B 0A
09 23 20 46 69 6C 65 0A 09 6D 79 20 24 66 69 6C 65 3B 0A 09 69 66 20 28
24 6A 6F 62 73 74 61 74 75 73 64 61 74 61 20 3D 7E 20 6D 21 5E 5C 73 2A
69 6E 70 75 74 5F 66 69 6C 65 6E 61 6D 65 5C 73 2A 5C 3D 5C 73 2A 7B 28
5B 5E 7B 7D 5D 2A 29 7D 5C 73 2A 24 21 6D 29 20 7B 0A 09 20 20 20 20 24
66 69 6C 65 20 3D 20 24 31 3B 0A 09 7D 0A 09 23 20 53 69 7A 65 20 6F 66
20 6A 6F 62 20 69 6E 70 75 74 20 66 69 6C 65 0A 09 6D 79 20 24 73 69 7A
65 3B 0A 09 69 66 20 28 2D 66 20 22 24 45 4E 56 7B 27 48 4F 4D 45 27 7D
2F 2E 70 72 69 6E 74 6A 6F 62 73 2F 24 6A 6F 62 6E 75 6D 62 65 72 73 5B
24 69 5D 2E 72 61 77 22 29 20 7B 0A 09 20 20 20 20 24 73 69 7A 65 20 3D
20 28 73 74 61 74 28 22 24 45 4E 56 7B 27 48 4F 4D 45 27 7D 2F 2E 70 72
69 6E 74 6A 6F 62 73 2F 24 6A 6F 62 6E 75 6D 62 65 72 73 5B 24 69 5D 2E
72 61 77 22 29 29 5B 37 5D 3B 0A 09 7D 0A 0A 09 23 20 4E 6F 77 20 67 65
74 20 74 68 65 20 69 6E 66 6F 20 6E 69 63 65 6C 79 20 6F 6E 74 6F 20 74
68 65 20 73 63 72 65 65 6E 0A 09 6D 79 20 24 6F 75 74 70 75 74 6C 69 6E
65 3B 0A 09 69 66 20 28 24 6F 70 74 5F 6C 29 20 7B 0A 09 20 20 20 20 23
20 4C 6F 6E 67 20 28 33 2B 20 6C 69 6E 65 73 20 70 65 72 20 6A 6F 62 29
20 6D 6F 64 65 0A 09 20 20 20 20 6D 79 20 24 6F 77 6E 65 72 5F 73 74 61
74 75 73 20 3D 20 22 24 6F 77 6E 65 72 3A 20 24 73 74 61 74 75 73 22 3B
0A 09 20 20 20 20 69 66 20 28 6C 65 6E 67 74 68 28 24 6F 77 6E 65 72 5F
73 74 61 74 75 73 29 20 3E 20 34 30 29 20 7B 0A 09 09 24 6F 77 6E 65 72
5F 73 74 61 74 75 73 20 3D 20 73 75 62 73 74 72 28 24 6F 77 6E 65 72 5F
73 74 61 74 75 73 2C 20 30 2C 20 34 30 29 3B 0A 09 20 20 20 20 7D 0A 09
20 20 20 20 69 66 20 28 6C 65 6E 67 74 68 28 24 66 69 6C 65 29 20 3E 20
34 30 29 20 7B 24 66 69 6C 65 20 3D 20 73 75 62 73 74 72 28 24 66 69 6C
65 2C 20 30 2C 20 34 30 29 3B 7D 0A 09 20 20 20 20 24 6F 75 74 70 75 74
6C 69 6E 65 20 3D 20 73 70 72 69 6E 74 66 28 22 5C 6E 25 2D 34 30 73 20
5B 6A 6F 62 20 25 64 5D 5C 6E 5C 74 25 2D 34 30 73 20 25 64 20 62 79 74
65 73 5C 6E 22 2C 0A 09 09 09 09 20 20 24 6F 77 6E 65 72 5F 73 74 61 74
75 73 2C 20 24 6A 6F 62 6E 75 6D 62 65 72 73 5B 24 69 5D 2C 20 24 66 69
6C 65 2C 0A 09 09 09 09 20 20 24 73 69 7A 65 29 3B 0A 09 7D 20 65 6C 73
65 20 7B 0A 09 20 20 20 20 23 20 53 68 6F 72 74 20 28 31 20 6C 69 6E 65
20 70 65 72 20 6A 6F 62 29 20 6D 6F 64 65 0A 09 20 20 20 20 69 66 20 28
24 66 69 72 73 74 6C 69 6E 65 20 3D 3D 20 31 29 20 7B 0A 09 09 23 20 68
65 61 64 6C 69 6E 65 0A 09 09 70 72 69 6E 74 20 22 52 61 6E 6B 20 20 20
4F 77 6E 65 72 20 20 20 20 20 20 4A 6F 62 20 20 46 69 6C 65 28 73 29 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 54 6F 74 61 6C 20 53 69 7A 65 5C 6E 22 3B 0A 09 09 24
66 69 72 73 74 6C 69 6E 65 20 3D 20 30 3B 0A 09 20 20 20 20 7D 0A 09 20
20 20 20 69 66 20 28 6C 65 6E 67 74 68 28 24 73 74 61 74 75 73 29 20 3E
20 36 29 20 7B 24 73 74 61 74 75 73 20 3D 20 73 75 62 73 74 72 28 24 73
74 61 74 75 73 2C 20 30 2C 20 36 29 3B 7D 0A 09 20 20 20 20 69 66 20 28
6C 65 6E 67 74 68 28 24 6F 77 6E 65 72 29 20 3E 20 31 30 29 20 7B 24 6F
77 6E 65 72 20 3D 20 73 75 62 73 74 72 28 24 6F 77 6E 65 72 2C 20 30 2C
20 31 30 29 3B 7D 0A 09 20 20 20 20 69 66 20 28 6C 65 6E 67 74 68 28 24
66 69 6C 65 29 20 3E 20 33 37 29 20 7B 24 66 69 6C 65 20 3D 20 73 75 62
73 74 72 28 24 66 69 6C 65 2C 20 30 2C 20 33 37 29 3B 7D 0A 09 20 20 20
20 24 6F 75 74 70 75 74 6C 69 6E 65 20 3D 20 73 70 72 69 6E 74 66 28 22
25 2D 36 73 20 25 2D 31 30 73 20 25 20 33 64 20 20 25 2D 33 37 73 20 25
64 20 62 79 74 65 73 5C 6E 22 2C 0A 09 09 09 09 20 20 24 73 74 61 74 75
73 2C 20 24 6F 77 6E 65 72 2C 20 24 6A 6F 62 6E 75 6D 62 65 72 73 5B 24
69 5D 2C 20 24 66 69 6C 65 2C 0A 09 09 09 09 20 20 24 73 69 7A 65 29 3B
0A 09 7D 0A 09 70 72 69 6E 74 20 24 6F 75 74 70 75 74 6C 69 6E 65 3B 0A
20 20 20 20 7D 0A 0A 20 20 20 20 23 20 53 61 79 20 22 6E 6F 20 65 6E 74
72 69 65 73 22 20 69 66 20 6E 6F 20 6A 6F 62 20 77 61 73 20 6C 69 73 74
65 64 0A 20 20 20 20 69 66 20 28 24 66 69 72 73 74 6C 69 6E 65 20 3D 3D
20 31 29 20 7B 0A 09 70 72 69 6E 74 20 22 6E 6F 20 65 6E 74 72 69 65 73
5C 6E 22 3B 0A 20 20 20 20 7D 0A 20 20 20 20 0A 7D 0A 0A 73 75 62 20 72
65 6D 6F 76 65 5F 70 64 71 20 7B 0A 20 20 20 20 6D 79 20 28 24 63 6F 6E
66 69 67 29 20 3D 20 24 5F 5B 30 5D 3B 0A 0A 20 20 20 20 23 20 50 44 51
20 68 61 73 20 6E 6F 20 70 6F 73 73 69 62 6C 69 74 79 20 74 6F 20 72 65
6D 6F 76 65 20 70 72 69 6E 74 69 6E 67 20 6A 6F 62 73 20 66 72 6F 6D 20
74 68 65 20 63 6F 6D 6D 61 6E 64 0A 20 20 20 20 23 20 6C 69 6E 65 2E 20
20 22 78 70 64 71 22 20 63 61 6E 63 65 6C 73 20 6A 6F 62 73 20 62 79 20
22 74 6F 75 63 68 22 69 6E 67 20 3C 6A 6F 62 20 69 64 3E 2E 63 61 6E 63
65 6C 6C 65 64 0A 20 20 20 20 23 20 66 69 6C 65 73 20 69 6E 20 7E 2F 2E
70 72 69 6E 74 6A 6F 62 73 20 61 6E 64 20 73 65 74 74 69 6E 67 20 74 68
65 20 70 65 72 6D 69 73 73 69 6F 6E 73 20 6F 66 20 74 68 65 73 65 20 66
69 6C 65 73 0A 20 20 20 20 23 20 74 6F 20 30 36 30 30 2E 0A 0A 20 20 20
20 23 20 4D 61 6B 65 20 73 75 72 65 20 74 68 61 74 20 61 20 70 72 69 6E
74 65 72 20 69 73 20 73 70 65 63 69 66 69 65 64 20 77 68 65 6E 20 74 68
65 20 22 2D 61 22 20 6F 70 74 69 6F 6E 20 69 73 20 6E 6F 74 0A 20 20 20
20 23 20 67 69 76 65 6E 0A 20 20 20 20 69 66 20 28 21 28 64 65 66 69 6E
65 64 28 24 63 6F 6E 66 69 67 2D 3E 7B 27 71 75 65 75 65 27 7D 29 29 29
20 7B 0A 09 24 63 6F 6E 66 69 67 2D 3E 7B 27 71 75 65 75 65 27 7D 20 3D
20 67 65 74 5F 70 64 71 5F 64 65 66 61 75 6C 74 5F 70 72 69 6E 74 65 72
28 29 3B 0A 20 20 20 20 7D 0A 0A 20 20 20 20 23 20 49 66 20 74 68 65 20
75 73 65 72 20 73 70 65 63 69 66 69 65 64 20 6A 6F 62 20 6E 75 6D 62 65
72 73 2C 20 6C 69 73 74 20 74 68 65 6D 2E 20 55 73 65 72 20 6E 61 6D 65
73 20 6F 6E 20 74 68 65 0A 20 20 20 20 23 20 63 6F 6D 6D 61 6E 64 20 6C
69 6E 65 20 64 6F 20 6E 6F 74 20 6D 61 6B 65 20 6D 75 63 68 20 73 65 6E
73 65 2C 20 62 65 63 61 75 73 65 20 75 6E 64 65 72 20 50 44 51 20 61 20
75 73 65 72 20 63 61 6E 0A 20 20 20 20 23 20 6F 6E 6C 79 20 73 65 65 20
6F 6E 65 73 20 6F 77 6E 20 6A 6F 62 73 2C 20 74 68 65 79 20 61 72 65 20
73 75 70 70 6F 72 74 65 64 20 68 65 72 65 20 74 6F 20 64 6F 20 6E 6F 74
20 62 72 65 61 6B 0A 20 20 20 20 23 20 66 72 6F 6E 74 20 65 6E 64 73 0A
20 20 20 20 6D 79 20 24 6A 6F 62 6C 69 73 74 20 3D 20 7B 7D 3B 0A 20 20
20 20 6D 79 20 24 75 73 65 72 6C 69 73 74 20 3D 20 7B 7D 3B 0A 20 20 20
20 6D 79 20 24 6E 6F 6A 6F 62 20 3D 20 31 3B 0A 20 20 20 20 6D 79 20 24
6E 6F 75 73 65 72 20 3D 20 31 3B 0A 20 20 20 20 6D 79 20 24 6F 70 74 5F
61 6C 6C 6A 6F 62 73 20 3D 20 30 3B 0A 20 20 20 20 6D 79 20 24 69 3B 0A
20 20 20 20 66 6F 72 20 28 24 69 20 3D 20 30 3B 20 28 24 69 20 3C 3D 20
24 23 41 52 47 56 29 3B 20 24 69 2B 2B 29 20 7B 0A 09 69 66 20 28 24 41
52 47 56 5B 24 69 5D 20 3D 7E 20 6D 21 5E 5C 73 2A 28 5B 30 2D 39 5D 2B
29 5C 73 2A 24 21 29 20 7B 0A 09 20 20 20 20 6D 79 20 24 6A 6F 62 3D 24
31 3B 0A 09 20 20 20 20 23 20 46 69 6C 6C 20 75 70 20 74 68 65 20 6E 75
6D 62 65 72 20 77 69 74 68 20 7A 65 72 6F 73 20 73 6F 20 74 68 61 74 20
69 74 20 68 61 73 20 74 68 72 65 65 20 64 69 67 69 74 73 0A 09 20 20 20
20 77 68 69 6C 65 20 28 6C 65 6E 67 74 68 28 24 6A 6F 62 29 20 3C 20 33
29 20 7B 24 6A 6F 62 20 3D 20 22 30 22 20 2E 20 24 6A 6F 62 3B 7D 0A 09
20 20 20 20 24 6A 6F 62 6C 69 73 74 2D 3E 7B 24 6A 6F 62 7D 20 3D 20 31
3B 0A 09 20 20 20 20 24 6E 6F 6A 6F 62 20 3D 20 30 3B 0A 09 20 20 20 20
73 70 6C 69 63 65 28 40 41 52 47 56 2C 24 69 2C 31 29 3B 0A 09 20 20 20
20 24 69 2D 2D 3B 0A 09 7D 20 65 6C 73 69 66 20 28 24 41 52 47 56 5B 24
69 5D 20 3D 7E 20 6D 21 5E 5C 73 2A 5B 5E 5C 2D 5D 2B 21 29 20 7B 0A 09
20 20 20 20 6D 79 20 24 75 73 65 72 3D 24 41 52 47 56 5B 24 69 5D 3B 0A
09 20 20 20 20 24 75 73 65 72 6C 69 73 74 2D 3E 7B 24 75 73 65 72 7D 20
3D 20 31 3B 0A 09 20 20 20 20 24 6E 6F 75 73 65 72 20 3D 20 30 3B 0A 09
20 20 20 20 73 70 6C 69 63 65 28 40 41 52 47 56 2C 24 69 2C 31 29 3B 0A
09 20 20 20 20 24 69 2D 2D 3B 0A 09 7D 20 65 6C 73 69 66 20 28 24 41 52
47 56 5B 24 69 5D 20 3D 7E 20 6D 21 5E 5C 73 2A 5C 2D 5C 73 2A 24 21 29
20 7B 0A 09 20 20 20 20 24 6F 70 74 5F 61 6C 6C 6A 6F 62 73 20 3D 20 31
3B 0A 09 20 20 20 20 73 70 6C 69 63 65 28 40 41 52 47 56 2C 24 69 2C 31
29 3B 0A 09 20 20 20 20 24 69 2D 2D 3B 0A 09 7D 20 65 6C 73 65 20 7B 0A
09 20 20 20 20 64 69 65 20 22 55 6E 6B 6E 6F 77 6E 20 6F 70 74 69 6F 6E
3A 20 24 41 52 47 56 5B 24 69 5D 5C 6E 22 3B 0A 09 7D 0A 20 20 20 20 7D
0A 0A 20 20 20 20 23 20 44 6F 65 73 20 74 68 65 20 63 68 6F 73 65 6E 20
70 72 69 6E 74 65 72 20 65 78 69 73 74 0A 20 20 20 20 69 66 20 28 21 70
64 71 5F 63 68 65 63 6B 5F 70 72 69 6E 74 65 72 28 24 63 6F 6E 66 69 67
2D 3E 7B 27 71 75 65 75 65 27 7D 29 29 20 7B 0A 09 64 69 65 20 22 24 63
6F 6E 66 69 67 2D 3E 7B 27 71 75 65 75 65 27 7D 3A 20 75 6E 6B 6E 6F 77
6E 20 70 72 69 6E 74 65 72 5C 6E 22 3B 0A 20 20 20 20 7D 0A 0A 20 20 20
20 23 20 52 65 61 64 20 69 6E 20 74 68 65 20 6E 61 6D 65 73 20 6F 66 20
61 6C 6C 20 6A 6F 62 20 73 74 61 74 75 73 20 66 69 6C 65 73 20 69 6E 20
7E 2F 2E 70 72 69 6E 74 6A 6F 62 73 2F 0A 20 20 20 20 6D 79 20 40 6A 6F
62 6E 75 6D 62 65 72 73 20 3D 20 28 29 3B 0A 20 20 20 20 6F 70 65 6E 64
69 72 20 50 4A 44 49 52 2C 20 22 24 45 4E 56 7B 27 48 4F 4D 45 27 7D 2F
2E 70 72 69 6E 74 6A 6F 62 73 22 20 7C 7C 20 0A 09 72 65 74 75 72 6E 20
30 3B 20 20 23 20 4E 6F 20 7E 2F 2E 70 72 69 6E 74 6A 6F 62 73 2F 20 64
69 72 65 63 74 6F 72 79 20 3D 3D 3E 20 6E 6F 20 6A 6F 62 73 0A 20 20 20
20 77 68 69 6C 65 20 28 24 66 69 6C 65 6E 61 6D 65 20 3D 20 72 65 61 64
64 69 72 28 50 4A 44 49 52 29 29 20 7B 0A 09 69 66 20 28 24 66 69 6C 65
6E 61 6D 65 20 3D 7E 20 6D 21 5E 28 5B 30 2D 39 5D 5B 30 2D 39 5D 5B 30
2D 39 5D 29 2E 73 74 61 74 75 73 24 21 29 20 7B 0A 09 20 20 20 20 70 75
73 68 20 28 40 6A 6F 62 6E 75 6D 62 65 72 73 2C 20 24 31 29 3B 0A 09 7D
0A 20 20 20 20 7D 0A 20 20 20 20 63 6C 6F 73 65 20 50 4A 44 49 52 3B 0A
20 20 20 20 23 20 53 6F 72 74 20 74 68 65 20 66 69 6C 65 6E 61 6D 65 73
20 69 6E 20 64 65 73 63 65 6E 64 69 6E 67 20 6F 72 64 65 72 20 74 6F 20
67 65 74 20 74 68 65 20 6D 6F 73 74 20 72 65 63 65 6E 74 0A 20 20 20 20
23 20 28 70 72 6F 62 61 62 6C 79 20 73 74 69 6C 6C 20 77 61 69 74 69 6E
67 29 20 6A 6F 62 73 20 72 65 6D 6F 76 65 64 20 61 74 20 66 69 72 73 74
0A 20 20 20 20 40 6A 6F 62 6E 75 6D 62 65 72 73 20 3D 20 73 6F 72 74 20
7B 24 62 20 63 6D 70 20 24 61 7D 20 40 6A 6F 62 6E 75 6D 62 65 72 73 3B
0A 0A 20 20 20 20 23 20 4E 6F 77 20 73 65 61 72 63 68 20 74 68 65 20 6A
6F 62 73 20 74 6F 20 72 65 6D 6F 76 65 0A 20 20 20 20 6D 79 20 24 6E 6F
74 68 69 6E 67 72 65 6D 6F 76 65 64 20 3D 20 31 3B 0A 20 20 20 20 6D 79
20 24 6D 6F 73 74 72 65 63 65 6E 74 20 3D 20 31 3B 0A 20 20 20 20 66 6F
72 20 28 24 69 20 3D 20 30 3B 20 24 69 20 3C 3D 20 24 23 6A 6F 62 6E 75
6D 62 65 72 73 3B 20 24 69 20 2B 2B 29 20 7B 0A 09 23 20 52 65 61 64 20
74 68 65 20 6A 6F 62 20 73 74 61 74 75 73 20 66 69 6C 65 0A 09 6E 65 78
74 20 69 66 20 21 6F 70 65 6E 20 4A 4F 42 53 54 41 54 55 53 46 49 4C 45
2C 20 0A 09 22 3C 20 24 45 4E 56 7B 27 48 4F 4D 45 27 7D 2F 2E 70 72 69
6E 74 6A 6F 62 73 2F 24 6A 6F 62 6E 75 6D 62 65 72 73 5B 24 69 5D 2E 73
74 61 74 75 73 22 3B 0A 09 6D 79 20 24 6A 6F 62 73 74 61 74 75 73 64 61
74 61 20 3D 20 6A 6F 69 6E 28 22 22 2C 20 3C 4A 4F 42 53 54 41 54 55 53
46 49 4C 45 3E 29 3B 0A 09 63 6C 6F 73 65 20 4A 4F 42 53 54 41 54 55 53
46 49 4C 45 3B 0A 09 23 20 45 78 74 72 61 63 74 20 74 68 65 20 69 6D 70
6F 72 74 61 6E 74 20 66 69 65 6C 64 73 20 66 72 6F 6D 20 74 68 65 20 66
69 6C 65 0A 09 23 20 53 74 61 74 75 73 3A 0A 09 6D 79 20 24 73 74 61 74
75 73 20 3D 20 22 22 3B 0A 09 69 66 20 28 24 6A 6F 62 73 74 61 74 75 73
64 61 74 61 20 3D 7E 20 6D 21 5E 5C 73 2A 73 74 61 74 75 73 5C 73 2A 5C
3D 5C 73 2A 7B 28 5B 5E 7B 7D 5D 2A 29 7D 5C 73 2A 24 21 6D 29 20 7B 0A
09 20 20 20 20 24 73 74 61 74 75 73 20 3D 20 24 31 3B 0A 09 7D 0A 09 23
20 4F 6D 69 74 20 74 68 69 73 20 6A 6F 62 20 77 68 65 6E 20 69 74 20 69
73 20 61 6C 72 65 61 64 79 20 66 69 6E 69 73 68 65 64 2C 20 63 61 6E 63
65 6C 6C 65 64 2C 20 6F 72 20 61 62 6F 72 74 65 64 0A 20 20 20 20 20 20
20 20 23 20 28 74 68 65 6E 20 69 74 20 63 61 6E 6E 6F 74 20 62 65 20 6B
69 6C 6C 65 64 20 61 6E 79 20 6D 6F 72 65 29 0A 09 6E 65 78 74 20 69 66
20 28 28 24 73 74 61 74 75 73 20 65 71 20 22 22 29 20 7C 7C 20 28 24 73
74 61 74 75 73 20 3D 7E 20 6D 21 61 62 6F 72 74 65 64 21 29 20 7C 7C 20
0A 09 09 20 28 24 73 74 61 74 75 73 20 3D 7E 20 6D 21 66 69 6E 69 73 68
65 64 21 29 20 7C 7C 20 28 24 73 74 61 74 75 73 20 3D 7E 20 6D 21 63 61
6E 63 65 6C 6C 65 64 21 29 29 3B 0A 09 23 20 50 72 69 6E 74 65 72 0A 09
6D 79 20 24 70 72 69 6E 74 65 72 3B 0A 09 69 66 20 28 24 6A 6F 62 73 74
61 74 75 73 64 61 74 61 20 3D 7E 20 6D 21 5E 5C 73 2A 70 72 69 6E 74 65
72 5C 73 2A 5C 3D 5C 73 2A 7B 28 5B 5E 7B 7D 5D 2A 29 7D 5C 73 2A 24 21
6D 29 20 7B 0A 09 20 20 20 20 24 70 72 69 6E 74 65 72 20 3D 20 24 31 3B
0A 09 7D 0A 09 23 20 4F 6D 69 74 20 74 68 69 73 20 6A 6F 62 20 77 68 65
6E 20 77 65 20 77 61 6E 74 20 74 6F 20 72 65 6D 6F 76 65 20 6A 6F 62 73
20 6F 6E 20 61 6E 6F 74 68 65 72 20 70 72 69 6E 74 65 72 0A 09 6E 65 78
74 20 69 66 20 28 28 21 28 64 65 66 69 6E 65 64 28 24 6F 70 74 5F 61 29
29 29 20 26 26 20 28 24 70 72 69 6E 74 65 72 20 6E 65 20 24 63 6F 6E 66
69 67 2D 3E 7B 27 71 75 65 75 65 27 7D 29 29 3B 0A 09 23 20 4F 77 6E 65
72 0A 09 6D 79 20 24 6F 77 6E 65 72 3B 0A 09 69 66 20 28 24 6A 6F 62 73
74 61 74 75 73 64 61 74 61 20 3D 7E 20 0A 09 6D 21 5E 5C 73 2A 65 6E 76
5F 64 72 69 76 65 72 5C 73 2A 5C 3D 5C 73 2A 7B 2E 2A 5C 22 4C 4F 47 4E
41 4D 45 5C 22 5C 73 2A 3D 5C 73 2A 5C 22 28 5B 5E 5C 22 5D 2A 29 5C 22
2E 2A 7D 5C 73 2A 24 21 6D 29 20 7B 0A 09 20 20 20 20 24 6F 77 6E 65 72
20 3D 20 24 31 3B 0A 09 7D 0A 0A 09 23 20 4B 69 6C 6C 20 74 68 65 20 6A
6F 62 20 77 68 65 6E 20 69 74 20 69 73 20 69 6E 20 74 68 65 20 73 63 6F
70 65 20 6F 66 20 6A 6F 62 73 20 64 65 66 69 6E 65 64 20 62 79 20 74 68
65 0A 09 23 20 63 6F 6D 6D 61 6E 64 20 6C 69 6E 65 0A 09 69 66 20 28 28
28 24 6E 6F 6A 6F 62 20 3D 3D 20 30 29 20 26 26 20 28 64 65 66 69 6E 65
64 28 24 6A 6F 62 6C 69 73 74 2D 3E 7B 24 6A 6F 62 6E 75 6D 62 65 72 73
5B 24 69 5D 7D 29 29 29 20 7C 7C 20 0A 09 20 20 20 20 28 28 24 6E 6F 75
73 65 72 20 3D 3D 20 30 29 20 26 26 20 28 64 65 66 69 6E 65 64 28 24 75
73 65 72 6C 69 73 74 2D 3E 7B 24 6F 77 6E 65 72 7D 29 29 29 20 7C 7C 0A
09 20 20 20 20 28 28 24 6F 70 74 5F 61 6C 6C 6A 6F 62 73 20 3D 3D 20 31
29 20 26 26 20 28 24 45 4E 56 7B 27 4C 4F 47 4E 41 4D 45 27 7D 20 65 71
20 24 6F 77 6E 65 72 29 29 20 7C 7C 0A 09 20 20 20 20 28 28 24 6F 70 74
5F 61 6C 6C 6A 6F 62 73 20 3D 3D 20 31 29 20 26 26 20 28 24 45 4E 56 7B
27 4C 4F 47 4E 41 4D 45 27 7D 20 65 71 20 22 72 6F 6F 74 22 29 29 20 7C
7C 0A 09 20 20 20 20 28 28 24 6D 6F 73 74 72 65 63 65 6E 74 20 3D 3D 20
31 29 20 26 26 20 28 24 6E 6F 6A 6F 62 20 3D 3D 20 31 29 20 26 26 20 28
24 6E 6F 75 73 65 72 20 3D 3D 20 31 29 20 26 26 20 0A 09 20 20 20 20 20
28 24 6F 70 74 5F 61 6C 6C 6A 6F 62 73 20 3D 3D 20 30 29 29 29 20 7B 0A
09 20 20 20 20 73 79 73 74 65 6D 28 22 74 6F 75 63 68 20 24 45 4E 56 7B
27 48 4F 4D 45 27 7D 2F 2E 70 72 69 6E 74 6A 6F 62 73 2F 24 6A 6F 62 6E
75 6D 62 65 72 73 5B 24 69 5D 2E 63 61 6E 63 65 6C 6C 65 64 3B 20 63 68
6D 6F 64 20 30 36 30 30 20 24 45 4E 56 7B 27 48 4F 4D 45 27 7D 2F 2E 70
72 69 6E 74 6A 6F 62 73 2F 24 6A 6F 62 6E 75 6D 62 65 72 73 5B 24 69 5D
2E 63 61 6E 63 65 6C 6C 65 64 22 29 3B 0A 09 20 20 20 20 70 72 69 6E 74
20 53 54 44 45 52 52 20 22 43 61 6E 63 65 6C 20 72 65 71 75 65 73 74 20
66 6F 72 20 6A 6F 62 20 24 6A 6F 62 6E 75 6D 62 65 72 73 5B 24 69 5D 20
73 75 62 6D 69 74 74 65 64 21 5C 6E 22 3B 0A 09 20 20 20 20 24 6E 6F 74
68 69 6E 67 72 65 6D 6F 76 65 64 20 3D 20 30 3B 0A 09 7D 0A 09 24 6D 6F
73 74 72 65 63 65 6E 74 20 3D 20 30 3B 0A 20 20 20 20 7D 0A 0A 20 20 20
20 23 20 53 61 79 20 22 4E 6F 20 63 61 6E 63 65 6C 20 72 65 71 75 65 73
74 20 73 65 6E 74 22 20 69 66 20 6E 6F 20 6A 6F 62 20 77 61 73 20 6B 69
6C 6C 65 64 0A 20 20 20 20 69 66 20 28 24 6E 6F 74 68 69 6E 67 72 65 6D
6F 76 65 64 20 3D 3D 20 31 29 20 7B 0A 09 70 72 69 6E 74 20 53 54 44 45
52 52 20 22 6E 6F 20 63 61 6E 63 65 6C 20 72 65 71 75 65 73 74 20 73 65
6E 74 5C 6E 22 3B 0A 20 20 20 20 7D 0A 7D 0A 0A 73 75 62 20 63 6F 6E 74
72 6F 6C 5F 70 64 71 20 7B 0A 0A 20 20 20 20 23 20 50 44 51 20 64 6F 65
73 20 6E 6F 74 20 68 61 76 65 20 66 75 6E 63 74 69 6F 6E 61 6C 69 74 79
20 66 6F 72 20 65 6E 61 62 6C 69 6E 67 2F 64 69 73 61 62 6C 69 6E 67 20
71 75 65 75 65 73 2C 20 0A 20 20 20 20 23 20 68 6F 6C 64 69 6E 67 2F 72
65 6C 65 61 73 69 6E 67 2F 6D 6F 76 69 6E 67 20 6A 6F 62 73 2C 20 65 74
63 2E 0A 0A 20 20 20 20 64 69 65 20 22 41 64 76 61 6E 63 65 64 20 71 75
65 75 65 2F 6A 6F 62 20 6D 61 6E 69 70 75 6C 61 74 69 6F 6E 20 66 75 6E
63 74 69 6F 6E 61 6C 69 74 79 20 69 73 20 6E 6F 74 20 73 75 70 70 6F 72
74 65 64 20 75 6E 64 65 72 20 50 44 51 21 5C 6E 22 3B 0A 0A 7D 0A 0A 73
75 62 20 67 65 74 5F 70 64 71 5F 64 65 66 61 75 6C 74 5F 70 72 69 6E 74
65 72 20 7B 0A 0A 20 20 20 20 23 20 52 65 61 64 20 74 68 65 20 68 65 6C
70 20 6D 65 73 73 61 67 65 20 6F 66 20 50 44 51 0A 20 20 20 20 6F 70 65
6E 20 50 44 51 48 45 4C 50 2C 20 22 70 64 71 20 2D 2D 68 65 6C 70 20 32
3E 26 31 20 7C 22 3B 0A 20 20 20 20 24 70 64 71 68 65 6C 70 20 3D 20 6A
6F 69 6E 20 28 22 22 2C 20 3C 50 44 51 48 45 4C 50 3E 29 3B 0A 20 20 20
20 63 6C 6F 73 65 20 50 44 51 48 45 4C 50 3B 0A 0A 20 20 20 20 23 20 53
65 61 72 63 68 20 74 68 65 20 22 64 65 66 61 75 6C 74 22 20 6C 69 6E 65
0A 20 20 20 20 69 66 20 28 24 70 64 71 68 65 6C 70 20 3D 7E 20 6D 21 64
65 66 61 75 6C 74 5C 73 2B 70 72 69 6E 74 65 72 2E 2A 5C 73 2B 28 5C 53
2B 29 5C 73 2A 24 21 6D 67 29 20 7B 0A 09 72 65 74 75 72 6E 20 24 31 3B
0A 20 20 20 20 7D 20 65 6C 73 65 20 7B 0A 09 64 69 65 20 22 4E 6F 20 64
65 66 61 75 6C 74 20 70 72 69 6E 74 65 72 20 64 65 66 69 6E 65 64 2C 20
79 6F 75 20 68 61 76 65 20 74 6F 20 73 70 65 63 69 66 79 20 61 20 70 72
69 6E 74 65 72 20 77 69 74 68 20 5C 22 2D 50 5C 22 20 6F 72 20 5C 22 2D
64 5C 22 21 5C 6E 22 3B 0A 20 20 20 20 7D 0A 0A 7D 0A 0A 73 75 62 20 70
64 71 5F 63 68 65 63 6B 5F 70 72 69 6E 74 65 72 20 7B 0A 20 20 20 20 6D
79 20 24 70 72 69 6E 74 65 72 20 3D 20 24 5F 5B 30 5D 3B 0A 0A 20 20 20
20 23 20 52 65 61 64 20 74 68 65 20 68 65 6C 70 20 6D 65 73 73 61 67 65
20 6F 66 20 50 44 51 0A 20 20 20 20 6F 70 65 6E 20 50 44 51 48 45 4C 50
2C 20 22 70 64 71 20 2D 2D 68 65 6C 70 20 32 3E 26 31 20 7C 22 3B 0A 20
20 20 20 24 70 64 71 68 65 6C 70 20 3D 20 6A 6F 69 6E 20 28 22 22 2C 20
3C 50 44 51 48 45 4C 50 3E 29 3B 0A 20 20 20 20 63 6C 6F 73 65 20 50 44
51 48 45 4C 50 3B 0A 0A 20 20 20 20 23 20 53 65 61 72 63 68 20 74 68 65
20 61 70 70 72 6F 70 72 69 61 74 65 20 70 72 69 6E 74 65 72 20 65 6E 74
72 79 0A 20 20 20 20 72 65 74 75 72 6E 20 28 24 70 64 71 68 65 6C 70 20
3D 7E 20 6D 21 5E 5C 73 2B 24 70 72 69 6E 74 65 72 5C 73 2B 5C 2D 5C 73
2B 2E 2A 5C 73 2B 5C 2D 5C 73 2A 24 21 6D 67 29 3B 0A 0A 7D 0A 0A 73 75
62 20 64 65 74 65 63 74 5F 73 70 6F 6F 6C 65 72 20 7B 0A 20 20 20 20 23
20 49 66 20 74 63 70 2F 6C 6F 63 61 6C 68 6F 73 74 3A 36 33 31 20 6F 70
65 6E 73 2C 20 63 75 70 73 0A 20 20 20 20 6D 79 20 24 70 61 67 65 20 3D
20 24 64 62 2D 3E 67 65 74 70 61 67 65 28 27 68 74 74 70 3A 2F 2F 6C 6F
63 61 6C 68 6F 73 74 3A 36 33 31 2F 27 2C 20 31 29 3B 0A 20 20 20 20 69
66 20 28 24 70 61 67 65 20 3D 7E 20 6D 21 43 6F 6D 6D 6F 6E 20 55 4E 49
58 20 50 72 69 6E 74 69 6E 67 20 53 79 73 74 65 6D 21 29 20 7B 0A 09 72
65 74 75 72 6E 20 27 63 75 70 73 27 3B 0A 20 20 20 20 7D 0A 0A 20 20 20
20 23 20 45 6C 73 65 20 69 66 20 2F 65 74 63 2F 70 72 69 6E 74 63 61 70
2C 20 73 6F 6D 65 20 73 6F 72 74 20 6F 66 20 6C 70 64 20 74 68 69 6E 67
0A 20 20 20 20 69 66 20 28 2D 66 20 24 73 79 73 64 65 70 73 2D 3E 7B 27
6C 70 64 2D 70 63 61 70 27 7D 29 20 7B 0A 09 23 20 49 66 20 2D 66 20 2F
65 74 63 2F 6C 70 64 2E 63 6F 6E 66 2C 20 6C 70 72 6E 67 0A 09 69 66 20
28 2D 66 20 24 73 79 73 64 65 70 73 2D 3E 7B 27 6C 70 72 6E 67 2D 63 6F
6E 66 27 7D 29 20 7B 0A 09 20 20 20 20 72 65 74 75 72 6E 20 27 6C 70 72
6E 67 27 3B 0A 09 7D 20 65 6C 73 69 66 20 28 2D 78 20 24 73 79 73 64 65
70 73 2D 3E 7B 27 6C 70 64 2D 62 69 6E 27 7D 29 20 7B 0A 09 20 20 20 20
23 20 54 68 65 72 65 27 73 20 61 20 2F 75 73 72 2F 73 62 69 6E 2F 6C 70
64 0A 09 20 20 20 20 72 65 74 75 72 6E 20 27 6C 70 64 27 3B 0A 09 7D 0A
20 20 20 20 7D 0A 0A 20 20 20 20 23 20 70 64 71 20 65 78 65 63 75 74 61
62 6C 65 20 69 6E 20 6F 75 72 20 70 61 74 68 20 73 6F 6D 65 77 68 65 72
65 3F 0A 20 20 20 20 66 6F 72 20 28 73 70 6C 69 74 28 27 3A 27 2C 20 24
45 4E 56 7B 27 50 41 54 48 27 7D 29 29 20 7B 0A 09 69 66 20 28 2D 78 20
22 24 5F 2F 70 64 71 22 29 20 7B 0A 09 20 20 20 20 72 65 74 75 72 6E 20
27 70 64 71 27 3B 0A 09 7D 0A 20 20 20 20 7D 0A 0A 20 20 20 20 72 65 74
75 72 6E 20 75 6E 64 65 66 3B 0A 7D 0A 0A 73 75 62 20 75 6E 69 6D 70 20
7B 0A 20 20 20 20 64 69 65 20 22 53 6F 72 72 79 2C 20 24 61 63 74 69 6F
6E 20 66 6F 72 20 79 6F 75 72 20 73 70 6F 6F 6C 65 72 20 69 73 20 75 6E
69 6D 70 6C 65 6D 65 6E 74 65 64 2E 2E 2E 5C 6E 22 3B 0A 7D 0A 0A 73 75
62 20 68 65 6C 70 20 7B 0A 0A 20 20 20 20 6D 79 20 24 61 63 74 69 6F 6E
20 3D 20 27 61 6C 6C 27 3B 0A 23 20 53 65 74 20 75 70 20 74 68 65 20 68
65 6C 70 20 6D 65 73 73 61 67 65 20 64 65 70 65 6E 64 69 6E 67 20 6F 6E
20 68 6F 77 20 77 65 20 77 65 72 65 20 63 61 6C 6C 65 64 0A 20 20 20 20
69 66 20 28 24 70 72 6F 67 6E 61 6D 65 20 3D 7E 20 6D 21 5E 6C 70 63 21
29 20 7B 20 23 20 27 6C 70 63 2A 27 20 3D 3D 3E 20 63 6F 6E 74 72 6F 6C
20 0A 09 24 61 63 74 69 6F 6E 20 3D 20 27 63 6F 6E 74 72 6F 6C 27 3B 0A
09 70 72 69 6E 74 20 53 54 44 45 52 52 20 3C 3C 45 4F 46 3B 0A 55 73 61
67 65 3A 20 24 70 72 6F 67 6E 61 6D 65 20 5B 20 2D 73 20 73 70 6F 6F 6C
65 72 20 5D 20 5B 20 2D 69 20 5D 20 63 6F 6D 6D 61 6E 64 20 5B 20 61 72
67 75 6D 65 6E 74 73 20 5D 0A 20 20 20 20 6F 72 20 24 70 72 6F 67 6E 61
6D 65 20 2D 68 0A 45 4F 46 0A 20 20 20 20 7D 20 65 6C 73 69 66 20 28 24
70 72 6F 67 6E 61 6D 65 20 3D 7E 20 6D 21 5E 6C 70 72 6D 21 29 20 7B 20
23 20 27 6C 70 72 6D 2A 27 20 3D 3D 3E 20 72 65 6D 6F 76 65 20 6A 6F 62
73 20 0A 09 24 61 63 74 69 6F 6E 20 3D 20 27 72 65 6D 6F 76 65 27 3B 0A
09 70 72 69 6E 74 20 53 54 44 45 52 52 20 3C 3C 45 4F 46 3B 20 0A 55 73
61 67 65 3A 20 24 70 72 6F 67 6E 61 6D 65 20 5B 20 2D 73 20 73 70 6F 6F
6C 65 72 20 5D 20 5B 20 2D 50 20 71 75 65 75 65 6E 61 6D 65 20 5D 20 5B
20 2D 20 5D 20 5B 20 2D 69 20 5D 20 5B 20 6A 6F 62 69 64 31 20 6A 6F 62
69 64 32 20 2E 2E 2E 20 5D 0A 20 20 20 20 6F 72 20 24 70 72 6F 67 6E 61
6D 65 20 2D 68 0A 45 4F 46 0A 20 20 20 20 7D 20 65 6C 73 69 66 20 28 24
70 72 6F 67 6E 61 6D 65 20 3D 7E 20 6D 21 5E 6C 70 71 21 29 20 7B 20 23
20 27 6C 70 71 2A 27 20 3D 3D 3E 20 6C 69 73 74 20 6A 6F 62 73 20 0A 09
24 61 63 74 69 6F 6E 20 3D 20 27 71 75 65 72 79 27 3B 0A 09 70 72 69 6E
74 20 53 54 44 45 52 52 20 3C 3C 45 4F 46 3B 0A 55 73 61 67 65 3A 20 24
70 72 6F 67 6E 61 6D 65 20 5B 20 2D 73 20 73 70 6F 6F 6C 65 72 20 5D 20
5B 20 2D 50 20 71 75 65 75 65 6E 61 6D 65 20 5D 20 5B 20 2D 69 20 5D 20
5B 20 2D 61 20 5D 20 5B 20 75 73 65 72 31 20 75 73 65 72 32 20 2E 2E 2E
20 5D 0A 20 20 20 20 6F 72 20 24 70 72 6F 67 6E 61 6D 65 20 2D 68 0A 45
4F 46 0A 20 20 20 20 7D 20 65 6C 73 69 66 20 28 28 24 70 72 6F 67 6E 61
6D 65 20 3D 7E 20 6D 21 5E 6C 70 72 21 29 20 7C 7C 20 28 24 70 72 6F 67
6E 61 6D 65 20 3D 7E 20 6D 21 5E 6C 70 21 29 29 20 7B 20 23 20 27 6C 70
72 2A 27 2C 20 27 6C 70 2A 27 20 3D 3D 3E 20 70 72 69 6E 74 20 0A 09 24
61 63 74 69 6F 6E 20 3D 20 27 70 72 69 6E 74 27 3B 0A 09 70 72 69 6E 74
20 53 54 44 45 52 52 20 3C 3C 45 4F 46 3B 0A 55 73 61 67 65 3A 20 24 70
72 6F 67 6E 61 6D 65 20 5B 20 2D 73 20 73 70 6F 6F 6C 65 72 20 5D 20 5B
20 2D 50 20 71 75 65 75 65 6E 61 6D 65 20 5D 20 5C 0A 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 5B 20 2D 6F 20 6F 70 74 69 6F 6E 31 3D 76 61
6C 75 65 31 20 2D 6F 20 6F 70 74 69 6F 6E 32 20 2E 2E 2E 20 5D 20 5B 20
2D 69 20 5D 20 5B 20 66 69 6C 65 31 20 66 69 6C 65 32 20 2E 2E 2E 20 5D
0A 20 20 20 20 6F 72 20 24 70 72 6F 67 6E 61 6D 65 20 2D 53 20 5B 20 2D
73 20 73 70 6F 6F 6C 65 72 20 5D 20 5B 20 2D 69 20 5D 0A 20 20 20 20 6F
72 20 24 70 72 6F 67 6E 61 6D 65 20 2D 68 20 5B 20 2D 73 20 73 70 6F 6F
6C 65 72 20 5D 20 5B 20 2D 50 20 71 75 65 75 65 6E 61 6D 65 20 5D 20 5B
20 2D 69 20 5D 0A 45 4F 46 0A 20 20 20 20 7D 20 65 6C 73 65 20 7B 20 23
20 6E 61 6D 65 20 64 6F 65 73 20 6E 6F 74 20 64 65 74 65 72 6D 69 6E 65
20 74 68 65 20 61 63 74 69 6F 6E 0A 09 70 72 69 6E 74 20 53 54 44 45 52
52 20 3C 3C 45 4F 46 3B 0A 55 73 61 67 65 3A 20 24 70 72 6F 67 6E 61 6D
65 20 5B 20 2D 73 20 73 70 6F 6F 6C 65 72 20 5D 20 5B 20 2D 50 20 71 75
65 75 65 6E 61 6D 65 20 5D 20 5C 0A 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 5B 20 2D 6F 20 6F 70 74 69 6F 6E 31 3D 76 61 6C 75 65 31 20 2D
6F 20 6F 70 74 69 6F 6E 32 20 2E 2E 2E 20 5D 20 5B 20 2D 69 20 5D 20 5C
0A 09 20 20 20 20 20 20 20 5B 20 66 69 6C 65 31 20 66 69 6C 65 32 20 2E
2E 2E 20 5D 0A 20 20 20 20 6F 72 20 24 70 72 6F 67 6E 61 6D 65 20 2D 51
20 5B 20 2D 73 20 73 70 6F 6F 6C 65 72 20 5D 20 5B 20 2D 50 20 71 75 65
75 65 6E 61 6D 65 20 5D 20 5B 20 2D 69 20 5D 20 5B 20 2D 61 20 5D 20 5C
0A 09 20 20 20 20 20 20 20 5B 20 75 73 65 72 31 20 75 73 65 72 32 20 2E
2E 2E 20 5D 0A 20 20 20 20 6F 72 20 24 70 72 6F 67 6E 61 6D 65 20 2D 52
20 5B 20 2D 73 20 73 70 6F 6F 6C 65 72 20 5D 20 5B 20 2D 50 20 71 75 65
75 65 6E 61 6D 65 20 5D 20 5B 20 2D 20 5D 20 5B 20 2D 69 20 5D 20 5C 0A
09 20 20 20 20 20 20 20 5B 20 6A 6F 62 69 64 31 20 6A 6F 62 69 64 32 20
2E 2E 2E 20 5D 0A 20 20 20 20 6F 72 20 24 70 72 6F 67 6E 61 6D 65 20 2D
43 20 5B 20 2D 73 20 73 70 6F 6F 6C 65 72 20 5D 20 5B 20 2D 69 20 5D 20
63 6F 6D 6D 61 6E 64 20 5B 20 61 72 67 75 6D 65 6E 74 73 20 5D 0A 20 20
20 20 6F 72 20 24 70 72 6F 67 6E 61 6D 65 20 2D 53 20 5B 20 2D 73 20 73
70 6F 6F 6C 65 72 20 5D 20 5B 20 2D 69 20 5D 0A 20 20 20 20 6F 72 20 24
70 72 6F 67 6E 61 6D 65 20 2D 68 20 5B 20 2D 73 20 73 70 6F 6F 6C 65 72
20 5D 20 5B 20 2D 50 20 71 75 65 75 65 6E 61 6D 65 20 5D 20 5B 20 2D 69
20 5D 0A 45 4F 46 0A 20 20 20 20 7D 0A 0A 20 20 20 20 20 70 72 69 6E 74
20 53 54 44 45 52 52 20 3C 3C 45 4F 46 3B 0A 0A 20 2D 73 20 73 70 6F 6F
6C 65 72 20 20 20 20 20 20 45 78 70 6C 69 63 69 74 20 73 70 6F 6F 6C 65
72 20 74 79 70 65 20 28 63 75 70 73 2C 6C 70 64 2C 6C 70 72 6E 67 2C 70
64 71 29 0A 45 4F 46 0A 0A 20 20 20 20 69 66 20 28 24 61 63 74 69 6F 6E
20 6E 65 20 27 63 6F 6E 74 72 6F 6C 27 29 20 7B 0A 09 70 72 69 6E 74 20
53 54 44 45 52 52 20 3C 3C 45 4F 46 3B 0A 20 2D 50 20 71 75 65 75 65 6E
61 6D 65 20 20 20 20 43 6F 6D 6D 61 6E 64 20 73 68 6F 75 6C 64 20 61 70
70 6C 79 20 74 6F 20 74 68 69 73 20 71 75 65 75 65 0A 45 4F 46 0A 20 20
20 20 7D 0A 0A 20 20 20 20 69 66 20 28 28 24 61 63 74 69 6F 6E 20 65 71
20 27 70 72 69 6E 74 27 29 20 7C 7C 20 28 24 61 63 74 69 6F 6E 20 65 71
20 27 61 6C 6C 27 29 29 20 7B 0A 09 70 72 69 6E 74 20 53 54 44 45 52 52
20 3C 3C 45 4F 46 3B 0A 20 2D 6F 20 6F 70 74 69 6F 6E 3D 76 61 6C 75 65
20 53 65 74 20 6F 70 74 69 6F 6E 20 74 6F 20 76 61 6C 75 65 0A 20 2D 6F
20 6F 70 74 69 6F 6E 20 20 20 20 20 20 20 53 65 74 20 74 68 65 20 73 77
69 74 63 68 20 6F 70 74 69 6F 6E 0A 20 2D 5C 23 20 6E 20 20 20 20 20 20
20 20 20 20 20 20 50 72 69 6E 74 20 6E 20 63 6F 70 69 65 73 0A 20 66 69
6C 65 31 20 66 69 6C 65 32 20 2E 2E 2E 20 46 69 6C 65 73 20 74 6F 20 62
65 20 70 72 69 6E 74 65 64 2C 20 77 68 65 6E 20 6E 6F 20 66 69 6C 65 20
69 73 20 67 69 76 65 6E 2C 20 73 74 61 6E 64 61 72 64 20 69 6E 70 75 74
0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 69 6C 6C 20 62
65 20 70 72 69 6E 74 65 64 0A 45 4F 46 0A 20 20 20 20 7D 0A 0A 20 20 20
20 69 66 20 28 24 61 63 74 69 6F 6E 20 65 71 20 27 61 6C 6C 27 29 20 7B
0A 09 70 72 69 6E 74 20 53 54 44 45 52 52 20 3C 3C 45 4F 46 3B 0A 20 2D
51 20 20 20 20 20 20 20 20 20 20 20 20 20 20 51 75 65 72 79 20 74 68 65
20 6A 6F 62 73 20 69 6E 20 61 20 71 75 65 75 65 0A 45 4F 46 0A 20 20 20
20 7D 0A 0A 20 20 20 20 69 66 20 28 28 24 61 63 74 69 6F 6E 20 65 71 20
27 71 75 65 72 79 27 29 20 7C 7C 20 28 24 61 63 74 69 6F 6E 20 65 71 20
27 61 6C 6C 27 29 29 20 7B 0A 09 70 72 69 6E 74 20 53 54 44 45 52 52 20
3C 3C 45 4F 46 3B 0A 20 2D 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20
51 75 65 72 79 20 74 68 65 20 6A 6F 62 73 20 69 6E 20 61 6C 6C 20 71 75
65 75 65 73 0A 20 75 73 65 72 31 20 75 73 65 72 32 20 2E 2E 2E 20 55 73
65 72 73 20 77 68 6F 73 65 20 6A 6F 62 73 20 73 68 6F 75 6C 64 20 62 65
20 6C 69 73 74 65 64 0A 45 4F 46 0A 20 20 20 20 7D 0A 0A 20 20 20 20 69
66 20 28 24 61 63 74 69 6F 6E 20 65 71 20 27 61 6C 6C 27 29 20 7B 0A 09
70 72 69 6E 74 20 53 54 44 45 52 52 20 3C 3C 45 4F 46 3B 0A 20 2D 52 20
20 20 20 20 20 20 20 20 20 20 20 20 20 52 65 6D 6F 76 65 20 61 20 6A 6F
62 20 66 72 6F 6D 20 61 20 71 75 65 75 65 0A 45 4F 46 0A 20 20 20 20 7D
0A 0A 20 20 20 20 69 66 20 28 28 24 61 63 74 69 6F 6E 20 65 71 20 27 72
65 6D 6F 76 65 27 29 20 7C 7C 20 28 24 61 63 74 69 6F 6E 20 65 71 20 27
61 6C 6C 27 29 29 20 7B 0A 09 70 72 69 6E 74 20 53 54 44 45 52 52 20 3C
3C 45 4F 46 3B 0A 20 2D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52
65 6D 6F 76 65 20 61 6C 6C 20 79 6F 75 72 20 6A 6F 62 73 0A 20 6A 6F 62
69 64 31 20 6A 6F 62 69 64 32 20 20 20 49 44 73 20 6F 66 20 74 68 65 20
6A 6F 62 73 20 74 6F 20 62 65 20 72 65 6D 6F 76 65 64 0A 45 4F 46 0A 20
20 20 20 7D 0A 0A 20 20 20 20 69 66 20 28 24 61 63 74 69 6F 6E 20 65 71
20 27 61 6C 6C 27 29 20 7B 0A 09 70 72 69 6E 74 20 53 54 44 45 52 52 20
3C 3C 45 4F 46 3B 0A 20 2D 43 20 20 20 20 20 20 20 20 20 20 20 20 20 20
45 78 65 63 75 74 65 20 63 6F 6E 74 72 6F 6C 20 63 6F 6D 6D 61 6E 64 73
20 66 6F 72 20 71 75 65 75 65 2F 6A 6F 62 20 6D 61 6E 69 70 75 6C 61 74
69 6F 6E 0A 45 4F 46 0A 20 20 20 20 7D 0A 0A 20 20 20 20 69 66 20 28 28
24 61 63 74 69 6F 6E 20 65 71 20 27 63 6F 6E 74 72 6F 6C 27 29 20 7C 7C
20 28 24 61 63 74 69 6F 6E 20 65 71 20 27 61 6C 6C 27 29 29 20 7B 0A 09
70 72 69 6E 74 20 53 54 44 45 52 52 20 3C 3C 45 4F 46 3B 0A 20 63 6F 6D
6D 61 6E 64 20 5B 20 61 72 67 75 6D 65 6E 74 73 20 5D 20 20 43 6F 6E 74
72 6F 6C 20 63 6F 6D 6D 61 6E 64 20 66 6F 72 20 71 75 65 75 65 2F 6A 6F
62 20 6D 61 6E 69 70 75 6C 61 74 69 6F 6E 2E 20 54 68 65 20 0A 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6F 6D 6D 61 6E 64 73 20 61
72 65 20 74 68 65 20 6F 6E 65 73 20 6F 66 20 74 68 65 20 42 53 44 20 22
6C 70 63 22 20 75 74 69 6C 69 74 79 2E 20 55 73 65 0A 09 09 20 74 68 65
20 63 6F 6E 74 72 6F 6C 20 63 6F 6D 6D 61 6E 64 20 22 68 65 6C 70 22 20
74 6F 20 67 65 74 20 61 20 6C 69 73 74 20 6F 66 20 73 75 70 70 6F 72 74
65 64 20 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6F 6D
6D 61 6E 64 73 2E 20 4E 6F 74 65 3A 20 74 68 65 20 61 6D 6F 75 6E 74 20
6F 66 20 63 6F 6D 6D 61 6E 64 73 20 76 61 72 69 65 73 20 77 69 74 68 20
74 68 65 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 70 6F
6F 6C 65 72 2C 20 62 75 74 20 74 68 65 20 73 61 6D 65 20 63 6F 6D 6D 61
6E 64 73 20 67 69 76 65 6E 20 75 6E 64 65 72 20 64 69 66 66 65 72 65 6E
74 20 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 70 6F 6F
6C 65 72 73 20 64 6F 20 74 68 65 20 73 61 6D 65 20 74 68 69 6E 67 2E 0A
45 4F 46 0A 20 20 20 20 7D 0A 0A 20 20 20 20 70 72 69 6E 74 20 53 54 44
45 52 52 20 3C 3C 45 4F 46 3B 0A 20 2D 69 20 20 20 20 20 20 20 20 20 20
20 20 20 20 49 6E 74 65 72 61 63 74 69 76 65 20 6D 6F 64 65 3A 20 59 6F
75 20 77 69 6C 6C 20 62 65 20 61 73 6B 65 64 20 69 66 20 24 70 72 6F 67
6E 61 6D 65 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 73
20 69 6E 20 64 6F 75 62 74 20 61 62 6F 75 74 20 73 6F 6D 65 74 68 69 6E
67 2E 20 4F 74 68 65 72 77 69 73 65 20 24 70 72 6F 67 6E 61 6D 65 0A 09
09 20 75 73 65 73 20 61 75 74 6F 2D 64 65 74 65 63 74 69 6F 6E 20 6F 72
20 71 75 69 74 73 20 77 69 74 68 20 61 6E 20 65 72 72 6F 72 2E 0A 45 4F
46 0A 0A 20 20 20 20 69 66 20 28 28 24 61 63 74 69 6F 6E 20 65 71 20 27
70 72 69 6E 74 27 29 20 7C 7C 20 28 24 61 63 74 69 6F 6E 20 65 71 20 27
61 6C 6C 27 29 29 20 7B 0A 09 70 72 69 6E 74 20 53 54 44 45 52 52 20 3C
3C 45 4F 46 3B 0A 20 2D 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53
61 76 65 20 74 68 65 20 63 68 6F 73 65 6E 20 73 70 6F 6F 6C 65 72 20 61
73 20 74 68 65 20 64 65 66 61 75 6C 74 20 73 70 6F 6F 6C 65 72 0A 20 2D
68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 68 6F 77 20 74 68 69 73
20 6D 65 73 73 61 67 65 20 6F 72 20 73 68 6F 77 20 61 20 6C 69 73 74 20
6F 66 20 61 76 61 69 6C 61 62 6C 65 20 6F 70 74 69 6F 6E 73 20 69 66 20
61 20 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 71 75 65 75
65 20 69 73 20 73 70 65 63 69 66 69 65 64 0A 0A 45 4F 46 0A 20 20 20 20
7D 20 65 6C 73 65 20 7B 0A 09 70 72 69 6E 74 20 53 54 44 45 52 52 20 3C
3C 45 4F 46 3B 0A 20 2D 68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53
68 6F 77 20 74 68 69 73 20 6D 65 73 73 61 67 65 0A 0A 45 4F 46 0A 20 20
20 20 7D 0A 0A 20 20 20 20 65 78 69 74 20 30 3B 0A 7D 0A 0A 23 20 48 65
6C 70 20 6F 6E 20 70 72 69 6E 74 65 72 2D 73 70 65 63 69 66 69 63 20 6F
70 74 69 6F 6E 73 0A 73 75 62 20 68 65 6C 70 5F 6F 70 74 69 6F 6E 73 20
7B 0A 20 20 20 20 6D 79 20 28 24 63 6F 6E 66 69 67 29 20 3D 20 24 5F 5B
30 5D 3B 0A 20 20 20 20 0A 20 20 20 20 23 20 49 73 20 74 68 65 72 65 20
61 6E 20 65 61 73 69 65 72 20 77 61 79 20 74 6F 20 64 6F 20 74 68 69 73
3F 0A 20 20 20 20 65 76 61 6C 20 60 66 6F 6F 6D 61 74 69 63 2D 63 6F 6E
66 69 67 75 72 65 20 2D 50 20 2D 6E 20 24 63 6F 6E 66 69 67 2D 3E 7B 27
71 75 65 75 65 27 7D 20 2D 73 20 24 63 6F 6E 66 69 67 2D 3E 7B 27 73 70
6F 6F 6C 65 72 27 7D 60 3B 0A 20 20 20 20 70 72 69 6E 74 20 22 41 76 61
69 6C 61 62 6C 65 20 6F 70 74 69 6F 6E 73 20 66 6F 72 20 71 75 65 75 65
20 24 63 6F 6E 66 69 67 2D 3E 7B 27 71 75 65 75 65 27 7D 3A 5C 6E 22 3B
0A 20 20 20 20 0A 20 20 20 20 66 6F 72 65 61 63 68 20 6D 79 20 24 61 72
67 20 28 40 7B 24 51 55 45 55 45 53 5B 30 5D 2D 3E 7B 27 61 72 67 73 27
7D 7D 29 20 7B 0A 20 20 20 20 20 20 20 20 6E 65 78 74 20 69 66 20 24 61
72 67 2D 3E 7B 27 68 69 64 64 65 6E 27 7D 3B 0A 20 20 20 20 20 20 20 20
6D 79 20 40 76 61 6C 73 20 3D 20 28 29 3B 0A 0A 20 20 20 20 20 20 20 20
70 72 69 6E 74 20 22 20 20 24 61 72 67 2D 3E 7B 27 6E 61 6D 65 27 7D 20
3A 20 3C 20 22 3B 0A 20 20 20 20 20 20 20 20 66 6F 72 65 61 63 68 20 6D
79 20 24 76 61 6C 20 28 40 7B 24 61 72 67 2D 3E 7B 27 76 61 6C 73 27 7D
7D 29 20 7B 0A 20 20 20 20 20 20 20 20 20 20 20 20 70 75 73 68 20 40 76
61 6C 73 2C 20 24 76 61 6C 2D 3E 7B 27 76 61 6C 75 65 27 7D 3B 0A 20 20
20 20 20 20 20 20 7D 0A 20 20 20 20 20 20 20 20 70 72 69 6E 74 20 6A 6F
69 6E 28 27 20 7C 20 27 2C 20 40 76 61 6C 73 29 20 2E 20 22 20 3E 5C 6E
22 3B 0A 20 20 20 20 7D 0A 0A 20 20 20 20 65 78 69 74 20 30 3B 0A 7D 0A

#!/usr/bin/perl # -*- pe
rl -*- # This is foomati
c-printjob, a program to
print and manage printi
ng # jobs with the same
commands independent whe
ther the spooler is CUPS
, # LPD, LPRng, or PDQ.
# It also comprises hal
f of a programattic API
for user tools: you can
# learn and control ever
ything about the propert
ies of printing jobs # h
ere. With the sister pro
gram foomatic-configure,
you can do # everything
related to print queue
static state: install, m
odify, # remove queues,
query queue, printer, an
d driver info.  use Foom
atic::Defaults; use Foom
atic::DB;  # Read out th
e program name with whic
h we were called, but di
scard the path  $0 =~ m!
/([^/]+)\s*$!; $progname
= $1;  # We use the lib
rary Getopt::Long here,
so that we can have more
than one "-o" # option
on one command line.  us
e Getopt::Long; Getopt::
Long::Configure("no_igno
re_case", "pass_through"
); GetOptions("P=s" => \
$opt_P,         # which
queue (Printer)?    "d=
s" => \$opt_d,         #
which queue (Destinatio
n)?    "s=s" => \$opt_s
,         # which Spoole
r?    "o=s" => \@opt_o,
         # printing Opti
ons    "Q"   => \$opt_Q
,         # Query jobs i
n queue    "R"   => \$o
pt_R,         # Remove j
ob(s)    "C"   => \$opt
_C,         # Control jo
b(s)/queue(s)    "S"
=> \$opt_S,         # se
t default Spooler    "h
"   => \$opt_h);
# Help!  help() if ($opt
_h && !$opt_P);  my $db
= new Foomatic::DB;  my
$in_config = {'queue'
=> $opt_P, 'options'
=> \@opt_o, 'spooler'
=> $opt_s};  # Default
action: Printing my $act
ion = 'print';  # Determ
ine the action by the na
me how we were called if
($progname =~ m!^lpc!)
{ # 'lpc*' ==> control
    $action = 'control';
} elsif ($progname =~ m
!^lprm!) { # 'lprm*' ==>
remove jobs      $actio
n = 'remove'; } elsif ($
progname =~ m!^lpq!) { #
'lpq*' ==> list jobs
   $action = 'query'; }
elsif (($progname =~ m!^
lpr!) || ($progname =~ m
!^lp!)) {      # 'lpr*',
'lp*' ==> print      $a
ction = 'print'; }  # De
termine the action by a
command line option $act
ion = ($opt_R ? 'remove'
: $action); $action = (
$opt_Q ? 'query' : $acti
on); $action = ($opt_C ?
'control' : $action);
my $procs = { 'lpd' => {
'print'    => \&print_l
pd, 'query'    => \&
query_lpd,          'r
emove'   => \&remove_lpd
,          'control'
=> \&control_lpd },
   'lprng'=>{ 'print'
=> \&print_lprng, '
query'    => \&query_lpr
ng, 'remove'   => \&
remove_lprng, 'contr
ol'  => \&control_lpd },
      'cups' =>{ 'prin
t'    => \&print_cups,
'query'    => \&query
_cups, 'remove'   =>
\&remove_cups, 'con
trol'  => \&control_cups
},       'pdq'  =>{ 'p
rint'    => \&print_pdq,
'query'    => \&que
ry_pdq, 'remove'   =
> \&remove_pdq, 'con
trol'  => \&control_pdq
} };  if (!(defined($in_
config->{'queue'}))) {
   # No job handling wit
hout knowing the name of
the queue     # PRINTER
environment variable
  if (defined($opt_d)) {
$in_config->{'queue'}
= $opt_d;     } elsif (d
efined($ENV{PRINTER})) {
$in_config->{'queue'}
= $ENV{PRINTER};     } e
lse { # Use spoolers de
fault     } }  if (!defi
ned($in_config->{'spoole
r'})) {      # Personal
default spooler     if (
($> != 0) && (-f "$ENV{'
HOME'}/.defaultspooler")
) { $s = `cat $ENV{'HOM
E'}/.defaultspooler`; c
homp $s;     }
# System default spooler
     if ((!defined($s))
&& (-f "$sysdeps->{'foo-
etc'}/defaultspooler"))
{ $s = `cat $sysdeps->{
'foo-etc'}/defaultspoole
r`; chomp $s;     }
      if (!defined($s))
{ $s = detect_spooler()
;     }      die "Unable
to identify spooler, pl
ease specify one with \"
-s\"!\n" unless $s;
  if (defined($opt_i)) {
print STDERR "You appe
ar to be using $s.  Corr
ect? "; my $yn = <STDIN
>; die "\n" if ($yn !~
m!^y!i);     }      $in_
config->{'spooler'} = $s
; }  if (defined($opt_S)
) {     if ($> == 0) { #
Program invoked as "roo
t"? # Set system defaul
t spooler open DEFAULTF
ILE, "> $sysdeps->{'foo-
etc'}/defaultspooler" ||
    die "Cannot write
$sysdeps->{'foo-etc'}/de
faultspooler!\n"; print
DEFAULTFILE "$in_config
->{'spooler'}\n"; close
DEFAULTFILE; exit 0;
   } else { # Set perso
nal default spooler ope
n DEFAULTFILE, "> $ENV{'
HOME'}/.defaultspooler"
||     die "Cannot writ
e $ENV{'HOME'}/.defaults
pooler!\n"; print DEFAU
LTFILE "$in_config->{'sp
ooler'}\n"; close DEFAU
LTFILE; exit 0;     } }
  # Exception... help_op
tions($in_config) if ($o
pt_h);  # Call proper pr
oc exit &{$procs->{$in_c
onfig->{'spooler'}}{$act
ion}}($in_config);  ###
Printing/Job manipulatio
n functions for LPD  sub
print_lpd {     my ($co
nfig) = $_[0];      #sys
deps->{'lpd-lpr'} = "/ho
me/test/lpr-0.71/lpr/lpr
";      # Auto-detect wh
ether the "lpr" executab
le is the VA-Linux versi
on or not     my $valinu
xlpr =   !(system "strin
gs $sysdeps->{'lpd-lpr'}
| grep option > /dev/nu
ll");      # Printing co
mmand     my $commandlin
e = "$sysdeps->{'lpd-lpr
'}";      # Add the prin
ter queue argument     i
f (defined($config->{'qu
eue'})) { $commandline
.= " -P $config->{'queue
'}";     }      # Add th
e driver-specific option
s supplied by the user,
if any     # For the VA-
Linux implementation of
"lpr" (gnulpr) options a
re passed     # with '-o
option=value -o switch'
, for the BSD implementa
tion they are     # pass
e with '-J"option=value
switch"'.     if ($valin
uxlpr) { # VA-Linux/gnu
lpr if ($#{$config->{'o
ptions'}} >= 0) {     f
or (@{$config->{'options
'}}) { $commandline .=
" -o $_";     } }
} else { # BSD if ($#
{$config->{'options'}} >
= 0) {     $commandline
.= " -J\"";     for (@
{$config->{'options'}})
{ $commandline .= "$_
";     }     $commandl
ine .= "\""; }     }
   # Add the remaining c
ommand line arguments, t
hey are the names of
# the files to print an
d also spooler-specific
options     $commandline
.= " @ARGV";      # Do
it!      #print "$comman
dline\n";     return (sy
stem $commandline) >> 8;
  }  sub query_lpd {
my ($config) = $_[0];
    # standard lpq, emul
ate -a of lpq-cups     #
Read additional options
     GetOptions("a"   =>
\$opt_a);        # List
jobs on all printers
       if (defined($opt_
a)) { # Get all printer
queues open QUEUELIST,
"$sysdeps->{'lpd-lpc'}
status 2>&1 | grep \":\$
\" | "; my @queuelist =
<QUEUELIST>; close QUE
UELIST; # List the jobs
on all the queues for
(@queuelist) {     my $
queue = $_;     chomp $
queue;     print "$queu
e\n";     $queue =~ s/:
$//;     my $result = (
system "$sysdeps->{'lpd-
lpq'} -P $queue @ARGV")
>> 8;     if ($result !
= 0) {return $result};
}     } else { # List t
he jobs on the specified
queue my $queue = "";
if (defined($config->{'
queue'})) {     $queue
= " -P $config->{'queue'
}"; } return (system "
$sysdeps->{'lpd-lpq'}$qu
eue @ARGV") >> 8;     }
}  sub remove_lpd {
my ($config) = $_[0];
       # Remove a job wi
th the standard "lprm" c
ommand      # Removing c
ommand     my $commandli
ne = "$sysdeps->{'lpd-lp
rm'}";      # Add the pr
inter queue argument
if (defined($config->{'
queue'})) { $commandlin
e .= " -P $config->{'que
ue'}";     }      # Add
the remaining command li
ne arguments, they are t
he numbers     # of the
jobs to kill, the users
whose jos to remove and
also     # spooler-speci
fic options      $comman
dline .= " @ARGV";
# Do it!      #print "$c
ommandline\n";     retur
n (system $commandline)
>> 8;  }  sub control_lp
d {     my ($config) = $
_[0];          # Control
the printing system wit
h the standard "lpc" com
mand      # Control comm
and     my $commandline
= "$sysdeps->{'lpd-lpc'}
";      # Add the remain
ing command line argumen
ts, they are the control
command     # with its
arguments      $commandl
ine .= " @ARGV";      #
Do it!      #print "$com
mandline\n";     return
(system $commandline) >>
8;  }  ### Printing/Job
manipulation functions
for LPRng  sub print_lpr
ng {     my ($config) =
$_[0];      # Printing c
ommand     my $commandli
ne = "$sysdeps->{'lpd-lp
r'}";      # Add the pri
nter queue argument
if (defined($config->{'q
ueue'})) { $commandline
.= " -P $config->{'queu
e'}";     }      # Add t
he driver-specific optio
ns supplied by the user,
if any     if ($#{$conf
ig->{'options'}} >= 0) {
for (@{$config->{'opti
ons'}}) {     $commandl
ine .= " -Z $_"; }
}      # Add the remaini
ng command line argument
s, they are the names of
     # the files to prin
t and also spooler-speci
fic options     $command
line .= " @ARGV";      #
Do it!      #print "$co
mmandline\n";     return
(system $commandline) >
> 8;  }  sub query_lprng
{     my ($config) = $_
[0];      # We filter th
e output of lpq and rear
range it to have the sam
e format     # as of LPD
and CUPS.      GetOptio
ns("l"   => \$opt_l);
    # Long, more verbose
output      # List the
jobs on the specified qu
eue     my $queue = "";
    if (defined($config-
>{'queue'})) { $queue =
" -P $config->{'queue'}
";     }     open LPQOUT
PUT, "$sysdeps->{'lpd-lp
q'}$queue @ARGV |" || re
turn 1;     my @lpqoutpu
t = <LPQOUTPUT>;     clo
se LPQOUTPUT;     # Filt
er the output     for $l
ine (@lpqoutput) { chom
p $line; if ($line =~ m
!^\s*(\S+)\s+([^@\s]+)@[
^@\+\s]+\+[0-9]+\s+\S+\s
+([0-9]+)\s+(\S+)\s+([0-
9]+)\s+[0-9:]+\s*$!) {
    my ($rank, $owner, $
jobid, $file, $size) = (
$1, $2, $3, $4, $5);
  if (defined($opt_l)) {
my $owner_rank = "$ow
ner: $rank"; if (lengt
h($owner_rank) > 40) {
    $owner_rank = subst
r($owner_rank, 0, 40);
} if (length($file) >
40) {$file = substr($fi
le, 0, 40);} print spr
intf("\n%-40s [job %d]\n
\t%-40s %d bytes\n",
      $owner_rank, $jobi
d, $file, $size);     }
else { if (length($ra
nk) > 6) {$rank = substr
($rank, 0, 6)}; if (le
ngth($owner) > 8) {$owne
r = substr($owner, 0, 8)
}; if (length($file) >
37) {$file = substr($fi
le, 0, 37)}; print spr
intf("%-6s %-8s % 6d %-3
7s %d bytes\n",
$rank, $owner, $jobid,
$file, $size);     } }
elsif ($line =~ m!\s*Ra
nk\s+Owner!) {     if (
!defined($opt_l)) { pr
int "Rank   Owner
Job File(s)
                  Total
Size\n";     } } else
{     print("$line\n");
}     } }  sub remove_
lprng {     my ($config)
= $_[0];          # Rem
ove a job with the stand
ard "lprm" command and e
mulate the "-"     # opt
ion of the lprm command
of BSD LPD      # Removi
ng command     my $comma
ndline = "$sysdeps->{'lp
d-lprm'}";      # Add th
e printer queue argument
     if (defined($config
->{'queue'})) { $comman
dline .= " -P $config->{
'queue'}";     }      #
Replace the "-" option b
y the "all" option     m
y $alljobs = "";     for
($i = 0; ($i <= $#ARGV)
; $i++) { if ($ARGV[$i]
=~ m!^\s*\-\s*$!) {
  $alljobs = " all";
  splice(@ARGV,$i,1);
   $i--; }     }     $c
ommandline .= $alljobs;
     # Add the remaining
command line arguments,
they are the numbers
  # of the jobs to kill,
the users whose jos to
remove and also     # sp
ooler-specific options
    $commandline .= " @A
RGV";      # Do it!
#print "$commandline\n"
;     return (system $co
mmandline) >> 8;  }  sub
control_lprng {      #
The lpc command of lprng
is compatible to the on
e of LPD, it has only
  # many more commands.
So we use the "control_l
pd" function also for
  # lprng.  }  ### Print
ing/Job manipulation fun
ctions for CUPS  sub pri
nt_cups {     my ($confi
g) = $_[0];      # Print
ing command     my $comm
andline = "$sysdeps->{'c
ups-lpr'}";      # Add t
he printer queue argumen
t     if (defined($confi
g->{'queue'})) { $comma
ndline .= " -P $config->
{'queue'}";     }      #
Add the driver-specific
options supplied by the
user, if any     if ($#
{$config->{'options'}} >
= 0) { for (@{$config->
{'options'}}) {     $co
mmandline .= " -o $_";
}     }      # Add the r
emaining command line ar
guments, they are the na
mes of     # the files t
o print and also spooler
-specific options     $c
ommandline .= " @ARGV";
     # Do it!      #prin
t "$commandline\n";
return (system $commandl
ine) >> 8;  }  sub query
_cups {     my ($config)
= $_[0];      # List th
e jobs on the specified
queue     my $queue = ""
;     if (defined($confi
g->{'queue'})) { $queue
= " -P $config->{'queue
'}";     }     return (s
ystem "$sysdeps->{'cups-
lpq'}$queue @ARGV") >> 8
;  }  sub remove_cups {
    my ($config) = $_[0]
;          # Remove a jo
b with the standard "lpr
m" command      # Removi
ng command     my $comma
ndline = "$sysdeps->{'cu
ps-lprm'}";      # Add t
he printer queue argumen
t     if (defined($confi
g->{'queue'})) { $comma
ndline .= " -P $config->
{'queue'}";     }      #
Add the remaining comma
nd line arguments, they
are the numbers     # of
the jobs to kill, the u
sers whose jos to remove
and also     # spooler-
specific options      $c
ommandline .= " @ARGV";
     # Do it!      #prin
t "$commandline\n";
return (system $commandl
ine) >> 8;  }  sub contr
ol_cups {     my ($confi
g) = $_[0];      # CUPS
has no LPD/LPRng-compati
ble lpc command, so we m
ust emulate     # this f
unctionality with the co
mmand line tools of CUPS
.      # The first comma
nd line argument (of the
remaining ones) is the
    # control command (s
tandard commands of lpc
for LPD/LPRng)      my $
command = shift (@ARGV);
      if (!defined($comm
and)) { die "You must s
upply a control command
with the \"-C\" option!\
n";     } elsif (lc($com
mand) eq "up") { # Turn
on queue (queueing/print
ing) return (system "$s
ysdeps->{'cups-enable'}
@ARGV; $sysdeps->{'cups-
accept'} @ARGV") >> 8;
   } elsif (lc($command)
eq "down") { # Turn off
queue (queueing/printin
g) return (system "$sys
deps->{'cups-disable'} @
ARGV; $sysdeps->{'cups-r
eject'} @ARGV") >> 8;
  } elsif (lc($command)
eq "start") { # Turn on
queue (printing) return
(system "$sysdeps->{'cu
ps-enable'} @ARGV") >> 8
;     } elsif (lc($comma
nd) eq "stop") { # Turn
off queue (printing) re
turn (system "$sysdeps->
{'cups-disable'} @ARGV")
>> 8;     } elsif (lc($
command) eq "enable") {
# Accept new jobs retur
n (system "$sysdeps->{'c
ups-accept'} @ARGV") >>
8;     } elsif (lc($comm
and) eq "disable") { # R
eject new jobs return (
system "$sysdeps->{'cups
-reject'} @ARGV") >> 8;
    } elsif (lc($command
) eq "move") { # Move jo
bs if (($#ARGV < 1) or
($#ARGV > 2)) {     die
"Usage of the \"move\"
control command:\n\n   m
ove oldqueue [ jobID ] n
ewqueue\n\n"; } # The
first argument is always
the source printer my
$fromqueue = shift (@ARG
V); # The second argume
nt is the job ID or the
destination my $jobid =
shift (@ARGV); # The t
hird argument is the des
tination my $toqueue =
shift (@ARGV); if (!def
ined($toqueue)) {     #
No job ID given, move a
ll jobs in the given que
ue     $toqueue = $jobi
d;     open LINES, "$sy
sdeps->{'cups-lpq'} -P $
fromqueue |";     my @l
ines = <LINES>;     clo
se LINES;     for (@lin
es) { if ($_ =~ m!^\s*
\S+\s+\S+\s+([0-9]+)\s+!
) {     system "$sysde
ps->{'cups-lpmove'} $fro
mqueue-$1 $toqueue"; }
    }     return; }
else {     # Treat the
specified job     retur
n (system "$sysdeps->{'c
ups-lpmove'} $fromqueue-
$jobid $toqueue") >> 8;
}     } elsif ((lc($com
mand) eq "hold") ||    #
Hold job      (lc($com
mand) eq "release") || #
Resume job      (lc($c
ommand) eq "topq")) {
# Bring job to the top
of the
                    # qu
eue if (($#ARGV < 0) or
($#ARGV > 1)) {     di
e "Usage of the \"$comma
nd\" control command:\n\
n   $command queue [ job
ID ] \n\n"; } # Clean
up the command $command
= lc($command); if ($c
ommand eq "release") {$c
ommand = "resume";}   if
($command eq "topq") {$
command = "immediate";}
# The first argument i
s always the queue my $
queue = shift (@ARGV);
# The second argument is
the job ID my $jobid =
shift (@ARGV); if (!de
fined($jobid)) {     #
No job ID given, treat a
ll jobs in the given que
ue     open LINES, "$sy
sdeps->{'cups-lpq'} -P $
queue |";     my @lines
= <LINES>;     close L
INES;     for (@lines)
{ if ($_ =~ m!^\s*\S+\
s+\S+\s+([0-9]+)\s+!) {
    system "$sysdeps->
{'cups-lp'} -i $queue-$1
-H $command"; }
}     return; } else {
    # Treat the specif
ied job     return (sys
tem "$sysdeps->{'cups-lp
'} -i $queue-$jobid -H $
command") >> 8; }     }
elsif (lc($command) eq
"status") { # Queue stat
us listing return (syst
em "$sysdeps->{'cups-lpc
'} status @ARGV") >> 8;
    } elsif (lc($command
) eq "help") { # List th
e available commands pr
int "The following contr
ol commands are availabl
e:\n\n"; print "   up q
ueue                : Tu
rn on queue (queueing/pr
inting)\n"; print "   d
own queue              :
Turn off queue (queuein
g/printing)\n"; print "
   start queue
   : Turn on printing on
queue\n"; print "   st
op queue              :
Turn off printing on que
ue\n"; print "   enable
queue            : Make
queue accepting new job
s\n"; print "   disable
queue           : Make
queue rejecting new jobs
\n"; print "   move old
queue [ jobid ] newqueue
: \n"; print "       M
ove job jobid in oldqueu
e to newqueue\n"; print
"       Move all jobs i
n oldqueue to newqueue w
hen jobid not given\n";
print "   hold queue [
jobid ]    : Hold job jo
bid or all jobs in queue
\n"; print "   release
queue [ jobid ] : Releas
e job jobid or all jobs
in queue\n"; print "
topq queue jobid
: Print job jobid in que
ue immediately\n"; prin
t "   status [ queue ]
      : Status of queue
or of all queues\n"; pr
int "   help
        : This help mess
age\n\n";     } else {
die "Command \"$command\
" not recognized!\n";
  } }  ### Printing/Jo
b manipulation functions
for PDQ  sub print_pdq
{     my ($config) = $_[
0];      # Printing comm
and     my $commandline
= "$sysdeps->{'pdq-print
'}";      # Add the prin
ter queue argument     i
f (defined($config->{'qu
eue'})) { $commandline
.= " -P $config->{'queue
'}";     }      # Add th
e driver-specific option
s supplied by the user,
if any     if ($#{$confi
g->{'options'}} >= 0) {
for (@{$config->{'optio
ns'}}) {     my $option
= $_;     if ($option
=~ m!^\s*([^=]+=[\+\-0-9
\.]+)\s*$!) { # Foomat
ic treats numerical opti
ons as PDQ arguments ("-
a"), # but there can b
e enumerated options wit
h numbers as choices,
# so we give the option
in both styles. Since PD
Q silently # ignores n
on-existent options, the
wrong form of the optio
n # will be ignored.
$commandline .= " -aOPT
_$1";     }     # Enum
erated and boolean optio
ns are PDQ options ("-o"
),     # the "=" has to
be replaced by "_" to w
ork with the     # PDQ-
O-MATIC-generated config
uration     $option =~
s/=/_/;  # Replace only
the first "="     $comm
andline .= " -o$option";
}     }      # The "-#
" option for multiple co
pies is not supported by
the print     # command
"pdq". So we launch "pd
q" once per copy. Thw co
mmand line     # will be
modified appropriately
directly before the prin
ting command     # is la
unched.     # Note: '#'
as option name is not su
pported by the Perl libr
ary     # Getopt::Long.
    my $num_copies = 1;
    my $file_in_args = 0
;     my $i;     for ($i
= 0; ($i <= $#ARGV); $i
++) { if ($ARGV[$i] =~
m!^\s*\-\#\s*([0-9]+)\s*
$!) {     $num_copies =
$1;     splice(@ARGV,$
i,1);     $i--; } elsi
f ($ARGV[$i] =~ m!^\s*\-
\#\s*$!) {     if ((def
ined $ARGV[$i+1]) &&
($ARGV[$i+1] =~ m!^\s*([
0-9]+)\s*$!)) { $num_c
opies = $1; splice(@AR
GV,$i,2); $i--;     }
} elsif ($ARGV[$i] =~
m!^\s*[^\-]+!) {     $f
ile_in_args = 1; }
}      # Add the remaini
ng command line argument
s, they are the names of
     # the files to prin
t and also spooler-speci
fic options     $command
line .= " @ARGV";      #
Do it!     #print "$com
mandline\n"; return 0;
    if ($num_copies == 1
) { return (system $com
mandline) >> 8;     } el
se { if ($file_in_args
== 0) {     # We print
from standard input, so
we must buffer it to be
able     # to print mul
tiple copies     my @jo
b_contents = <STDIN>;
   my $i;     for ($i =
0; $i < $num_copies; $i
++) { open PIPE, "| $c
ommandline" ||       di
e "Could not launch prin
ting command!\n"; prin
t PIPE @job_contents;
close PIPE;     }
return 0; } else {
# We print files     m
y $result = 0;     my $
i;     for ($i = 0; $i
< $num_copies; $i++) {
$result = (system $comm
andline) >> 8; if ($re
sult != 0) {return $resu
lt};     }     return
0; }     } }  sub query
_pdq {     my ($config)
= $_[0];      # PDQ has
no possiblity to list th
e printing jobs from the
command     # line.  So
we read the *.status fi
les in ~/.printjobs and
generate     # the job e
ntry lines from that inf
ormation.      # Read ad
ditional options     Get
Options("a"   => \$opt_a
,        # List jobs on
all printers        "l"
   => \$opt_l);       #
Long, more verbose outpu
t      # Make sure that
a printer is specified w
hen the "-a" option is n
ot     # given     if ((
!(defined($opt_a))) && (
!(defined($config->{'que
ue'})))) { $config->{'q
ueue'} = get_pdq_default
_printer();     }      #
If the user specified j
ob numbers, list them. U
ser names on the     # c
ommand line do not make
much sense, because unde
r PDQ a user can     # o
nly see ones own jobs, t
hey are supported here t
o do not break     # fro
nt ends     my $joblist
= {};     my $userlist =
{};     my $listalljobs
= 1;     my $listalluse
rs = 1;     my $i;     f
or ($i = 0; ($i <= $#ARG
V); $i++) { if ($ARGV[$
i] =~ m!^\s*([0-9]+)\s*$
!) {     my $job=$1;
   # Fill up the number
with zeros so that it ha
s three digits     whil
e (length($job) < 3) {$j
ob = "0" . $job;}     $
joblist->{$job} = 1;
  $listalljobs = 0;
splice(@ARGV,$i,1);
  $i--; } elsif ($ARGV[
$i] =~ m!^\s*[^\-]+!) {
    my $user=$ARGV[$i];
    $userlist->{$user}
= 1;     $listallusers
= 0;     splice(@ARGV,
$i,1);     $i--; } els
e {     die "Unknown op
tion: $ARGV[$i]\n"; }
   }      # When we list
only the jobs for a spe
cific printer, display t
he     # printer status
at first. In PDQ the pri
nter status cannot be
  # retrived from the co
mmand line, so we put a
dummy line     # "<print
er> is ready".     if (!
(defined($opt_a))) { if
(!pdq_check_printer($co
nfig->{'queue'})) {
die "$config->{'queue'}
: unknown printer\n"; }
print "$config->{'queu
e'} is ready\n";     }
    # Read in the names
of all job status files
in ~/.printjobs/     my
@jobnumbers = ();     op
endir PJDIR, "$ENV{'HOME
'}/.printjobs" ||   retu
rn 0;  # No ~/.printjobs
/ directory ==> no jobs
    while ($filename = r
eaddir(PJDIR)) { if ($f
ilename =~ m!^([0-9][0-9
][0-9]).status$!) {
push (@jobnumbers, $1);
}     }     close PJDI
R;     # Sort the filena
mes in descending order
to get the most recent j
obs     # listed at firs
t     @jobnumbers = sort
{$b cmp $a} @jobnumbers
;      # Now list the jo
bs     my $firstline = 1
;     for ($i = 0; $i <=
$#jobnumbers; $i ++) {
# Omit this job if job
numbers are specified on
the command line, but
# not the one of this jo
b next if (($listalljob
s == 0) &&   (!(define
d($joblist->{$jobnumbers
[$i]})))); # Read the j
ob status file next if
!open JOBSTATUSFILE,   "
< $ENV{'HOME'}/.printjob
s/$jobnumbers[$i].status
"; my $jobstatusdata =
join("", <JOBSTATUSFILE>
); close JOBSTATUSFILE;
# Extract the importan
t fields from the file
# Status: my $status =
""; if ($jobstatusdata
=~ m!^\s*status\s*\=\s*{
([^{}]*)}\s*$!m) {
$status = $1; } # Omit
this job when it has no
status field or when th
e job is # already fini
shed, cancelled, or abor
ted next if (($status e
q "") || ($status =~ m!a
borted!) ||   ($status
=~ m!finished!) || ($st
atus =~ m!cancelled!));
# Avoid spaces in the s
tatus field, so that fro
ntends can separate the
# fields from the job l
ist more easily. $statu
s =~ s/\s//g; # Printer
my $printer; if ($job
statusdata =~ m!^\s*prin
ter\s*\=\s*{([^{}]*)}\s*
$!m) {     $printer = $
1; } # Omit this job w
hen we are querying only
the jobs of another pri
nter next if ((!(define
d($opt_a))) && ($printer
ne $config->{'queue'}))
; # Owner my $owner;
if ($jobstatusdata =~
m!^\s*env_driver\s*\=\s*
{.*\"LOGNAME\"\s*=\s*\"(
[^\"]*)\".*}\s*$!m) {
   $owner = $1; } # Om
it this job if user name
s are specified on the c
ommand line, but # not
the owner of this job n
ext if (($listallusers =
= 0) &&   (!(defined($
userlist->{$owner}))));
# File my $file; if (
$jobstatusdata =~ m!^\s*
input_filename\s*\=\s*{(
[^{}]*)}\s*$!m) {     $
file = $1; } # Size of
job input file my $siz
e; if (-f "$ENV{'HOME'}
/.printjobs/$jobnumbers[
$i].raw") {     $size =
(stat("$ENV{'HOME'}/.pr
intjobs/$jobnumbers[$i].
raw"))[7]; }   # Now ge
t the info nicely onto t
he screen my $outputlin
e; if ($opt_l) {     #
Long (3+ lines per job)
mode     my $owner_sta
tus = "$owner: $status";
    if (length($owner_
status) > 40) { $owner
_status = substr($owner_
status, 0, 40);     }
    if (length($file) >
40) {$file = substr($fil
e, 0, 40);}     $output
line = sprintf("\n%-40s
[job %d]\n\t%-40s %d byt
es\n",   $owner_stat
us, $jobnumbers[$i], $fi
le,   $size); } els
e {     # Short (1 line
per job) mode     if (
$firstline == 1) { # h
eadline print "Rank
Owner      Job  File(s)

      Total Size\n"; $
firstline = 0;     }
   if (length($status) >
6) {$status = substr($s
tatus, 0, 6);}     if (
length($owner) > 10) {$o
wner = substr($owner, 0,
10);}     if (length($
file) > 37) {$file = sub
str($file, 0, 37);}
$outputline = sprintf("
%-6s %-10s % 3d  %-37s %
d bytes\n",   $statu
s, $owner, $jobnumbers[$
i], $file,   $size);
} print $outputline;
    }      # Say "no ent
ries" if no job was list
ed     if ($firstline ==
1) { print "no entries
\n";     }      }  sub r
emove_pdq {     my ($con
fig) = $_[0];      # PDQ
has no possiblity to re
move printing jobs from
the command     # line.
"xpdq" cancels jobs by
"touch"ing <job id>.canc
elled     # files in ~/.
printjobs and setting th
e permissions of these f
iles     # to 0600.
# Make sure that a prin
ter is specified when th
e "-a" option is not
# given     if (!(defin
ed($config->{'queue'})))
{ $config->{'queue'} =
get_pdq_default_printer
();     }      # If the
user specified job numbe
rs, list them. User name
s on the     # command l
ine do not make much sen
se, because under PDQ a
user can     # only see
ones own jobs, they are
supported here to do not
break     # front ends
    my $joblist = {};
  my $userlist = {};
my $nojob = 1;     my $
nouser = 1;     my $opt_
alljobs = 0;     my $i;
    for ($i = 0; ($i <=
$#ARGV); $i++) { if ($A
RGV[$i] =~ m!^\s*([0-9]+
)\s*$!) {     my $job=$
1;     # Fill up the nu
mber with zeros so that
it has three digits
while (length($job) < 3
) {$job = "0" . $job;}
    $joblist->{$job} = 1
;     $nojob = 0;
splice(@ARGV,$i,1);
$i--; } elsif ($ARGV[$
i] =~ m!^\s*[^\-]+!) {
    my $user=$ARGV[$i];
    $userlist->{$user}
= 1;     $nouser = 0;
    splice(@ARGV,$i,1);
    $i--; } elsif ($AR
GV[$i] =~ m!^\s*\-\s*$!)
{     $opt_alljobs = 1
;     splice(@ARGV,$i,1
);     $i--; } else {
    die "Unknown option
: $ARGV[$i]\n"; }     }
      # Does the chosen
printer exist     if (!p
dq_check_printer($config
->{'queue'})) { die "$c
onfig->{'queue'}: unknow
n printer\n";     }
# Read in the names of
all job status files in
~/.printjobs/     my @jo
bnumbers = ();     opend
ir PJDIR, "$ENV{'HOME'}/
.printjobs" ||   return
0;  # No ~/.printjobs/ d
irectory ==> no jobs
while ($filename = read
dir(PJDIR)) { if ($file
name =~ m!^([0-9][0-9][0
-9]).status$!) {     pu
sh (@jobnumbers, $1); }
     }     close PJDIR;
    # Sort the filenames
in descending order to
get the most recent
# (probably still waitin
g) jobs removed at first
     @jobnumbers = sort
{$b cmp $a} @jobnumbers;
      # Now search the j
obs to remove     my $no
thingremoved = 1;     my
$mostrecent = 1;     fo
r ($i = 0; $i <= $#jobnu
mbers; $i ++) { # Read
the job status file nex
t if !open JOBSTATUSFILE
,   "< $ENV{'HOME'}/.pri
ntjobs/$jobnumbers[$i].s
tatus"; my $jobstatusda
ta = join("", <JOBSTATUS
FILE>); close JOBSTATUS
FILE; # Extract the imp
ortant fields from the f
ile # Status: my $stat
us = ""; if ($jobstatus
data =~ m!^\s*status\s*\
=\s*{([^{}]*)}\s*$!m) {
    $status = $1; } #
Omit this job when it i
s already finished, canc
elled, or aborted
  # (then it cannot be k
illed any more) next if
(($status eq "") || ($s
tatus =~ m!aborted!) ||
($status =~ m!finish
ed!) || ($status =~ m!ca
ncelled!)); # Printer
my $printer; if ($jobst
atusdata =~ m!^\s*printe
r\s*\=\s*{([^{}]*)}\s*$!
m) {     $printer = $1;
} # Omit this job whe
n we want to remove jobs
on another printer nex
t if ((!(defined($opt_a)
)) && ($printer ne $conf
ig->{'queue'})); # Owne
r my $owner; if ($jobs
tatusdata =~   m!^\s*env
_driver\s*\=\s*{.*\"LOGN
AME\"\s*=\s*\"([^\"]*)\"
.*}\s*$!m) {     $owner
= $1; }   # Kill the j
ob when it is in the sco
pe of jobs defined by th
e # command line if ((
($nojob == 0) && (define
d($joblist->{$jobnumbers
[$i]}))) ||       (($nou
ser == 0) && (defined($u
serlist->{$owner}))) ||
    (($opt_alljobs == 1
) && ($ENV{'LOGNAME'} eq
$owner)) ||     (($opt
_alljobs == 1) && ($ENV{
'LOGNAME'} eq "root")) |
|     (($mostrecent ==
1) && ($nojob == 1) && (
$nouser == 1) &&
($opt_alljobs == 0))) {
    system("touch $ENV{
'HOME'}/.printjobs/$jobn
umbers[$i].cancelled; ch
mod 0600 $ENV{'HOME'}/.p
rintjobs/$jobnumbers[$i]
.cancelled");     print
STDERR "Cancel request
for job $jobnumbers[$i]
submitted!\n";     $not
hingremoved = 0; } $mo
strecent = 0;     }
# Say "No cancel reques
t sent" if no job was ki
lled     if ($nothingrem
oved == 1) { print STDE
RR "no cancel request se
nt\n";     } }  sub cont
rol_pdq {      # PDQ doe
s not have functionality
for enabling/disabling
queues,      # holding/r
eleasing/moving jobs, et
c.      die "Advanced qu
eue/job manipulation fun
ctionality is not suppor
ted under PDQ!\n";  }  s
ub get_pdq_default_print
er {      # Read the hel
p message of PDQ     ope
n PDQHELP, "pdq --help 2
>&1 |";     $pdqhelp = j
oin ("", <PDQHELP>);
close PDQHELP;      # S
earch the "default" line
     if ($pdqhelp =~ m!d
efault\s+printer.*\s+(\S
+)\s*$!mg) { return $1;
     } else { die "No d
efault printer defined,
you have to specify a pr
inter with \"-P\" or \"-
d\"!\n";     }  }  sub p
dq_check_printer {     m
y $printer = $_[0];
# Read the help message
of PDQ     open PDQHELP
, "pdq --help 2>&1 |";
   $pdqhelp = join ("",
<PDQHELP>);     close PD
QHELP;      # Search the
appropriate printer ent
ry     return ($pdqhelp
=~ m!^\s+$printer\s+\-\s
+.*\s+\-\s*$!mg);  }  su
b detect_spooler {     #
If tcp/localhost:631 op
ens, cups     my $page =
$db->getpage('http://lo
calhost:631/', 1);     i
f ($page =~ m!Common UNI
X Printing System!) { r
eturn 'cups';     }
# Else if /etc/printcap
, some sort of lpd thing
     if (-f $sysdeps->{'
lpd-pcap'}) { # If -f /
etc/lpd.conf, lprng if
(-f $sysdeps->{'lprng-co
nf'}) {     return 'lpr
ng'; } elsif (-x $sysde
ps->{'lpd-bin'}) {
# There's a /usr/sbin/lp
d     return 'lpd'; }
    }      # pdq executa
ble in our path somewher
e?     for (split(':', $
ENV{'PATH'})) { if (-x
"$_/pdq") {     return
'pdq'; }     }      ret
urn undef; }  sub unimp
{     die "Sorry, $actio
n for your spooler is un
implemented...\n"; }  su
b help {      my $action
= 'all'; # Set up the h
elp message depending on
how we were called
if ($progname =~ m!^lpc!
) { # 'lpc*' ==> control
   $action = 'control';
print STDERR <<EOF; Usa
ge: $progname [ -s spool
er ] [ -i ] command [ ar
guments ]     or $progna
me -h EOF     } elsif ($
progname =~ m!^lprm!) {
# 'lprm*' ==> remove job
s   $action = 'remove';
print STDERR <<EOF;  Us
age: $progname [ -s spoo
ler ] [ -P queuename ] [
- ] [ -i ] [ jobid1 job
id2 ... ]     or $progna
me -h EOF     } elsif ($
progname =~ m!^lpq!) { #
'lpq*' ==> list jobs
$action = 'query'; prin
t STDERR <<EOF; Usage: $
progname [ -s spooler ]
[ -P queuename ] [ -i ]
[ -a ] [ user1 user2 ...
]     or $progname -h E
OF     } elsif (($progna
me =~ m!^lpr!) || ($prog
name =~ m!^lp!)) { # 'lp
r*', 'lp*' ==> print   $
action = 'print'; print
STDERR <<EOF; Usage: $p
rogname [ -s spooler ] [
-P queuename ] \
         [ -o option1=va
lue1 -o option2 ... ] [
-i ] [ file1 file2 ... ]
     or $progname -S [ -
s spooler ] [ -i ]     o
r $progname -h [ -s spoo
ler ] [ -P queuename ] [
-i ] EOF     } else { #
name does not determine
the action print STDER
R <<EOF; Usage: $prognam
e [ -s spooler ] [ -P qu
euename ] \
   [ -o option1=value1 -
o option2 ... ] [ -i ] \
       [ file1 file2 .
.. ]     or $progname -Q
[ -s spooler ] [ -P que
uename ] [ -i ] [ -a ] \
       [ user1 user2 .
.. ]     or $progname -R
[ -s spooler ] [ -P que
uename ] [ - ] [ -i ] \
       [ jobid1 jobid2
... ]     or $progname -
C [ -s spooler ] [ -i ]
command [ arguments ]
  or $progname -S [ -s s
pooler ] [ -i ]     or $
progname -h [ -s spooler
] [ -P queuename ] [ -i
] EOF     }       print
STDERR <<EOF;   -s spoo
ler      Explicit spoole
r type (cups,lpd,lprng,p
dq) EOF      if ($action
ne 'control') { print
STDERR <<EOF;  -P queuen
ame    Command should ap
ply to this queue EOF
  }      if (($action eq
'print') || ($action eq
'all')) { print STDERR
<<EOF;  -o option=value
Set option to value  -o
option       Set the sw
itch option  -\# n
      Print n copies  fi
le1 file2 ... Files to b
e printed, when no file
is given, standard input
                  will b
e printed EOF     }
if ($action eq 'all') {
print STDERR <<EOF;  -
Q              Query the
jobs in a queue EOF
}      if (($action eq
'query') || ($action eq
'all')) { print STDERR
<<EOF;  -a
Query the jobs in all qu
eues  user1 user2 ... Us
ers whose jobs should be
listed EOF     }      i
f ($action eq 'all') {
print STDERR <<EOF;  -R
             Remove a jo
b from a queue EOF     }
      if (($action eq 'r
emove') || ($action eq '
all')) { print STDERR <
<EOF;  -               R
emove all your jobs  job
id1 jobid2   IDs of the
jobs to be removed EOF
   }      if ($action eq
'all') { print STDERR
<<EOF;  -C
Execute control commands
for queue/job manipulat
ion EOF     }      if ((
$action eq 'control') ||
($action eq 'all')) {
print STDERR <<EOF;  com
mand [ arguments ]  Cont
rol command for queue/jo
b manipulation. The
              commands a
re the ones of the BSD "
lpc" utility. Use the
control command "help"
to get a list of support
ed                   com
mands. Note: the amount
of commands varies with
the                  spo
oler, but the same comma
nds given under differen
t                   spoo
lers do the same thing.
EOF     }      print STD
ERR <<EOF;  -i
    Interactive mode: Yo
u will be asked if $prog
name                  is
in doubt about somethin
g. Otherwise $progname
uses auto-detection or
quits with an error. EO
F      if (($action eq '
print') || ($action eq '
all')) { print STDERR <
<EOF;  -S              S
ave the chosen spooler a
s the default spooler  -
h              Show this
message or show a list
of available options if
a                   queu
e is specified  EOF
} else { print STDERR <
<EOF;  -h              S
how this message  EOF
  }      exit 0; }  # He
lp on printer-specific o
ptions sub help_options
{     my ($config) = $_[
0];          # Is there
an easier way to do this
?     eval `foomatic-con
figure -P -n $config->{'
queue'} -s $config->{'sp
ooler'}`;     print "Ava
ilable options for queue
$config->{'queue'}:\n";
          foreach my $ar
g (@{$QUEUES[0]->{'args'
}}) {         next if $a
rg->{'hidden'};
my @vals = ();
print "  $arg->{'name'}
: < ";         foreach m
y $val (@{$arg->{'vals'}
}) {             push @v
als, $val->{'value'};
      }         print jo
in(' | ', @vals) . " >\n
";     }      exit 0; }

HEXDUMP: [Full] [Preview]
Base64: [Encode] [+chunk] [+chunk+quotes] [Decode]

:: Command execute ::
Enter:	Select:

:: Shadow's tricks :D ::
Useful Commands Warning. Kernel may be alerted using higher levels	Kernel Info:

:: Preddy's tricks :D ::
Php Safe-Mode Bypass (Read Files) File: eg: /etc/passwd	Php Safe-Mode Bypass (List Directories): Dir: eg: /etc/

:: Search ::

:: Upload ::

:: Make Dir ::

:: Make File ::

:: Go Dir ::

:: Go File ::

--[ c999shell v. 1.0 pre-release build #16 Modded by Shadow & Preddy | RootShell Security Group | r57 c99 shell | Generation time: 0.1407 ]--