$|=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}