my $p = zeroes(4,4,4);
say 'p:        ', $p->info;
say 'ndcoords: ', ndcoords($p)->info;
say 'range:    ', $p->range(ndcoords($p), 2, 't')->info;

##</code><code>##

p:        PDL: Double D [4,4,4]
ndcoords: PDL: Double D [3,4,4,4]
range:    PDL: Double D [4,4,4,2,2,2]

##</code><code>##

my $q = zeroes(5,5,5,5);
say 'q:        ', $q->info;
say 'ndcoords: ', ndcoords($q)->info;
say 'range:    ', $q->range(ndcoords($q), 2, 't')->info;

##</code><code>##

q:        PDL: Double D [5,5,5,5]
ndcoords: PDL: Double D [4,5,5,5,5]
range:    PDL: Double D [5,5,5,5,2,2,1,5]

##</code><code>##

#!/usr/bin/perl

use v5.24;
use warnings;
use PDL;

my $p = zeroes(4,4,4);
say 'p:        ', $p->info;
say 'ndcoords: ', ndcoords($p)->info;
say 'range:    ', $p->range(ndcoords($p), 2, 't')->info;
say ones(4);

my $q = zeroes(5,5,5,5);
say 'q:        ', $q->info;
say 'ndcoords: ', ndcoords($q)->info;
say 'range:    ', $q->range(ndcoords($q), 2, 't')->info;
say ones(5);

__DATA__
p:        PDL: Double D [4,4,4]
ndcoords: PDL: Double D [3,4,4,4]
range:    PDL: Double D [4,4,4,2,2,2]
[1 1 1 1]
q:        PDL: Double D [5,5,5,5]
ndcoords: PDL: Double D [4,5,5,5,5]
range:    PDL: Double D [5,5,5,5,2,2,1,5]
Segmentation fault