my $x = sequence 16, 16;

print $x-> lags( 1, 4, 4 )
        -> slice( '', '', '-1:0' )
        -> xchg( 0, 1 )
        -> sumover
        -> lags( 0, 4, 4 )
        -> slice( '', '-1:0' )
        -> sumover;