sub { splice(@_, 0, 0, 0); map $_[0] += $_, @_; $_[0] }->(@list)