$c = $_ - ( ( $_ - $_ % 4 ) / 4 + ( $_ % 4 ? 1 : 0 ) );
# print $c;
# 0 0 1 2 3 3 4 5 6 6 7 8 9 9 10 11 12 12 13 14 15 15 16 17
    $i =
      vec( $o, $c, 4 ) + ( vec( $o, $c + 1, 4 ) << 4 ) >> 4 - $_ % 4 - 4 *
      ( $_ % 4 ? 0 : 1 );
# >> 0 3 2 1 0 3 2 1 0 3 2 1 0 3 2 1 0 3 2 1 0 3 2 1
# print $i;
# 170 21 34 4 128 16 62 47 69 8 21 2 0 0 20 98 12 1 8 17 82 10 21 2
# print $i % 16; # == vec( pack( 'C', $i ), 0, 4 )
# 10 5  2  4  0  0  14 15 5  8  5  2  0  0  4  2  12 1  8  1  2  10 5  2
# 0101  0100  0000  0111  1010  1010  0000  0010  0011  0001  0100  1010   

#    1010  0010  0000  1111  0001  0100  0000  0100  1000  1000  0101  0100
# J  u  r  t        n  o  u  h  e  r     P  d  r  l  a  h  a  b  j  e  r
#       *        *        *                 *        *        *  *