my $z = 1 + sequence 14;
my $len = 4;

print $z-> lags( 0, 1, 1 + $z-> nelem - $len )
        -> slice( '','-1:0' );