Select Code to Download

        $|=print 3.2;sub O{8*($@-$_)+(1,4,5,6)[$:]}sub 
...
               for-6..-                   1}printf
             "%x",$,*                   16%16}