pdl> p $x

[
 [0 0 0 0 0 0]
 [1 0 0 0 0 0]
 [1 0 0 0 1 0]
 [1 0 1 1 1 0]
 [1 0 0 1 0 0]
 [1 0 0 0 0 1]
 [0 0 0 0 1 1]
]

##</code><code>##

pdl> $s = cc8compt $x

pdl> p $s

[
 [0 0 0 0 0 0]
 [1 0 0 0 0 0]
 [1 0 0 0 2 0]
 [1 0 2 2 2 0]
 [1 0 0 2 0 0]
 [1 0 0 0 0 3]
 [0 0 0 0 3 3]
]

##</code><code>##

p Dumper map { 
    $obj = whichND( $s == $_ );
    [
        [ $obj-> slice( 0 )-> minmax ],
        [ $obj-> slice( 1 )-> minmax ],
    ]
} 1 .. $s-> max;

$VAR1 = [
          [
            0,
            0
          ],
          [
            1,
            5
          ]
        ];
 $VAR2 = [
          [
            2,
            4
          ],
          [
            2,
            4
          ]
        ];
 $VAR3 = [
          [
            4,
            5
          ],
          [
            5,
            6
          ]
        ];