#!/usr/bin/perl
$i="MoDAE;&QO(&%N9o!T:&%N:W,+9F]R('EO=7(+;6%I;oX*oDAA=F4+>6]U(&5V#M
97(+:&5A<F0+<W5C:o!T:&EN9R!T:&%T(&5M86EL('-H;W5L9o!B92!P;&%I#M;B!T9
7AT/PI,970+=&AI<R!B92!T:&4+<F5A;&QY(&QA<W0+=&EM92!Y;W4+#M<V5N9o!M92
!T:&%T(&MI;F0+;V8+8W)A<`I.97AT('1I;64+9&\\+3D]4('-E#M;F0+;64+:'1M;o
P+5V]R9o!D;V-U;65N=o!O<B!S=6-H(&MI;F0+;V8+<VAI#A=oX*oE1H86YK('EO=2X
*!o+`";while($i=~s/\n//){};$i=~tr/+o#/\@\"\n/;print$i=unpack(u,$i)

