sub {
    my @ranges = map { [@data[ $_[2*$_] .. $_[2*$_+1] ]] } 0 .. $D;
    print join " / ",
          map { my $range = $_; join " ", map "[@$_]", @$range } @ranges;
  }