$a="0"x((eval join'+',1..10)-5);($a)=map{$_}$a=~y/0//;
$b=pack("C",67);$_=pack($b,pack($b,$a+4).pack($b,$a+6));
eval;sub D{$_=eval(join'*',1..5)-eval(join'+',1..9)-1;
$_.=$".ord(chr($_+ord'+'));$_.=$".ord(chr($_ +(eval(
join('+',2<<4,2<<2,2)))-1));$_.=$".ord(chr($_+(eval(
join('+',2<<4,2<<2,2)))));print map{chr}split;print
map{chr}32,65,110,111,116,104,101,114;print map{chr}
32,80,101,114,108;print map{chr}32,72,97,99,107,101,114;
}