use strict;
use warnings;
use PDL;
use PDL::NiceSlice;

my $pdl = sequence(2,4);
print "$pdl\n";
$pdl(0,3) .= -4;
print "$pdl\n";