use v5.10;
use PDL;
use PDL::NiceSlice;
use PDL::CV;

$d = sequence(4,5);
$t = pdl sequence(100,5,5);
$d(0,1:4)->rp($t(0,0,1:4));