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