CODE

#!/usr/bin/perl

($z='9876576362150a65b6cd6ef')

=~tr(f1de47ba0c629835)(lphmtnx :/tyCo\-e); sub f {
%h = ('<'=>'&l'.'t;','>'=>'&g'.'t;','"'=>'&q'.'uo'.'t;');
0.8069675120645858E19/0.2914824566871386E41*($_[0]**12.0)-0.3564966827238391E22/0.1573079924978208E40*($_[0]**11.0)+
0.8379546913525073E20/0.1356142353209754E35*($_[0]**10.0)-0.1421595097974212E23
/0.1971907869403235E34*$_[0]*$_[0]*$_[0]*$_[0]*$_[0]*$_[0]*$_[0]*$_[0]*$_[0]+
0.2831475960969903E23/0.7235474080491323E31*$_[0]*$_[0]*$_[0]*$_[0]*$_[0]*$_[0]*$_[0]*$_[0]
-0.5616076399499131E23/0.5497541580765466E29*$_[0]*$_[0]*$_[0]*$_[0]*$_[0]*$_[0]*$_[0]+
0.2208910524901259E23/0.1704454328682206E27*$_[0]*$_[0]*$_[0]*$_[0]*$_[0]*$_[0]
-0.2133869795275442E24/0.2684346474983138E26*$_[0]*$_[0]*$_[0]*$_[0]*$_[0]+
0.2334541378366904E23/0.1014747911409956E24*$_[0]*$_[0]*$_[0]*$_[0]
-0.6766048573520571E24/0.229560289229643E24*$_[0]*$_[0]*$_[0]+0.1084117209335654E23/
0.7708776781838392E21*$_[0]*$_[0]-0.5139424524367226E24/0.4366173880716051E23*$_[0]+
0.3319680905860776E24/0.6715550646609161E22}
(print"$z\n\n<h" and open F,"<$0");
($x = '0xFE') =~ tr/0xEnLoVeFyOrDs/COE@NCSUDoesnt/;
@i=map(int,map({f($_)} map({2**$_} 0..8)));
print $_==0x5a?$x:chr$_ for (@i);
print scalar reverse(">erp");
(s/([<>"])/$h{$1}/ge,print) for (<F>);
close F;