$a=ord$/;;;for(483315457,3759149058,3883269635,3794874370,1647390720,
1644171264,1912787457,4277106435,4100403459,608567554,608436482){$c=0
;for(split//,substr unpack("B*",pack"L*",$_),6){$o[$c]+=(ord d,ord 2,
$a,$a,$a,$a,$a/2,$b=$a-9,$b,$b,$b)[$i]if$_;$c++}$i++}print chr for@o